<% 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 %>
CLinical Epidemiology Network of Africa

 

INCLEN-AFRICA.org
INCLEN-AFRICA.org
 Today:  <%=date()%>


Mission Statement

IA Clinical Epidemiology Units

Organization Structure and Membership


Future plans


CEU Updates


IA Bulletin Board


News Letters


IA Training Programs


IA Brochure


Photo Album


Links


Contacts


Contact Us

IncleneMailAfrica

 Private Area For

IA Council 

 

 IAfrica  

Member's

 DBase 

 

 

   

 

 

  Under 

 

Construction

 



Copyright©2008 INCLEN-Africa
All Rights Reserved

Visitor Number
Free Web Site Counters