<% dim un, pwd un=Request.Form("userName") pwd=Request.Form("passwd") 'Response.write("1") if trim(un)="" or trim(pwd)="" then SHOWERROR() else dim cn,rs set cn=CreateObject("ADODB.Connection") set rs=CreateObject("ADODB.Recordset") cn.Open "Provider=SQLOLEDB;Data Source=66.98.208.234;Initial Catalog=road;uid=roadsafetyin;password=roadsafety;Persist Security Info=False" rs.cursortype = adOpenStatic rs.Open "SELECT * FROM users WHERE Upper(username)='" & UCase(un) & "' AND password='" & pwd & "'",cn if not rs.EOF then 'Response.Write ("User Found.") userFound() 'Window.Open("n.asp") else SHOWERROR() end if end if sub userFound() dim rs1, sr set rs1=CreateObject("ADODB.Recordset") rs1.Open "SELECT * FROM userInfo WHERE upper(username)='" & ucase(un) & "'",cn Response.Write("::Welcome to Road Safety . . .") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
Welcome ") Response.Write(" " & rs1.Fields(1) & "
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
Personal ") Response.Write(" Information
Vehicle ") Response.Write(" Information
Insurance ") Response.Write(" Information
PUCC ") Response.Write(" Information
Account ") Response.Write(" Information
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
PERSONAL ") Response.Write(" INFORMATION
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") sr=mid(rs1.Fields(2),1,2) select case mid(rs1.Fields(2),3,2) case "01" sr = sr & " January" case "02" sr = sr & " February" case "03" sr = sr & " March" case "04" sr = sr & " April" case "05" sr = sr & " May" case "06" sr = sr & " June" case "07" sr = sr & " July" case "08" sr = sr & " August" case "09" sr = sr & " Sepetember" case "10" sr = sr & " October" case "11" sr = sr & " November" case "12" sr = sr & " December" end select sr = sr & " " & mid(rs1.Fields(2),5) Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
Name:") Response.Write(" " & rs1.Fields(1) & "  
Date of Birth:" & sr & "  
Address:" & rs1.Fields(3) & " 
Email ID:" & rs1.Fields(4) & "  
Phone No:" & rs1.Fields(5) & "  
  
Edit ") Response.Write(" Information
    
    
    
    
    
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
      Home  ") Response.Write(" |  Look Inside  | Privacy |  Site map   |  Contact us
       All rights reserved ") Response.Write(" © 2006 - Road Safety Powered By: PROVAB
") end sub SUB SHOWERROR() Response.Write("::Welcome to Road Safety . . .") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
Error in Login
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
  
User ") Response.Write(" Name or Passwword Cannot be left blank.
Also check CapsLOCK key.
  
 Please Re-enter ") Response.Write(" User Name & Password.
  
 ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
:: Login
User ") Response.Write(" Name
Password
 
") Response.Write(" Forgot Password
") Response.Write("
 
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("
      Home  ") Response.Write(" |  Look Inside  | Privacy |  Site map   |  Contact us
       All rights ") Response.Write(" reserved © 2006 - Road Safety Powered By: PROVAB ") Response.Write("
") 'showError() END SUB %>