MinCon.Execute

Hej, här kommer en kodsnutt!

<%
	Set MinCon = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
	MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb")
	
	Const perSida = 10
	Sidan = Request.QueryString("sida")
	If Sidan = "" then 
	sida = 1 
	Else 
	sida = Sidan 
	
	End If 
	
	With rs
	  .CursorLocation = 3
	  .CacheSize = perSida 
	End With
	
	SQL = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By ID DESC"
	
	MinCon.execute("update gb set read=1 where tillid = "&Session("id") ) 
	
	rs.Open SQL, MinCon
	
	With rs
	  .MoveFirst 
	  .PageSize = perSida 
	  .AbsolutePage = sida
	End With
	
	Sidor =  rs.PageCount
	
	Count = 0 
	
	color = "#9A8C81"
	Do While Not rs.EOF And Count < rs.PageSize 
	If color = "#786B61" Then
	color = "#9A8C81"
	Else
	color = "#786B61"
	End If	
	
	%>

Följande fel:

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error in UPDATE statement.
/jobb/theevents.net/read_gb.asp, line 30

Alltså fel på denna raden:

MinCon.execute("update gb set read=1 where tillid = "&Session("id") )

Jag blir inte klok på det! Tack på förhand!

eller finns det någon annan lösning på det som rad 30 gör ? - sätter read som 1 om fältet tillID matchar session("id")

Det är så att read är ett reserverat ord i ODBC. Allra helst; byt namn på fältet. I värsta fall, sätt hakparenteser runt i SQL-frågan: [read].

mvh