Problemer med update - træls fejl?
HejJeg har denne side hvor jeg bruger update til at gemme nogle data i min database.
::::KODE 1::::
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#INCLUDE FILE="config.inc"-->
<!--#INCLUDE FILE="level2.inc"-->
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<html>
<head>
<title>Rediger vare trin 3</title>
</head>
<body>
<%
' Update funktion
' Database connection
intAdrId = request.form("IntAdrId")
SQL = "UPDATE adr SET adrId2 = '"& request.form("adrId2") & "', overskrift = '"& request.form("overskrift") & "' , adresse = '"& request.form("adresse") & "' , e-mail = '"& request.form("email") & "' WHERE adrId = " & intAdrId
response.write sql ' skriver i db
'Conn.Execute (SQL)
' Sender brugeren til forsiden når databasen er opdateret
Conn.Execute(SQL)
response.redirect("rediger_adr1.asp")
conn.Close 'luk db
Set conn = nothing
Set SQL = nothing
%>
</body>
</html>
::::SLUT::::
Mit problem er nu at jeg hele tide får følgende fejl, når jeg forsøger at opdatere
::::FEJL::::
UPDATE adr SET adrId2 = '2', overskrift = 'TELE IT COMMUNICATION' , adresse = 'Gammelgårdsvej 6 8660 Skanderborg' , e-mail = 'test@test.test' WHERE adrId = 2
Microsoft JET Database Engine error '80040e14'
Syntax error in UPDATE statement.
/tele-it/www/admin/rediger_adr2B.asp, line 22
::::SLUT::::
Linie 22 er følgende
14 intAdrId = request.form("IntAdrId")
15 SQL = "UPDATE adr SET adrId2 = '"& request.form("adrId2") & "', overskrift = '"& request.form("overskrift") & "' , adresse = '"& request.form("adresse") & "' , e-mail = '"& request.form("email") & "' WHERE adrId = " & intAdrId
16
17 response.write sql ' skriver i db
18
19 'Conn.Execute (SQL)
20
21 ' Sender brugeren til forsiden når databasen er opdateret
22 Conn.Execute(SQL)
23 response.redirect("rediger_adr1.asp")
Siden før, hvor data kommer fra
::::SIDE 2::::
<%
Dim Conn, DSN, retid, strSQL, rs, strGammelTekst, frmRetid, strOverskrift, strIndhold, strTekstKat
Response.Buffer=True
%>
<!--#INCLUDE FILE="config.inc"-->
<!--#INCLUDE FILE="level2.inc"-->
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<html>
<head>
<title>TELE IT COMMUNICATION ApS</title>
<Link Rel="stylesheet" href="tele-it.css" Type="text/css" > <!-- link til ekstern style sheet -->
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
body {
margin-left: 4px;
margin-top: 0px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<br>
<table width="670" border="0" align="left"><!--Hovedtabel start-->
<tr>
<td height="18" valign="middle" bgcolor="#969696"><span class="style1">Rediger tekst</span></td>
</tr>
<tr><td>
<%
intAdrId = request.form("intAdrId")
strSQL ="Select * From adr Where adrId =" & intAdrId
Set rs = Conn.Execute(strSQL)
Response.Write "<FORM method='post' action='rediger_adr2B.asp' name='rediger'>"
Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='660' align='left'>"
Response.Write "<tr><td height='10'>"
Response.Write "Overskrift: <br>"
Response.Write "<input type='text' name='overskrift' size='100' value='" & rs("Overskrift") & "'>"
Response.Write "</td></tr><tr>"
Response.Write "<td height='180'>"
Response.Write "<br>"
Response.Write "Adresse:<br>"
Response.Write "<textarea name='adresse' rows='15' cols='75' wrap='VIRTUAL'>" & rs("adresse") & "</textarea>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr><td height='10'><br>E-mail:<br>"
Response.Write "<input type='text' name='email' size='100' value='" & rs("e-mail") &"'>"
Response.Write "</td></tr>"
Response.Write "<tr><td height='5'>"
Response.Write "<input type='hidden' NAME='adrId2' value='2'>"
Response.Write "<input type='hidden' NAME='intAdrId' value='" & rs("adrId") & "'>"
Response.Write "<INPUT TYPE='Submit' VALUE='Gem ændring'>"
Response.Write " "
Response.Write "<INPUT TYPE='Reset' VALUE='Fortryd'>"
Response.Write " "
Response.Write "<input type='button' value='Tilbage til oversigt' name='Annuller' onClick='java script:location.href='rediger_adr1.asp'>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='right'> </td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</FORM>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
%>
<%
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
::::SLUT::::
Håber der er nogen der kan se hvor fejlen er
/Annette
