I appreciate you help on this... your an asset to WebWiz!
I don't mean to be such a rookie on this.
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsUpdateEntry 'Holds the recordset for the record to be updated
Dim strTicker 'Holds the SQL query for the database
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ticker.mdb")
'Initialise the strSQL variable with an SQL statement to query the database
strTicker = "UPDATE ticker1 SET [text] = '" & Replace( Request.QueryString("TicText"),"'","''" ) & "'" WHERE line = " & Cint( Request.QueryString("line");" _ Is the only thing I have added. And I ahve tried not having it and making the ; after the ".
adoCon.Execute( strTicker )
'rsUpdateEntry.Fields("line") = request.form("line")
'rsUpdateEntry.Fields("text") = request.form("TicText")
'Return to the update select page incase another record needs deleting
Response.Redirect "tAdmin.asp"
'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing
%>
Still produces:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/lab/test/testTicker.asp, line 31, column 103
strTicker = "UPDATE ticker1 SET [text] = '" & Replace( Request.QueryString("TicText"),"'","''" ) & "'" WHERE line = " & Cint( Request.QueryString("line");
------------------------------------------------------------------------------------------------------^