sub

vad är felet med denna kod

<% Sub LaggTill()
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxxx"
sql = "Select * from tempKorg Where artikelID = " & sArtnr & ""
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn

If(rs.Eof) then
sql = "Insert Into tempKorg(sessionID,artikelID,antal) Values ('" & sSession & "', '" & sArtnr & "', '" & sAntal & "')'"
conn.Execute(sql)

Else
nAntal=rs("Antal")
tAntal=sAntal+nAntal
sql = "Update tempKorg Set Antal = " & tAntal & " Where artikelID = " & sArtnr & ""

conn.Execute(sql)

End if
conn.close
End Sub
%>

får detta fel

ADODB.Connection.1 error '80004005'

SQLState: 37000
Native Error Code: -3516
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Missing semicolon (;) at end of SQL statement.

/kundkorg.asp, line 48

Line 48 är första conn.Execute(sql)

Re: sub

[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Missing semicolon (;) at end of SQL statement.

det där talar väl sitt klara språk? sätt en ; i slutet av SQL-frågan

If(rs.Eof) then 
sql = "Insert Into tempKorg(sessionID,artikelID,antal) Values ('" & sSession & "', '" & sArtnr & "', '" & sAntal & "')" 
conn.Execute sql

Det var en apostrof efter parentesen.