Varför funkar inte detta?

if Session("id") = 0 then 
	Response.Redirect "login.asp"
else if date < cdate("2000-12-24") then
	Dim Conn, Rs, SQL
	Set conn = server.createobject("ADODB.Connection")
	Set rs = server.createobject("ADODB.Recordset")
	conn.open "DBQ=" & Server.Mappath("db\spel.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
else
	Dim Conn, Rs, SQL
	Set conn = server.createobject("ADODB.Connection")
	Set rs = server.createobject("ADODB.Recordset")
	conn.open "DBQ=" & Server.Mappath("db\data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
end if

Resultat: HTTP 500.

------------------
¤ WIBERG ¤

Slå av de snälla felmeddelandena i IE så får du nog ett bättre felmeddelande.

du får alltid ett bättre felmeddelande i klartext på vad som är fel.

läs lite på errorsidan eller stäng av friendly http error messages, alternativt använd netscape.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>