Jag har kollat igenom denna kod ganska länge nu men hittar inte felet. Här är koden.
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("community.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select \* From members WHERE username = '"&session("username")&"'"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
If RecSet("poang") \< 100 Then
Response.Write "\<b\>\<font color=#FF0000\>Du har tyvärr inte råd med denna vara. \<br\>Det
fattas "
summa = 100 - Recset("poang")
%\> \<% =summa%\> poäng.\<%
Else%\>
\<b\>\<a href="affarsmileys.asp?vad=kop"\>Klicka här för att köpa denna vara\</a\>\</b\>
\<%
End If
**If Request.Querystring("vad") = "kop" Then**
If RecSet("poang") \< 100 Then
Response.Write "Du har inte över 100 poäng och därför kan du inte köpa denna
vara."
ElseIf
RecSet.Close
Addera = "Select \* From affar"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
If RecSet("medlemsid") = Session("id") Then
Response.Write "Du har redan köpt denna vara och därför kan du inte köpa den
igen."
End If
Else
RecSet.Close
Addera = "Select \* From affar"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.Addnew
RecSet("medlemsid") = Session("id")
RecSet("smileys") = "ja"
RecSet.Update
Response.Redirect "affarsmileys.asp?vad=kopt"
End If
End If
If Request.Querystring("vad") = "kopt" Then
Response.Write "\<br\>\<br\>Grattis, du har nu köpt varan smileys och du kan redan nu
börja använda dem i din dagbok, när du skriver i andras gästböcker m.m.<br><br><b><i><font
size='2'> <center><a href='javascript:self.close();'>Stäng fönstret</a>"
End If
Felmeddelande:
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
/80/affarsmileys.asp, line 54
ElseIf
------^
Rad 54 är skriver med fetstil.