Sun ONE ASP VBScript runtime (0x800A000D)
Jeg er igang med et forum til noget rollespils værk, og når jeg logger ind får jeg denne fejl:Technical Information (for support personnel)
* Error Type:
Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch
/Broderskabet/index.asp, line 91
linjen der er snakke om er denne:
set rs3 = Conn.Execute(SQL)
Jeg kan simpelthen ikke se fejlen... tror efterhånden jeg har stirret mig blind:P
hele indexfilen:
<!-- #include file="Top.txt" -->
<!-- #include file="Hvidsmil.asp" -->
<%
if session("Fuldstatus") = 0 then
strSQL = "SELECT * from Bruger where id=" & session("id") & ""
set rs22 = Conn.Execute(strSQL)
tid = DateDiff("h",""&rs22("Oprettet")&"",""&now()&"")
if int(tid) > 143 then
strsql="update Bruger set Status=1 where id="& session("id") &""
conn.execute(strsql)
session("Fuldstatus") = 1
End if
'response.write tid
End if
klannavn = rsklannavn("klannavn")
sql="select count( * ) as Antal from Bruger where klan = "& int(session("klan")) &" and Godkendt = 'Ja'"
set rs3 = Conn.Execute(sql)
response.write "<font size=""6"">Velkommen til "&klannavn&"´s side</font><br><br>"
strSQL = "SELECT * from Raids where klan = "& int(session("klan")) &" order by Dato"
set rs = Conn.Execute(strSQL)
if rs.eof then
Response.write "Der er ingen spilletider besluttet lige for tiden.."
else
do until rs.eof
tidspunkt = replace(rs("kl"),".",":")
StartDato = ""&rs("dato")&"-2006 "&tidspunkt&":00"
tid = DateDiff("n",""&StartDato&"",""&now&"")
tid = tid / 10
tureduskalha = int(tid) + 200
if tureduskalha > 200 then
response.write "<font size=""3"" color=""red""></font><br>"
elseif tureduskalha < 1 then
response.write "<font size=""3"" color=""red""></font><br>"
else
'response.write "<font size=""3"" color=""black""> <i>"& tureduskalha &"</i> </font><br>"
End if
If rs("Fjende") <> "" then
Fjende = rs("fjende")
else
Fjende = "Ikke angivet"
End if
response.write "<font size=""4"">Næste spillegang "&rs("UgeDag")&" den "&rs("Dato")&" kl "&rs("kl")&" i "&Fjende&"</font><br>"
SQL2 = "SELECT * from Raidtilmeldinger where raid = "&rs("id")&" and Stamme = "& int(session("id")) &""
set rs2 = Conn.Execute(SQL2)
if rs2.eof then
Response.write "Lige nu har du ikke meldt om du kommer eller ej<br>"
else
Response.write "Lige nu har du meldt at du "& rs2("Udmelding") &"<br>"
End if
%>
<input type="submit" value="Jeg kommer" onclick="java script:location.href='Omkommer.asp?svar=Ja&Raid=<%=rs("id")%>'">
<input type="submit" value="Jeg kommer Ikke" onclick="java script:location.href='Omkommer.asp?svar=Nej&Raid=<%=rs("id")%>'">
<br>
<%
rs.movenext
Loop
End if
SQL = "SELECT Faellesbesked.Besked, Faellesbesked.Dato, Faellesbesked.Fra, Bruger.id, Bruger.Stammenavn FROM Faellesbesked INNER JOIN Bruger ON Bruger.id=Faellesbesked.Fra where Faellesbesked.klan = "& session("klan") &""
set rs3 = Conn.Execute(SQL)
response.write "<table bgcolor=""#C0C0C0"" border=""0"" bordercolor=""#003300"" width=""70%"" height=""50%"">"
response.write "<tr height=""1%""><td><font size=""4""></font></td></tr>"
response.write "<tr width=""100%"" height=""90%"" align=""left"" valign=""top"" bgcolor=""black""><td><font size=""3"" color=""White"">"& smiley(rs3("Besked"))&"</font></td></tr>"
response.write "<tr height=""1%""><td><font size=""2""><i></i></font></td></tr>"
response.write "</table>"
Conn.Close
Set Conn = Nothing
%><!-- #include file="Bund.txt" -->