|
|
<%
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/misc.mdb") & ";Jet OLEDB:Database password=;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
strsql = "Select * From tblpmpexamtraining"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, Conn, adOpenDynamic, adLockPessimistic
response.write rs("p1")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
|