Home About Us Committee Directory Photo Gallery Articles Feedback Contact Us

Directory
 

 
Copyrights 2007 KVO Parichay All Rights Reserved.                                                                Powered By


 

<% End Sub Sub CheckLogin Dim Conn, cStr, sql, RS, username, userpwd,xdt username = Request.Form("username") userpwd = Request.Form("userpwd") Set Conn = Server.CreateObject("ADODB.Connection") cStr = "DRIVER={Microsoft Access Driver (*.mdb)};" cStr = cStr & "DBQ=" & Server.MapPath("kvoparichay.mdb") & ";" Conn.Open(cStr) sql = "select username,password,PResStatus from member_master where val(username) = '" & username & "'" sql = sql & " and password = '" & LCase(userpwd) & "'" Set RS = Conn.Execute(sql) If RS.BOF And RS.EOF Then Error_Msg = "Login Failed. Try Again." ShowLogin Else xdt = date + time response.write xdt 'rs.fields("PResStatus") = xdt 'rs.update Session("UserLoggedIn") = "true" session("username") = username Response.Redirect "mem_log.htm" End If End Sub %>