Fejl når jeg prøver at gemme ændring!
Hej,Jeg har et lille asp problem den kommer nemlig med denne fejl når jeg prøver at gemme teksten.
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/nyt/keglebanden/aendre.asp, line 117
Linie 117 er "rs.open sql, myConn, 1, 3"
Hele siden ser således ud:
<%
mode = Request("mode")
Response.Buffer = True
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Keglebanden</TITLE>
</HEAD>
<BODY BGCOLOR="#c0c0c0">
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tekst.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM hold Where id = 1"
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
%>
<DIV STYLE="text-align:center"><FONT FACE="Arial" SIZE="6">Holdsætning</FONT></DIV><BR>
<form method="POST" action="aendre.asp?mode=gem">
<TABLE WIDTH="100%" BORDER="1">
<TR>
<TD><BR></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="holdnavn1" VALUE="<%response.write rs("holdnavn1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="holdnavn2" VALUE="<%response.write rs("holdnavn2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="holdnavn3" VALUE="<%response.write rs("holdnavn3") %>"></TD>
</TR>
<TR>
<TD><B>Dato</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="dato1" VALUE="<%response.write rs("dato1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="dato2" VALUE="<%response.write rs("dato2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="dato3" VALUE="<%response.write rs("dato3") %>"></TD>
</TR>
<TR>
<TD><B>Sted</B></TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="sted1" VALUE="<%response.write rs("sted1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="sted2" VALUE="<%response.write rs("sted2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="sted3" VALUE="<%response.write rs("sted3") %>"></TD>
</TR>
<TR>
<TD><B>Mødetid</B></TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="modetid1" VALUE="<%response.write rs("modetid1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="modetid2" VALUE="<%response.write rs("modetid2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="modetid3" VALUE="<%response.write rs("modetid3") %>"></TD>
</TR>
<TR>
<TD COLSPAN="4"><BR></TD>
</TR>
<TR>
<TD><B>1.</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller1-1" VALUE="<%response.write rs("spiller1-1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller2-1" VALUE="<%response.write rs("spiller2-1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller3-1" VALUE="<%response.write rs("spiller3-1") %>"></TD>
</TR>
<TR>
<TD><B>2.</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller1-2" VALUE="<%response.write rs("spiller1-2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller2-2" VALUE="<%response.write rs("spiller2-2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller3-2" VALUE="<%response.write rs("spiller3-2") %>"></TD>
</TR>
<TR>
<TD><B>3.</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller1-3" VALUE="<%response.write rs("spiller1-3") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller2-3" VALUE="<%response.write rs("spiller2-3") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller3-3" VALUE="<%response.write rs("spiller3-3") %>"></TD>
</TR>
<TR>
<TD><B>4.</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller1-4" VALUE="<%response.write rs("spiller1-4") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller2-4" VALUE="<%response.write rs("spiller2-4") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller3-4" VALUE="<%response.write rs("spiller3-4") %>"></TD>
</TR>
<TR>
<TD><B>5.</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller1-5" VALUE="<%response.write rs("spiller1-5") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller2-5" VALUE="<%response.write rs("spiller2-5") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller3-5" VALUE="<%response.write rs("spiller3-5") %>"></TD>
</TR>
<TR>
<TD><B>6.</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller1-6" VALUE="<%response.write rs("spiller1-6") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller2-6" VALUE="<%response.write rs("spiller2-6") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="spiller3-6" VALUE="<%response.write rs("spiller3-6") %>"></TD>
</TR>
<TR>
<TD><B>Reserve</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="reserve1" VALUE="<%response.write rs("reserve1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="reserve2" VALUE="<%response.write rs("reserve2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="reserve3" VALUE="<%response.write rs("reserve3") %>"></TD>
</TR>
<TR>
<TD COLSPAN="4"><BR></TD>
</TR>
<TR>
<TD><B>Holdleder</B></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="holdleder1" VALUE="<%response.write rs("holdleder1") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="holdleder2" VALUE="<%response.write rs("holdleder2") %>"></TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="holdleder3" VALUE="<%response.write rs("holdleder3") %>"></TD>
</TR>
</TABLE><BR><INPUT TYPE="submit" VALUE="Gem ændring" NAME="send"></form><%
Set rs = Nothing
myConn.Close
Set myConn = Nothing
%>
<% if Request.QueryString("mode") = "gem" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("tekst.mdb"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM hold WHERE id = '1'"
rs.open sql, myConn, 1, 3
rs.Update
rs("holdnavn1") = Request.Form("holdnavn1")
rs("holdnavn3") = Request.Form("holdnavn2")
rs("holdnavn3") = Request.Form("holdnavn3")
rs("dato1") = Request.Form("dato1")
rs("dato2") = Request.Form("dato2")
rs("dato3") = Request.Form("dato3")
rs("sted1") = Request.Form("sted1")
rs("sted2") = Request.Form("sted2")
rs("sted3") = Request.Form("sted3")
rs("modetid1") = Request.Form("modetid1")
rs("modetid2") = Request.Form("modetid2")
rs("modetid3") = Request.Form("modetid3")
rs("spiller1-1") = Request.Form("spiller1-1")
rs("spiller2-1") = Request.Form("spiller2-1")
rs("spiller3-1") = Request.Form("spiller3-1")
rs("spiller1-2") = Request.Form("nspiller1-2")
rs("spiller2-2") = Request.Form("spiller2-2")
rs("spiller3-2") = Request.Form("spiller3-2")
rs("spiller1-3") = Request.Form("spiller1-3")
rs("spiller2-3") = Request.Form("spiller2-3")
rs("spiller3-3") = Request.Form("spiller3-3")
rs("spiller1-4") = Request.Form("spiller1-4")
rs("spiller2-4") = Request.Form("spiller2-4")
rs("spiller3-4") = Request.Form("spiller3-4")
rs("spiller1-5") = Request.Form("spiller1-5")
rs("spiller2-5") = Request.Form("spiller2-5")
rs("spiller3-5") = Request.Form("spiller3-5")
rs("spiller1-6") = Request.Form("spiller1-6")
rs("spiller2-6") = Request.Form("spiller2-6")
rs("spiller3-6") = Request.Form("spiller3-6")
rs("reserve1") = Request.Form("reserve1")
rs("reserve2") = Request.Form("reserve2")
rs("reserve3") = Request.Form("reserve3")
rs("holdleder1") = Request.Form("holdleder1")
rs("holdleder2") = Request.Form("holdleder2")
rs("holdleder3") = Request.Form("holdleder3")
rs.Update
Response.Redirect("default.asp")
End if
%><BR>
</BODY>
</HTML>
