detta är intVip
ID=request.querystring("userID")
set varID=objConn.Execute("SELECT * FROM tblUsers WHERE userID ="& ID)
if (varID("vip") = 1) then
intVIP = 10
else
intVIP = 5
end if
med denna kod okommenterad
<%If intCount < intVIP then
Response.Write "<span class=""brodtext"">"& strText &"</span>"
'response.write intCount
Else
Response.Write "<br><span style=""font:Arial, Helvetica, sans-serif; color:#FF0000; font-weight:bold;"">"
Response.Write "Du har för många uppladdade bilder i galleriet var vänlig radera en del, max är "& intVIP &", du har "& intCount &" bilder"
Response.Write "</span>"
End If%>
blir resultatet
Microsoft VBScript runtime error '800a000d'
Type mismatch
/Gallery/Default.asp, line 161
rad 161 är If intCount < intVIP then
