<%@ LANGUAGE="VBSCRIPT" %> <% If NOT (Session("verified")) then 'failed the session verify Response.Redirect("elogon.asp") end if %> WADS STORE FINDER v3 <% On Error Resume Next 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) %>

" face="arial">

Please enter 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") ) %>


<% adminQuery.Close conn.Close %>