Expected statement
Jeg har følgende fejl:Microsoft VBScript compilation error \'800a0400\'
Expected statement
/asp/poll.asp, line 55
end if
^
Linie 55 svarer til den næst-sidste End if. Her er kildekoden. Hvad helvede er der her som jeg ikke ser? (Ja ja, jeg ved godt der er en del der kunne gøres kønnere. Jeg er en glad ASP-amatør. :-)
<%
set conn = server.createobject(\"ADODB.connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../db/polls.mdb\")
conn.open strDSN
SQL = \"SELECT * FROM poll WHERE aktiv = \'Ja\' order by ID desc\"
set RS = conn.execute( SQL )
if not RS.eof then
Poll_ID = RS(\"ID\")
response.write \"<table border=0 width=\'95%\'><tr><td colspan=2><b><center>Poll:</center></b></td></tr>\"
response.write \"<tr><td colspan=2>\" & RS(\"Overskrift\") & \"</td></tr>\"
valgtMulighed = \"null\"
If mode = \"loginnormal\" or mode = \"loginadmin\" then
SQL=\"SELECT * FROM stemmer WHERE Poll_ID =\"&Poll_ID&\" and HoldNr =\"&Request.Cookies(\"login\")(\"holdnr\")
set RS = conn.execute( SQL )
if RS.eof then
valgtMulighed = 0
else
valgtMulighed = RS(\"Valgtmulighed\")
end if
end if
SQL \"SELECT * FROM options WHERE Poll_ID =\"&Poll_ID&\" order by MulighedNr ASC\"
set RS = conn.execute( SQL )
if RS.eof then
response.write \"<tr><td>Fejl i Poll-data.</td></tr>\"
mulighed = RS(\"MuligehedNr\")
beskrivelse = RS(\"Beskrivelse\")
if not valgtMulighed = 0 then
set conn2 = server.creatoobject(\"ADODB.connection\")
conn2.open strDSN
end if
else
while not RS.eof do
if valgtMulighed = 0 then
response.write \"<tr><td valign=center>\"
response.write \"<input name=\'pollchoice\' type=radio value=\'\"& mulighed &\"\'></td>\"
response.write \"<td>\"& beskrivelse &\"</td></tr>\"
else
SQL = \"SELECT count(Poll_ID) FROM stemmer WHERE Poll_ID=\"&Poll_ID&\" AND mulighed=\" & mulighed
set RS2 = conn2.execute( SQL )
response.write \"<tr><td valign=center>\"
response.write \"<b>\"& RS(\"Poll_ID\") & \"</b></td><td>\" & beskrivelse & \"</td></tr>\"
end if
RS.movenext
loop
if not valgtMulighed = 0 then
RS2 = null
conn2.close
end if
if valgtMulighed = \"null\" then
response.write \"<tr><td colspan=2>Log ind for at stemme</td></tr>\"
end if
end if
response.write\"</table>\"
end if
RS = null
conn.close
%>
