%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_LawyerFind_STRING
MM_LawyerFind_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\vhosts\lawyerfind.net\httpdocs\lawyerfind\database\lawyerfind.mdb"
%>
<%
Dim rsPracticeAreas
Dim rsPracticeAreas_numRows
Set rsPracticeAreas = Server.CreateObject("ADODB.Recordset")
rsPracticeAreas.ActiveConnection = MM_LawyerFind_STRING
rsPracticeAreas.Source = "SELECT * FROM CategoryInfo ORDER BY CategoryName ASC"
rsPracticeAreas.CursorType = 0
rsPracticeAreas.CursorLocation = 2
rsPracticeAreas.LockType = 1
rsPracticeAreas.Open()
rsPracticeAreas_numRows = 0
%>
<%
Dim rsCounties__varClientID
rsCounties__varClientID = "1"
If (Request.QueryString("ClientID") <> "") Then
rsCounties__varClientID = Request.QueryString("ClientID")
End If
%>
<%
Dim rsCounties
Dim rsCounties_numRows
Set rsCounties = Server.CreateObject("ADODB.Recordset")
rsCounties.ActiveConnection = MM_LawyerFind_STRING
rsCounties.Source = "SELECT DISTINCT(CountyName), ClientID, SubscriptionInfo.CountyID, CountyInfo.CountyID FROM SubscriptionInfo, CountyInfo WHERE SubscriptionInfo.ClientID = " + Replace(rsCounties__varClientID, "'", "''") + " AND CountyInfo.CountyID = SubscriptionInfo.CountyID"
rsCounties.CursorType = 0
rsCounties.CursorLocation = 2
rsCounties.LockType = 1
rsCounties.Open()
rsCounties_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -6
Dim HLooper1__index
HLooper1__index = 0
rsCounties_numRows = rsCounties_numRows + HLooper1__numRows
%>
Find an Arizona lawyer, Lawyer Find Network, Locate an attorney, or Find a law firm in the nation's fastest growing legal directory, Lawyerfind Network
Arizona
Lawyer -
Search for a lawyer in your area that you help with your case
The information you obtain at this site is not, nor is it intended to be, legal advice. You should consult an attorney for individual advice regarding your own situation.