asp - hjælp til at finde fejlen - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

Bruger #8176 @ 25.09.05 10:19

Jeg sidder og roder lidt med et asp script, som skal tag enoglke input fra en bruger og lægge dem i en database. Det fungere egentlig ok, men koden jeg oprindelig har brugt, kan ikke tage apostrof ' da det så går ned.
Jeg har derfor med hjælp forsøgt at rette det, men det virker slet ikke nu.

Jeg håber derpå at en venlig sjæl kan hjælpe med at bygge mit script om.
Jeg skal nemlig gerne have det op at køre hurtigst muligt

Kode

<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
	scrollbar-3dlight-color:white;
	scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; 	scrollbar-face-color:#E2CD97;
	scrollbar-highlight-color:#F7F9F3;
	scrollbar-shadow-color:black;
	color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>


<SCRIPT LANGUAGE="JavaScript">
<!--

function Checkform(thisform) {
  // Startværdier
  strError = 'Der opstod følgende fejl:\\n\\n';
  intError = 0;
  
if (thisform.navn.value == "")
  {
  strError = strError + 'navn - Du mangler at indtaste dit navn!\\n '
  intError = 1;
  thisform.navn.focus(); 
  }
  if (thisform.efternavn.value == "")
  {
  strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\\n '
  intError = 1;
  thisform.efternavn.focus(); 
  }  
   
if (thisform.firmanavn.value == "")
  {
  strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\\n '
  intError = 1;
  thisform.firmanavn.focus(); 
  }
  
    if (thisform.adresse.value == "")
  {
  strError = strError + 'Adresse - Du mangler at indtaste din adresse\\n '
  intError = 1;
  thisform.adresse.focus(); 
  }
    if (thisform.postnr.value == "")
  {
  strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\\n '
  intError = 1;
  thisform.postnr.focus(); 
  }
  
 
 if (thisform.email.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  
  if (thisform.kontrol.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  

  
if (intError == 1) {
  alert(strError)
  return false;
  }
}
-->
</SCRIPT>





</head>

<body>




<%
	
	dim conn
	
	function OpenConn( DBName )

		Set Conn = Server.CreateObject("ADODB.Connection")
		ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\\"))
		Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

	end function

	OpenConn("guestbook.mdb")
	
	if request ("mode") = "opret" then
		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')
		Conn.execute( SQL )
		Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
		
	end if

%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="file:///W|/html/general/styles.css">

</head>
<body bgcolor="white">
<p class="ny_broed">
  <% = besked %> 
  <% = besked2 %>
  <% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. <br>
  <br>
  Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">

  <p>
  <input type="hidden" Name="Mode" Value="opret">
  <input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
  
  <span class="menu">Fornavn: </span><br>
  <INPUT type="text" name=navn>
  <span class="style1">*</span><br>    
  <br>
  
  <span class="menu">Efternavn : </span><br>
  <input type="text" name=efternavn>  
  <span class="style1"><span class="style2">*
  </span><br>
  <br>
  </span><span class="menu">Firmanavn</span><span class="style1"><br>
  <INPUT name=firmanavn type="text" id="firmanavn">
  *<br>
  <br>
  <span class="menu">CVR</span><br>
  <INPUT name=CVR type="text" id="CVR">
  <br>
  <br>
  </span><span class="menu">Adresse <br>
  </span><span class="style1">
    <INPUT name=adresse type="text" id="adresse">
*  </span></p>
  <table width="50%"  border="0">
    <tr>
      <td width="35%"><span class="menu">Postnr</span>      <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">* 
      </span></td>
      <td width="65%"><span class="menu">Bynavn</span>        <input name=bynavn type="text" id="bynavn2"> 
        
      </td>
    </tr>
  </table>
  <p><span class="menu">E-mail : </span><br>
    <INPUT type="text" name=email>
    <span class="style1">*</span></p>
  <p><span class="menu">Gentag din email adresse til kontrol</span><br> 
    <input name=kontrol type="text" id="kontrol" value="" size="40">
    <span class="style1">*</span></p>
  <p>  <span class="menu">Navn på tilmeldte person 1</span> <br>
    <INPUT name=pers1 type="text" id="pers1" value="" size="40">
    <br>
    <br>
    <span class="menu">Navn på tilmeldte person 2
    </span><br>
    <INPUT name=pers2 type="text" id="pers2" value="" size="40">
    <br>
    <br>
        
    <span class="menu">Kommentar : </span><br>
    <TEXTAREA rows=4 cols=35 name=comments>
    </TEXTAREA>
  </p>
  <p>    <input type="Submit" Value="Send" name=Submit1>
    <input type="Reset" Value="Slet" name=Reset1>
    <br>
  </p>
</form>

<% End If

Conn.Close
 %>
 
 

</body>
</html>

6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #4479 @ 25.09.05 11:19

602

Prøv at skifte

Kode

		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')

ud med

Kode

		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')"

Hilsen Mathias

[Redigeret d. 25/09-05 11:19:51 af Mathias Knudsen]

Bruger #8176 @ 25.09.05 11:27

Den vcirker desværre stadigvæk ikke ved brug af apostrof '

Kode

<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
	scrollbar-3dlight-color:white;
	scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; 	scrollbar-face-color:#E2CD97;
	scrollbar-highlight-color:#F7F9F3;
	scrollbar-shadow-color:black;
	color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>


<SCRIPT LANGUAGE="JavaScript">
<!--

function Checkform(thisform) {
  // Startværdier
  strError = 'Der opstod følgende fejl:\\n\\n';
  intError = 0;
  
if (thisform.navn.value == "")
  {
  strError = strError + 'navn - Du mangler at indtaste dit navn!\\n '
  intError = 1;
  thisform.navn.focus(); 
  }
  if (thisform.efternavn.value == "")
  {
  strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\\n '
  intError = 1;
  thisform.efternavn.focus(); 
  }  
   
if (thisform.firmanavn.value == "")
  {
  strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\\n '
  intError = 1;
  thisform.firmanavn.focus(); 
  }
  
    if (thisform.adresse.value == "")
  {
  strError = strError + 'Adresse - Du mangler at indtaste din adresse\\n '
  intError = 1;
  thisform.adresse.focus(); 
  }
    if (thisform.postnr.value == "")
  {
  strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\\n '
  intError = 1;
  thisform.postnr.focus(); 
  }
  
 
 if (thisform.email.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  
  if (thisform.kontrol.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  

  
if (intError == 1) {
  alert(strError)
  return false;
  }
}
-->
</SCRIPT>





</head>

<body>




<%
	
	dim conn
	
	function OpenConn( DBName )

		Set Conn = Server.CreateObject("ADODB.Connection")
		ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\\"))
		Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

	end function

	OpenConn("guestbook.mdb")
	
	if request ("mode") = "opret" then
		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')
		Conn.execute( SQL )
		Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
		
	end if

%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="file:///W|/html/general/styles.css">

</head>
<body bgcolor="white">
<p class="ny_broed">
  <% = besked %> 
  <% = besked2 %>
  <% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. 
  
  Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">

  <p>
  <input type="hidden" Name="Mode" Value="opret">
  <input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
  
  <span class="menu">Fornavn: </span>
  <INPUT type="text" name=navn>
  <span class="style1">*</span>    
  
  
  <span class="menu">Efternavn : </span>
  <input type="text" name=efternavn>  
  <span class="style1"><span class="style2">*
  </span>
  
  </span><span class="menu">Firmanavn</span><span class="style1">
  <INPUT name=firmanavn type="text" id="firmanavn">
  *
  
  <span class="menu">CVR</span>
  <INPUT name=CVR type="text" id="CVR">
  
  
  </span><span class="menu">Adresse 
  </span><span class="style1">
    <INPUT name=adresse type="text" id="adresse">
*  </span></p>
  <table width="50%"  border="0">
    <tr>
      <td width="35%"><span class="menu">Postnr</span>      <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">* 
      </span></td>
      <td width="65%"><span class="menu">Bynavn</span>        <input name=bynavn type="text" id="bynavn2"> 
        
      </td>
    </tr>
  </table>
  <p><span class="menu">E-mail : </span>
    <INPUT type="text" name=email>
    <span class="style1">*</span></p>
  <p><span class="menu">Gentag din email adresse til kontrol</span> 
    <input name=kontrol type="text" id="kontrol" value="" size="40">
    <span class="style1">*</span></p>
  <p>  <span class="menu">Navn på tilmeldte person 1</span> 
    <INPUT name=pers1 type="text" id="pers1" value="" size="40">
    
    
    <span class="menu">Navn på tilmeldte person 2
    </span>
    <INPUT name=pers2 type="text" id="pers2" value="" size="40">
    
    
        
    <span class="menu">Kommentar : </span>
    <TEXTAREA rows=4 cols=35 name=comments>
    </TEXTAREA>
  </p>
  <p>    <input type="Submit" Value="Send" name=Submit1>
    <input type="Reset" Value="Slet" name=Reset1>
    
  </p>
</form>

<% End If

Conn.Close
 %>
 
 

</body>
</html>

klaus bergh

Bruger #4479 @ 25.09.05 11:48

602

Den vcirker desværre stadigvæk ikke ved brug af apostrof '

Kode

<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
	scrollbar-3dlight-color:white;
	scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; 	scrollbar-face-color:#E2CD97;
	scrollbar-highlight-color:#F7F9F3;
	scrollbar-shadow-color:black;
	color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>


<SCRIPT LANGUAGE="JavaScript">
<!--

function Checkform(thisform) {
  // Startværdier
  strError = 'Der opstod følgende fejl:\\n\\n';
  intError = 0;
  
if (thisform.navn.value == "")
  {
  strError = strError + 'navn - Du mangler at indtaste dit navn!\\n '
  intError = 1;
  thisform.navn.focus(); 
  }
  if (thisform.efternavn.value == "")
  {
  strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\\n '
  intError = 1;
  thisform.efternavn.focus(); 
  }  
   
if (thisform.firmanavn.value == "")
  {
  strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\\n '
  intError = 1;
  thisform.firmanavn.focus(); 
  }
  
    if (thisform.adresse.value == "")
  {
  strError = strError + 'Adresse - Du mangler at indtaste din adresse\\n '
  intError = 1;
  thisform.adresse.focus(); 
  }
    if (thisform.postnr.value == "")
  {
  strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\\n '
  intError = 1;
  thisform.postnr.focus(); 
  }
  
 
 if (thisform.email.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  
  if (thisform.kontrol.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  

  
if (intError == 1) {
  alert(strError)
  return false;
  }
}
-->
</SCRIPT>





</head>

<body>




<%
	
	dim conn
	
	function OpenConn( DBName )

		Set Conn = Server.CreateObject("ADODB.Connection")
		ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\\"))
		Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

	end function

	OpenConn("guestbook.mdb")
	
	if request ("mode") = "opret" then
		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')
		Conn.execute( SQL )
		Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
		
	end if

%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="file:///W|/html/general/styles.css">

</head>
<body bgcolor="white">
<p class="ny_broed">
  <% = besked %> 
  <% = besked2 %>
  <% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. 
  
  Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">

  <p>
  <input type="hidden" Name="Mode" Value="opret">
  <input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
  
  <span class="menu">Fornavn: </span>
  <INPUT type="text" name=navn>
  <span class="style1">*</span>    
  
  
  <span class="menu">Efternavn : </span>
  <input type="text" name=efternavn>  
  <span class="style1"><span class="style2">*
  </span>
  
  </span><span class="menu">Firmanavn</span><span class="style1">
  <INPUT name=firmanavn type="text" id="firmanavn">
  *
  
  <span class="menu">CVR</span>
  <INPUT name=CVR type="text" id="CVR">
  
  
  </span><span class="menu">Adresse 
  </span><span class="style1">
    <INPUT name=adresse type="text" id="adresse">
*  </span></p>
  <table width="50%"  border="0">
    <tr>
      <td width="35%"><span class="menu">Postnr</span>      <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">* 
      </span></td>
      <td width="65%"><span class="menu">Bynavn</span>        <input name=bynavn type="text" id="bynavn2"> 
        
      </td>
    </tr>
  </table>
  <p><span class="menu">E-mail : </span>
    <INPUT type="text" name=email>
    <span class="style1">*</span></p>
  <p><span class="menu">Gentag din email adresse til kontrol</span> 
    <input name=kontrol type="text" id="kontrol" value="" size="40">
    <span class="style1">*</span></p>
  <p>  <span class="menu">Navn på tilmeldte person 1</span> 
    <INPUT name=pers1 type="text" id="pers1" value="" size="40">
    
    
    <span class="menu">Navn på tilmeldte person 2
    </span>
    <INPUT name=pers2 type="text" id="pers2" value="" size="40">
    
    
        
    <span class="menu">Kommentar : </span>
    <TEXTAREA rows=4 cols=35 name=comments>
    </TEXTAREA>
  </p>
  <p>    <input type="Submit" Value="Send" name=Submit1>
    <input type="Reset" Value="Slet" name=Reset1>
    
  </p>
</form>

<% End If

Conn.Close
 %>
 
 

</body>
</html>

klaus bergh

Prøv at udskrive det i stedet for at gemme det i databasen.
Altså skrive
Response.Write SQL
istedet for
Conn.execute( SQL )
og skriv så hvad den skriver

Hilsen Mathias

Bruger #8176 @ 25.09.05 12:03

Kode

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/mbti05/tilmelding100.asp, line 112 

SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')

Den vcirker desværre stadigvæk ikke ved brug af apostrof '

Kode

<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
	scrollbar-3dlight-color:white;
	scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; 	scrollbar-face-color:#E2CD97;
	scrollbar-highlight-color:#F7F9F3;
	scrollbar-shadow-color:black;
	color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>


<SCRIPT LANGUAGE="JavaScript">
<!--

function Checkform(thisform) {
  // Startværdier
  strError = 'Der opstod følgende fejl:\\n\\n';
  intError = 0;
  
if (thisform.navn.value == "")
  {
  strError = strError + 'navn - Du mangler at indtaste dit navn!\\n '
  intError = 1;
  thisform.navn.focus(); 
  }
  if (thisform.efternavn.value == "")
  {
  strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\\n '
  intError = 1;
  thisform.efternavn.focus(); 
  }  
   
if (thisform.firmanavn.value == "")
  {
  strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\\n '
  intError = 1;
  thisform.firmanavn.focus(); 
  }
  
    if (thisform.adresse.value == "")
  {
  strError = strError + 'Adresse - Du mangler at indtaste din adresse\\n '
  intError = 1;
  thisform.adresse.focus(); 
  }
    if (thisform.postnr.value == "")
  {
  strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\\n '
  intError = 1;
  thisform.postnr.focus(); 
  }
  
 
 if (thisform.email.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  
  if (thisform.kontrol.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  

  
if (intError == 1) {
  alert(strError)
  return false;
  }
}
-->
</SCRIPT>





</head>

<body>




<%
	
	dim conn
	
	function OpenConn( DBName )

		Set Conn = Server.CreateObject("ADODB.Connection")
		ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\\"))
		Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

	end function

	OpenConn("guestbook.mdb")
	
	if request ("mode") = "opret" then
		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')
		Conn.execute( SQL )
		Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
		
	end if

%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="file:///W|/html/general/styles.css">

</head>
<body bgcolor="white">
<p class="ny_broed">
  <% = besked %> 
  <% = besked2 %>
  <% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. 
  
  Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">

  <p>
  <input type="hidden" Name="Mode" Value="opret">
  <input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
  
  <span class="menu">Fornavn: </span>
  <INPUT type="text" name=navn>
  <span class="style1">*</span>    
  
  
  <span class="menu">Efternavn : </span>
  <input type="text" name=efternavn>  
  <span class="style1"><span class="style2">*
  </span>
  
  </span><span class="menu">Firmanavn</span><span class="style1">
  <INPUT name=firmanavn type="text" id="firmanavn">
  *
  
  <span class="menu">CVR</span>
  <INPUT name=CVR type="text" id="CVR">
  
  
  </span><span class="menu">Adresse 
  </span><span class="style1">
    <INPUT name=adresse type="text" id="adresse">
*  </span></p>
  <table width="50%"  border="0">
    <tr>
      <td width="35%"><span class="menu">Postnr</span>      <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">* 
      </span></td>
      <td width="65%"><span class="menu">Bynavn</span>        <input name=bynavn type="text" id="bynavn2"> 
        
      </td>
    </tr>
  </table>
  <p><span class="menu">E-mail : </span>
    <INPUT type="text" name=email>
    <span class="style1">*</span></p>
  <p><span class="menu">Gentag din email adresse til kontrol</span> 
    <input name=kontrol type="text" id="kontrol" value="" size="40">
    <span class="style1">*</span></p>
  <p>  <span class="menu">Navn på tilmeldte person 1</span> 
    <INPUT name=pers1 type="text" id="pers1" value="" size="40">
    
    
    <span class="menu">Navn på tilmeldte person 2
    </span>
    <INPUT name=pers2 type="text" id="pers2" value="" size="40">
    
    
        
    <span class="menu">Kommentar : </span>
    <TEXTAREA rows=4 cols=35 name=comments>
    </TEXTAREA>
  </p>
  <p>    <input type="Submit" Value="Send" name=Submit1>
    <input type="Reset" Value="Slet" name=Reset1>
    
  </p>
</form>

<% End If

Conn.Close
 %>
 
 

</body>
</html>

klaus bergh

Prøv at udskrive det i stedet for at gemme det i databasen.
Altså skrive
Response.Write SQL
istedet for
Conn.execute( SQL )
og skriv så hvad den skriver

Hilsen Mathias

klaus bergh

Bruger #8176 @ 25.09.05 20:32

Ingen der har en løsning?

Kode

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/mbti05/tilmelding100.asp, line 112 

SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')

Den vcirker desværre stadigvæk ikke ved brug af apostrof '

Kode

<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
	scrollbar-3dlight-color:white;
	scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; 	scrollbar-face-color:#E2CD97;
	scrollbar-highlight-color:#F7F9F3;
	scrollbar-shadow-color:black;
	color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>


<SCRIPT LANGUAGE="JavaScript">
<!--

function Checkform(thisform) {
  // Startværdier
  strError = 'Der opstod følgende fejl:\\n\\n';
  intError = 0;
  
if (thisform.navn.value == "")
  {
  strError = strError + 'navn - Du mangler at indtaste dit navn!\\n '
  intError = 1;
  thisform.navn.focus(); 
  }
  if (thisform.efternavn.value == "")
  {
  strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\\n '
  intError = 1;
  thisform.efternavn.focus(); 
  }  
   
if (thisform.firmanavn.value == "")
  {
  strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\\n '
  intError = 1;
  thisform.firmanavn.focus(); 
  }
  
    if (thisform.adresse.value == "")
  {
  strError = strError + 'Adresse - Du mangler at indtaste din adresse\\n '
  intError = 1;
  thisform.adresse.focus(); 
  }
    if (thisform.postnr.value == "")
  {
  strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\\n '
  intError = 1;
  thisform.postnr.focus(); 
  }
  
 
 if (thisform.email.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  
  if (thisform.kontrol.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  

  
if (intError == 1) {
  alert(strError)
  return false;
  }
}
-->
</SCRIPT>





</head>

<body>




<%
	
	dim conn
	
	function OpenConn( DBName )

		Set Conn = Server.CreateObject("ADODB.Connection")
		ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\\"))
		Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

	end function

	OpenConn("guestbook.mdb")
	
	if request ("mode") = "opret" then
		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')
		Conn.execute( SQL )
		Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
		
	end if

%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="file:///W|/html/general/styles.css">

</head>
<body bgcolor="white">
<p class="ny_broed">
  <% = besked %> 
  <% = besked2 %>
  <% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. 
  
  Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">

  <p>
  <input type="hidden" Name="Mode" Value="opret">
  <input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
  
  <span class="menu">Fornavn: </span>
  <INPUT type="text" name=navn>
  <span class="style1">*</span>    
  
  
  <span class="menu">Efternavn : </span>
  <input type="text" name=efternavn>  
  <span class="style1"><span class="style2">*
  </span>
  
  </span><span class="menu">Firmanavn</span><span class="style1">
  <INPUT name=firmanavn type="text" id="firmanavn">
  *
  
  <span class="menu">CVR</span>
  <INPUT name=CVR type="text" id="CVR">
  
  
  </span><span class="menu">Adresse 
  </span><span class="style1">
    <INPUT name=adresse type="text" id="adresse">
*  </span></p>
  <table width="50%"  border="0">
    <tr>
      <td width="35%"><span class="menu">Postnr</span>      <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">* 
      </span></td>
      <td width="65%"><span class="menu">Bynavn</span>        <input name=bynavn type="text" id="bynavn2"> 
        
      </td>
    </tr>
  </table>
  <p><span class="menu">E-mail : </span>
    <INPUT type="text" name=email>
    <span class="style1">*</span></p>
  <p><span class="menu">Gentag din email adresse til kontrol</span> 
    <input name=kontrol type="text" id="kontrol" value="" size="40">
    <span class="style1">*</span></p>
  <p>  <span class="menu">Navn på tilmeldte person 1</span> 
    <INPUT name=pers1 type="text" id="pers1" value="" size="40">
    
    
    <span class="menu">Navn på tilmeldte person 2
    </span>
    <INPUT name=pers2 type="text" id="pers2" value="" size="40">
    
    
        
    <span class="menu">Kommentar : </span>
    <TEXTAREA rows=4 cols=35 name=comments>
    </TEXTAREA>
  </p>
  <p>    <input type="Submit" Value="Send" name=Submit1>
    <input type="Reset" Value="Slet" name=Reset1>
    
  </p>
</form>

<% End If

Conn.Close
 %>
 
 

</body>
</html>

klaus bergh

Prøv at udskrive det i stedet for at gemme det i databasen.
Altså skrive
Response.Write SQL
istedet for
Conn.execute( SQL )
og skriv så hvad den skriver

Hilsen Mathias

klaus bergh

Bruger #4479 @ 26.09.05 14:09

602

Kode

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/mbti05/tilmelding100.asp, line 112 

SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')

Den vcirker desværre stadigvæk ikke ved brug af apostrof '

Kode

<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
	scrollbar-3dlight-color:white;
	scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; 	scrollbar-face-color:#E2CD97;
	scrollbar-highlight-color:#F7F9F3;
	scrollbar-shadow-color:black;
	color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>


<SCRIPT LANGUAGE="JavaScript">
<!--

function Checkform(thisform) {
  // Startværdier
  strError = 'Der opstod følgende fejl:\\n\\n';
  intError = 0;
  
if (thisform.navn.value == "")
  {
  strError = strError + 'navn - Du mangler at indtaste dit navn!\\n '
  intError = 1;
  thisform.navn.focus(); 
  }
  if (thisform.efternavn.value == "")
  {
  strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\\n '
  intError = 1;
  thisform.efternavn.focus(); 
  }  
   
if (thisform.firmanavn.value == "")
  {
  strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\\n '
  intError = 1;
  thisform.firmanavn.focus(); 
  }
  
    if (thisform.adresse.value == "")
  {
  strError = strError + 'Adresse - Du mangler at indtaste din adresse\\n '
  intError = 1;
  thisform.adresse.focus(); 
  }
    if (thisform.postnr.value == "")
  {
  strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\\n '
  intError = 1;
  thisform.postnr.focus(); 
  }
  
 
 if (thisform.email.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  
  if (thisform.kontrol.value == "")
  {
    strError = strError + 'Email - Du mangler at indtaste din email\\n '
    intError = 1;
    thisform.email.focus(); 
  }
  

  
if (intError == 1) {
  alert(strError)
  return false;
  }
}
-->
</SCRIPT>





</head>

<body>




<%
	
	dim conn
	
	function OpenConn( DBName )

		Set Conn = Server.CreateObject("ADODB.Connection")
		ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\\"))
		Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

	end function

	OpenConn("guestbook.mdb")
	
	if request ("mode") = "opret" then
		SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" &  replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''")  & "','" & replace(request("kontrol"),"'","''") & "')
		Conn.execute( SQL )
		Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
		
	end if

%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="file:///W|/html/general/styles.css">

</head>
<body bgcolor="white">
<p class="ny_broed">
  <% = besked %> 
  <% = besked2 %>
  <% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. 
  
  Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">

  <p>
  <input type="hidden" Name="Mode" Value="opret">
  <input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
  
  <span class="menu">Fornavn: </span>
  <INPUT type="text" name=navn>
  <span class="style1">*</span>    
  
  
  <span class="menu">Efternavn : </span>
  <input type="text" name=efternavn>  
  <span class="style1"><span class="style2">*
  </span>
  
  </span><span class="menu">Firmanavn</span><span class="style1">
  <INPUT name=firmanavn type="text" id="firmanavn">
  *
  
  <span class="menu">CVR</span>
  <INPUT name=CVR type="text" id="CVR">
  
  
  </span><span class="menu">Adresse 
  </span><span class="style1">
    <INPUT name=adresse type="text" id="adresse">
*  </span></p>
  <table width="50%"  border="0">
    <tr>
      <td width="35%"><span class="menu">Postnr</span>      <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">* 
      </span></td>
      <td width="65%"><span class="menu">Bynavn</span>        <input name=bynavn type="text" id="bynavn2"> 
        
      </td>
    </tr>
  </table>
  <p><span class="menu">E-mail : </span>
    <INPUT type="text" name=email>
    <span class="style1">*</span></p>
  <p><span class="menu">Gentag din email adresse til kontrol</span> 
    <input name=kontrol type="text" id="kontrol" value="" size="40">
    <span class="style1">*</span></p>
  <p>  <span class="menu">Navn på tilmeldte person 1</span> 
    <INPUT name=pers1 type="text" id="pers1" value="" size="40">
    
    
    <span class="menu">Navn på tilmeldte person 2
    </span>
    <INPUT name=pers2 type="text" id="pers2" value="" size="40">
    
    
        
    <span class="menu">Kommentar : </span>
    <TEXTAREA rows=4 cols=35 name=comments>
    </TEXTAREA>
  </p>
  <p>    <input type="Submit" Value="Send" name=Submit1>
    <input type="Reset" Value="Slet" name=Reset1>
    
  </p>
</form>

<% End If

Conn.Close
 %>
 
 

</body>
</html>

klaus bergh

Prøv at udskrive det i stedet for at gemme det i databasen.
Altså skrive
Response.Write SQL
istedet for
Conn.execute( SQL )
og skriv så hvad den skriver

Hilsen Mathias

klaus bergh

Du mangler stadig et " til sidst

Hilsen Mathias

hjælp til at finde fejlen

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler