Hvorfor virker det ikke ??
if Request(\"spark\") = \"Ban\" thenSet Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chat.mdb\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
kickSQL = \"Select * from online where nick = \'\" & sparkes & \"\'\"
rs.Open kickSQL, Conn, 1, 3
rs.delete
rs.close
Set rs = nothing
\'Linje 47 neden for :
Sql = \"INSERT INTO users (ip,banned) values (\'\" & ip & \"\',\'Y\') Where nick=\'\" & sparkes & \"\'\"
Conn.Execute(SQL)
kick = sparkes & \" er blevet sparket kl. \" & Time() & \"\"
Sql = \"INSERT INTO chat (modtager,afsender,besked,font) values (\'Alle\',\'Chatten\',\'\" & kick & \"\',\'#0000FF\')\"
Conn.Execute(SQL)
Conn.close
Set Conn = Nothing
end if
-----------
Fejlen :
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'
[Microsoft][ODBC Microsoft Access-driver] Der mangler et semikolon (;) i slutningen af SQL-sætningen.
/chat/send.asp, linje 47
