Update tegnfejl
Hvor er det mit update script mangler noget?Fejlen er:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/litteratur/udlaan.asp, line 20
strSQL = "UPDATE liste SET laaner_navn = '" & Request.Form("laaner_navn") & "', laane_dato='" & Request.Form("laane_dato") & "', laaner_mail='" & Request.Form("laaner_mail") & "'" WHERE bog_id=" & Request.form("id") & "
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
Script:
<%
Response.Buffer = True
Response.Expires = 0
Set Con = Server.CreateObject( "ADODB.Connection" )
DBPath = "DBQ=" & server.mappath("/log/litteratur.mdb") & "; password=test"
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "SELECT * FROM liste ORDER BY titel DESC"
Set Record = Con.Execute(Sql)
strSQL = "UPDATE liste SET laaner_navn = '" & Request.Form("laaner_navn") & "', laane_dato='" & Request.Form("laane_dato") & "', laaner_mail='" & Request.Form("laaner_mail") & "'" WHERE bog_id=" & Request.form("id") & "
Con.execute(strSQL)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" "refresh>
<link rel="stylesheet" href="/indhold.css" type="text/css">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#FED2A7" text="#000000" background="images/marie3.gif">
<tr>
<td width="121" height="181"></td>
<p><font face="Times New Roman, Times, serif"><b><font face="Verdana, Arial, Helvetica, sans-serif">Udlån</font></b></font></p>
<p> </p>
<% Do While Not Record.EOF %><br>
<% Response.Write Record("titel") %><br>
<% Response.Write Record("forfatter") %><br>
<% Response.Write Record("forlag") %><br>
<% Response.Write Record("udgivaar") %><br>
<% Response.Write Record("tilhorer") %><br>
<% Response.Write Record("vaerdi") %><br>
<% Response.Write Record("kategori") %><br>
<br>
<form name="form" action="udlaan.asp" method="POST" target="_self">
<table border="0" width="600">
<tr>
<td height="22">Kategori</td>
<td height="22">
<select name="laaner_navn">
<option value="Anette Grønborg Hansen">Anette Grønborg
Hansen</option>
<option value="Bente Enevoldsen">Bente Enevoldsen</option>
<option value="Birgitte Winterberg">Birgitte Winterberg</option>
<option value="Christina Bentzen">Christina Bentzen</option>
<option value="Claus Krogh Madsen">Claus Krogh Madsen</option>
<option value="Frank Scheving">Frank Scheving</option>
<option value="Iben Holme Laursen">Iben Holme Laursen</option>
<option value="Irene Østergaard Madsen">Irene Østergaard
Madsen</option>
<option value="Jahn O. Ruud">Jahn O. Ruud</option>
<option value="Jens Hjortshøj">Jens Hjortshøj</option>
<option value="Jytte Aagaard">Jytte Aagaard</option>
<option value="Kirsten Haagen">Kirsten Haagen</option>
<option value="Lone Kragh">Lone Kragh</option>
<option value="Merete Mølgaard Jensen">Merete Mølgaard
Jensen</option>
<option value="Mona Bach">Mona Bach</option>
<option value="Niels Fabricius Kilstrup">Niels Fabricius Kilstrup</option>
<option value="Rune Lunell">Rune Lunell</option>
<option value="Stefan R. Jacobsen">Stefan R. Jacobsen</option>
<option value="Tina Ebler">Tina Ebler</option>
<option value="Vita Bjerring">Vita Bjerring</option>
<option value="Lars Bjørn">Lars Bjørn</option>
</select>
<input type="tekst" name="laane_dato" Value="<% Response.Write FormatDateTime(Now, vbLongDate)%>">
<input type="text" name="laaner_mail" Value="@vh-marketing.dk">
<input type="text" name="id" Value="<% Response.Write Record("bog_id") %>">
<%
Record.MoveNext
Loop
%>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" value=" - SKRIV - ">
</td>
</tr>
</table>
</form>
</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
