<%@ LANGUAGE="VBSCRIPT" %> Bullseye PRO Dealer Locator version 2.0

<% If ((Request("op") = "update") OR (Request("op") = "addnew")) Then Set qLogin = Request("qLogin") Set qPassword = Request("qPassword") Else Set qLogin = Request("Login") Set qPassword = Request("Password") End If Set conn = Server.CreateObject("ADODB.Connection") ' conn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") ' conn.CommandTimeout = Session("DataConn_CommandTimeout") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\islamicbase.mdb" adminSQL = "SELECT * FROM AdminInfo;" Set adminQuery = Conn.Execute(adminSQL) If ((qLogin = adminQuery("Login")) AND (qPassword = adminQuery("Password"))) Then %>
" face="arial">

Please enter company information.
Login">
Password">
User Defined Field 1">
User Defined Field 2">
User Defined Field 3">

> Use Mapping Feature "> Select a Hex Color



<% Else %>
Username: Please enter a login and password to gain access to the administration system.
Password:
 
<% End If %>