Hvad går der galt her?
Jeg får følgende fejl på nedenstående script. Kan nogen se hvad der er galt?Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0400'
En sætning var ventet
/reservation4/index.asp, linje 76
end if
^
<html>
<head>
<title>Blokering</title>
<style type="text/css">
<!--
A:link {text-decoration: none; color: #000000}
A:visited {text-decoration: none; color: #000000}
A:active {text-decoration: none; color: #000000}
A:hover {text-decoration: underline; color: #ffffff}
INPUT {
FONT-FAMILY: Arial, Helvetica,Verdana; FONT-SIZE: 90%
}
!-->
</style>
</head>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="750" bgcolor="#FFFFFF" style="border: 1 solid #000000">
<p align="center"> </p>
</td>
</tr>
<tr>
<td height=10 bgcolor=#336699></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center" style="border: 1 solid #000000"><br>
<p>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation4/data.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM blokering WHERE reservation = '" & reservation & "' AND ID = '" & ID & "' AND dag = '" & dag & "' AND lektion = '" & lektion & "';"
Set rs = Conn.Execute(strSQL)
' Hvis der er fundet poster på søgningen
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=0>"
Response.Write "<tr bgcolor=#336699><th><font color=white face=verdana size=2>Id</font></th><th ><font color=white face=verdana size=2>Reservation</font></th><th><font color=white face=verdana size=2>Lektion</font></th><th><font color=white face=verdana size=2>Dag</font></th><th><font color=white face=verdana size=2>Slet</font></th><th><font color=white face=verdana size=2>Pris</font></th><th><font color=white face=verdana size=2>Slet</font></th></tr>"
intCount = 0
Do while NOT (rs.EOF or rs.BOF)
if (intCount MOD 2 = 0) then
bgColor = "#cccccc" 'Første farve
else
bgColor = "#999999" 'Anden farve
end if
intCount = intCount + 1
Response.Write "<tr><td td align=right bgcolor='" & bgColor & "'><font color=black face=verdana size=2>" & rs("ID") & "</font></td>"
Response.Write "<td bgcolor='" & bgColor & "'><font color=black face=verdana size=2>" & rs("reservation") & "</td>"
Response.Write "<td bgcolor='" & bgColor & "'><font color=black face=verdana size=2>" & rs("lektion") & "</td>"
Response.Write "<td align=center bgcolor='" & bgColor & "'><font color=black face=verdana size=2>" & rs("dag") & "</td>"
Response.Write "<td align=center bgcolor='" & bgColor & "'><font color=black face=verdana size=2><a href='slet.asp?ID="&rs("ID")&"'>slet</a></td>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
end if
Conn.Close
Set Conn = Nothing
%>
<br>
</td>
</tr>
</table>
<p align="center"></p>
</body>
</html>
