<% ID = 1 %>
<% varName = "Ramesh Thiruchelvam" %> <% varEmail = "ramesh_thiru@yahoo.com" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" SQL = "SELECT fldAuto, fldName, fldEmail FROM tbl WHERE (fldAuto = " & ID & ")" rs.Open SQL, Conn, 1, 3 rs.Fields("fldName") = varName rs.Fields("fldEmail") = varEmail rs.Update %> |