Körningsfel i Microsoft VBScript error '800a000d'
Inkompatibla typer: 'cint'
/default.asp, line 147
Fick det inte förrut förrän jag lade till en ny röstning.
<%
SQLstmt = "SELECT * FROM rosta order by id desc"
Set rs = nothing
set rs = databas.execute(sqlstmt)
id = rs("id")
if cint(request.cookies("dannerocookie")) <> id then
%>
<p>
<p><b><font size="2" face="Georgia"><img src='img/bit7.gif' border='0' width="13" height="14"> Omröstning</font></b><br>
<%
response.write rs("fraga")&""
%>
</td>
</tr>
<tr>
<td>
<form method="post" action="rosta.asp">
<input type="hidden" name="id" value="<%=rs("id")%>">
<select size="1" name="rosta">
<option value="ja">Ja</option>
<option value="nej">Nej</option>
<option value="vetej">Vet ej</option>
</select>
<input type="submit" name="submit" value="Rösta"></form>
<%
elseIF id = cint(request.cookies("dannerocookie")) then
%>
<%
response.write "<p><b><font size='2' face='Georgia'><img src='img/bit7.gif' border='0' width='13' height='14'> Omröstning</font></b><br>"
response.write "<i>"&rs("fraga")&"</i><br>"
response.write "Ja: <b>"&rs("ja")&"</b>.<br>"
response.write "Nej <b>"&rs("nej")&"</b>.<br>"
response.write "Vet ej: <b>"&rs("vetej")&"</b>.<br>"
response.write "Totalt: "&rs("ja")+rs("nej")+rs("vetej")&"."
end if
%>
Där är då själva sidan som visar ut, jag antar det det är den som felar. Men jag visar rosta.asp också.
<%
SQL="SELECT * FROM Rosta order by id desc"
set rs=databas.execute(sql)
id=rs("id")
id2=request.form("id")
varde = request.form("rosta")
if varde = "nej" then
response.cookies("dannerocookie") = id
response.cookies("dannerocookie").expires = #December 30, 2020#
SQL = "UPDATE rosta set nej = nej +1 where id="&id2
databas.execute(sql)
response.redirect("default.asp")
elseif varde = "ja" then
response.cookies("dannerocookie") = id
response.cookies("dannerocookie").expires = #December 30, 2020#
SQL = "UPDATE rosta set ja = ja +1 where id="&id2
databas.execute(sql)
response.redirect("default.asp")
elseif varde = "vetej" then
response.cookies("dannerocookie") = id
response.cookies("dannerocookie").expires = #December 30, 2020#
SQL = "UPDATE rosta set vetej = vetej +1 where id="&id2
databas.execute(sql)
response.redirect("default.asp")
end if
%>
Vore ju om någon kunde förklara för mig vad jag har gjort fel.
Då funkade det kanon och allt, men jag vet inte.. alls bombsäkert på hur cookien fungerar vet bara att man sparar variablar i dom lr?
Det är ett mycket konstigt fel det här. Det funkade först, sedan då jag lade till en ny röstning så vart det felande. Kan det bero på att dannerocookie har fortfarande samma värde. 1 d.vs.
?