<%
Dim conn1, rec, sSql, sStr
Set conn1 = Server.CreateObject("ADODB.Connection")
Set rec = Server.CreateObject("ADODB.Recordset")
With rec
.CursorType = 3
.CursorLocation = 3
.LockType = 3
End With
conn1.Open Application("constr")
'' if isEmpty(Request.Form("Submit")) then
if Trim(Request("hidsub")) <> "" then
Ssql="SELECT * FROM client WHERE cl_email = '" & Trim(Request("cl_email")) & "' AND cl_password = '" & Trim(Request("cl_password")) & "' AND block_status = 'Y'"
rec.Open Ssql,conn1
if rec.RecordCount = 1 then
Session("cluser")=Trim(Request("cl_email"))
session("clname")=rec("cl_name")
Session("clid")=rec("id")
rec.close
' Request("hidsub")=""
response.Redirect("inquiry_transaction.asp")
else
erro="User name password is incorrect"
end if
' response.End()
end if
%>
Shreyas: A Boutique Yoga Retreat in Bangalore, India
