%@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
%>
Pennsylvania lawyer, Lawyer Find Network, Locate an attorney, or Find a law firm in the nation's fastest growing legal directory, Lawyerfind Network
Pennsylvania
Lawyer -
Search for a lawyer in your area that you help with your case
Connecting yo u to
trusted legal
resources from
across the US
fastest Growing
legal directory
Quick & Easy search of Pennsylvania lawyers
Direct Connect - secure legal requests directly
to lawyers
Fastest growing Pennsylvania legal directory in the State
<%
rsPracticeAreas.Close()
Set rsPracticeAreas = Nothing
%>
<%
rsCounties.Close()
Set rsCounties = Nothing
%>