<%@ 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)
%>
