%
Dim str1, str2
str1 = request.form("T1")
str2 = request.form("T2")
Dim mrpw_cn1
set mrpw_cn1 = Server.CreateObject("ADODB.Connection")
mrpw_cn1.Provider = "Microsoft.Jet.OLEDB.4.0"
mrpw_cn1.Open(Server.Mappath(".\database\mathyardRegn.mdb"))
Dim mrpw_rs1
set mrpw_rs1 = Server.CreateObject("ADODB.Recordset")
mrpw_rs1.Open "SELECT * FROM musrDet where munm = '" & str1 & "' AND mpwd = '" & str2 & "'", mrpw_cn1, adOpenKeyset, adLockoptimistic, adCmdText
%>
|
|
|
|
|
Copyright © eClasshome 2006 |
||