% set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.open "DSN=aTherapy"'', "ausman", "attractive" If request.form("btnLogin")="Login" then Rs.open "Select * from therapist where LoginID = '" & Request.form("txtTherapistLogin") & "'" & _ " and Password = '" & Request.form("txtTherapistPwd") & "'" ,Conn If not Rs.eof then Session("User")=request.form("txtTherapistLogin") Session("tname")=Rs("TherapistName") Session("special")=Rs("Specialization") Session("Password")=request.form("txtTherapistPwd") if session("User") = "sup" then response.redirect("AdminApprovedAgency.asp") Else response.redirect("ApprovedAgency.asp") End IF else errmsg="Invalid user id. or password" end if end If 'Rs.close 'conn.close 'set conn = nothing session("check")=0 %>
![]() |
|
|
![]() |
|
|
|||
|
copyright
(c) 2003 - Home Therapy
|
||||||