<%@ LANGUAGE="VBSCRIPT" %> Bullseye PRO Dealer Locator version 2.0 <% On Error Resume Next '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Set qLogin = Request("Login") Set qPassword = Request("Password") 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" set rs = conn.execute( "SELECT * FROM Companies WHERE CompanyNumber = " & Request("CompanyNumber") & ";" ) adminSQL = "SELECT * FROM AdminInfo;" Set adminQuery = Conn.Execute(adminSQL) %>

<% if rs.EOF Then %>
You must login to the system before proceeding.
<% Else ' if login is correct then output sheet %>
" face="arial">

Login successful. Please modify record.


" face="arial" size="2">Please enter business or company information:
Company Name">
Street">
 ">
City / State / Zip">">">
Country">
E-mail">
Home page Address">
  Above should be full address (ie. http://www.electricvine.com)
Telephone">
Fax">
Contact Name">
Contact Position">

" face="arial">

User Defined Fields.

" face="arial" size="2">These fields are user defined. You may define up to three fields. To define fields, go to the administration page and click on "options." Enter a name for each user field in the text boxes marked 'User Defined Field."

" face="arial" size="2">Label" face="arial" size="2">Content
<% response.write( adminQuery("User1Name") ) %> ">
<% response.write( adminQuery("User2Name") ) %> ">
<% response.write( adminQuery("User3Name") ) %>
">
<% End If ' End if login correct %> <% rs.close %>