Vad är det för fel här:

Set RecSetUpdate = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM Textbas WHERE ID = " & RecSet("Id") & " "
RecSetUpdate.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic

RecSetUpdate("ReadS") = RecSet("ReadS") + 1

RecSetUpdate.Update
RecSetUpdate.Close

---------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'

[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword 'Print'.

/NoN/read.asp, rad 24


Rad 24 är "RecSetUpdate.Update"

Skipa recordsetet. Det är onödigt:
<code>

Uppdatera = "UPDATE Textbas SET ReadS = ReadS + 1 WHERE ID = " & RecSet("Id")
Connect.Execute Uppdatera

</code>