<% ' BEGIN USER CONSTANTS Dim CONN_STRING Dim CONN_USER Dim CONN_PASS ' -------------------------------------------------------------------- ' NOTE: Change the CONN_STRING below to match the DSN for this client. ' -------------------------------------------------------------------- 'CONN_STRING = "DSN=agentlocator;" CONN_STRING = "DBQ=" & Server.MapPath("agentlocator.mdb") & ";" CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};" '--------------------------------------------------------------- ' This DB is unsecured, o/w you'd need to specify something here '--------------------------------------------------------------- CONN_USER = "" CONN_PASS = "" 'Our SQL code - overriding values we just set - comment out to use Access 'CONN_STRING = Application("SQLConnString") 'CONN_USER = Application("SQLUsername") 'CONN_PASS = Application("SQLPassword") ' END USER CONSTANTS '------------------- ' BEGIN RUNTIME CODE ' Declare our vars '------------------- Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim strSQL 'SQL command to execute Dim objPagingConn 'The ADODB connection object Dim RS 'The ADODB recordset object Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var Dim strCompanyName 'Name to display on results pages. '------------------------------------------------------- ' Build our SQL String using the parameters we just got. '------------------------------------------------------- strSQL = "SELECT DISTINCT Agencies.COUNTY FROM Agencies ORDER BY Agencies.COUNTY;" ' Now we finally get to the DB work... ' ------------------------------- ' Create and open our connection ' -------------------------------- Set objPagingConn = Server.CreateObject("ADODB.Connection") objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS ' ---------------- ' Create recordset ' ---------------- Set RS = Server.CreateObject("ADODB.Recordset") ' ------- ' Open RS ' ------- Set RS=objPagingConn.Execute(strSQL) %> Alliance Mutual Insurance Company | North Carolina | Finance

Company Profile

About Alliance Mutual
President's Report
Financial Info
Officers & Directors

Products

Personal
Small Business

News

Find an Agent

Useful Resources

Make a Payment

Get a Quote

Job Center

Safety Tips

Contact Alliance

Home

Agent Locator


Select a county from the dropdown list or map below to find an agent in your area.


Search the site

Sitemap

Glossary


Login
Password

© Copyright 2004, Alliance Mutual Insurance Company
Site design by NAMIC Web Services