Clinical Epidemiology Network of Africa, INCLEN Africa

<% Session("inv")=" " %> <% Session("user")= "" %> <%Dim Conn%> <%Dim sql%> <%Dim rsrecords%> <%set conn = server.CreateObject("ADODB.Connection")%> <%DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="%> <%DSNName = DSNName & Server.MapPath("my_db.mdb")%> <%conn.Open DSNName%> <%If len(Request.form("UserName")) <> 0 Then%> <% sql="SELECT * FROM ulogin where mname ='" &ucase(request.form("UserName"))&"' " %> <% set rsrecords = conn.execute(sql)%> <% If Not Rsrecords.EOF Then %> <% If Ucase(Request.form("UserPassword"))=Ucase(rsrecords("mpassword")) Then %> <% Session("user")=rsrecords("mname") %> <% Response.Write(Session("user")) %> <% Response.Redirect("memberlogin.asp") %> <% Else %> <% Session("inv")="Invalid Password" %> <% Response.Write(Session("inv")) %> <% End If%> <% Else Session("inv")="Please Enter USER Name, EOF" Response.Write(Session("inv")) End If %> <%Else%> <%Session("inv")=" " Response.Write(Session("inv"))%> <% End If %>