VB Code:
<html>
<head>
<title>New Page 2</title>
</head>
<body topmargin="0" leftmargin="0">
<!!--#include virtual="/adovbs.inc"-->
<%
Dim objConn
Dim counter ' TO COUNT RETURNED RECORDS
counter = 0
curDir = Server.MapPath("misc/db1.mdb")
set objconn = Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")
Response.write curDir
objconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & curDir
objrs.cursorLocation = 3
objrs.CursorType = 2
objrs.LockType = 4
ss="update guest set Name='gg' where sno=3"
objconn.execute ss
Response.write curDir
Response.write"<br>"
Response.write objconn
Response.write"<br>"
objConn.Close
%>
</body>
</html>