Help! Expected end of statement

Wahoo! 

Finally it works!!!

Thank you MorningZ and ljamal for all you help, wisdom and criticism .  THANK YOU THANK YOU THANK YOU!!!!!

Have a good weekend.

<%

'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 [ticText] = '" Replace( Request.QueryString("TicText"),"'","''" ) "' WHERE line = " & Cint( Request.QueryString("line"))

adoCon.Execute( strTicker )

'Reset server objects

Set adoCon = Nothing

'Return to the update select page incase another record needs deleting

Response.Redirect "tAdmin.asp"

%>