<%@ LANGUAGE="VBSCRIPT" %> <% If NOT (Session("verified")) then 'failed the session verify Response.Redirect("elogon.asp") End if %> 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 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") & ";" ) ' used to get the color and the 3 user fields ' by moving these fields to the COmpanies we will have one less open conn to make and ' give customized features per record adminSQL = "SELECT * FROM AdminInfo;" Set adminQuery = Conn.Execute(adminSQL) %>

" 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.smartlocator.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") ) %>
">
<% rs.Close adminQuery.Close conn.Close %>