<% Dim NewCurRate ForId = request.form("TXTID") NewCurRate = request.form("TXTnewRate") '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "update forex set CurRate='" & NewCurRate & "' where CurID='" & ForId & "'" response.write SQLSearch '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 response.redirect ("viewforex.asp") %> New Page 3