Lille fejl ifb. update i database vha. asp
Hejsa,jeg sidder og roder lidt med at få opdateret nogle værdier i min database via. asp sider - men jeg er stødt på et problem...
jeg kan ikke få flg. to sider til helt at arbejde sammen:
- første side hvor jeg indtaster mine nye værdier
redigerkampe.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>Rediger Kampe</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#660066" ALINK="#FF0000">
<H2>Rediger kampe</H2>
<%
DIM CONNECT
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("../../database/kampe.mdb")
%>
<%
SET ONKampe = CONNECT.EXECUTE ("Select * FROM kampe")
%>
<BR>
<BR>
Data for seneste kamp er:<br>
<FORM ACTION="godkendkampe.asp?nr=<%=request.querystring("nr")%>" Target="_top" METHOD="POST" NAME="kampchange">
<TABLE>
<TR>
<TD>Dato:</TD>
<TD><input type="text" value="<%=ONKampe("SenesteDato")%>" name="SenesteDato"></TD>
</TR>
<TR>
<TD>Kamp:</TD>
<TD><input type="text" size="30" maxlength="30" value="<%=ONKampe("SenesteKamp")%>" name="SenesteKamp"></TD>
</TR>
<TR>
<TD>Resultat:</TD>
<TD><input type="text" value="<%=ONKampe("SenesteResultat")%>" name="SenesteResultat"></TD>
</TR>
</TABLE>
<br><br>
<TABLE>
Data for næste kamp er:<br>
<TABLE>
<TR>
<TD>Dato:</TD>
<TD><input type="text" value="<%=ONKampe("NaesteDato")%>" name="NaesteDato"></TD>
</TR>
<TR>
<TD>Kamp:</TD>
<TD><input type="text" size="30" maxlength="30" value="<%=ONKampe("NaesteKamp")%>" name="NaesteKamp"></TD>
</TR>
<TR>
<TD>Kl:</TD>
<TD><input type="text" value="<%=ONKampe("NaesteKl")%>" name="NaesteKl"></TD>
</TR>
</TABLE>
<INPUT TYPE="hidden" VALUE="<%=ONKampe("ID")%>" NAME="Nr">
<strong>Bemærk - der må ikke indgå ' og " i felterne</strong>
<br>
<input type="submit" value="Gem ændringer" name="Send"><input type="reset" value="Fortryd indtastningerne" name="Reset">
</FORM>
<!-- lukker forbindelsen -->
<%
ONKampe.close
connect.close
set ONKampe=nothing
set connect=nothing
%>
</BODY>
</HTML>
og den hvor jeg ønsker at opdatere min database med værdierne fra siden:
<%
RESPONSE.BUFFER="True"
CONST ADOPENKEYSET = 1
CONST ADLOCKOPTIMISTIC = 3
SET CONN = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONN.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & _
Server.MapPath("../../database/kampe.mdb")
STRSQL = "Select * FROM kampe where ID = " & clng(request.querystring("nr")) & ";"
strSql = "UPDATE DISTINCTROW [nyhed] SET [Dato] = '" & request.form("dato") & _
"',[SenesteKamp] = '" & request.form("SenesteKamp") & _
"',[NaesteDato] = '" & request.form("NaesteDato") & _
"',[NaesteKamp] = '" & request.form("NaesteKamp") & _
"' WHERE [id] = " & clng(request.querystring("nr"))
"' WHERE [id] = " & clng(request.querystring("nr"))
' gem ændringer
conn.execute (strSql)
'nyt
conn.close
set conn=nothing
' tilbage til admin
RESPONSE.REDIRECT("nyheds-admin.asp")
%>
min dabatase hedder kampe og det samme gør min tabel - den har flg. indhold:
ID - Autonumber
SenesteDato - text
SenesteKamp - text
SenesteResultat - text
NaesteDato - text
NaesteKamp - text
NaesteKl - text
når jeg forsøger at opdatere får jeg flg. fejlmelding:
Microsoft VBScript compilation error '800a0400'
Expected statement
/admin/godkendkampe.asp, line 17
"' WHERE [id] = " & clng(request.querystring("nr"))
^
så er der nogen, der kan gennemskue hvad jeg gør galt?
