Function checkuser(user)
user = "" & user
SET RStyp = MinCon.Execute("SELECT vip FROM person WHERE username='" & user & "'")
IF RStyp("vip") = "ja" THEN
user = user & " <IMG SRC=""pictures/vip.gif"" BORDER=""0"" ALT=""V.I.P Medlem"">"
END IF
checkuser = user
End Function
Får detta felmeddelande:
Feltyp:
(0x80020009)
Felaktig variabeltyp.
/LMG/txt/databas.txt, line 65
Function checkuser(user)
user = "" & user
SET RStyp = MinCon.Execute("SELECT vip FROM person WHERE username='" & user & "' and vip = 'ja'" )
if not RStyp.eof then
user = user & " <IMG SRC=""pictures/vip.gif"" BORDER=""0"" ALT=""V.I.P Medlem"">"
end if
checkuser = user
End Function