<%
Response.CacheControl = "no-cache"
'Get Search Phrase
searchFor = Trim (Request ("searchFor"))
Set cnn1 = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("\data\Directory.mdb")
cnn1.Open openStr,"",""
sql = "SELECT Full, title, Phone FROM [clk] Where title like '%civil%' " &_
"Order by levelemp, Name "
Set rsMbrs = Server.CreateObject("ADODB.Recordset")
rsMbrs.Open sql, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText
%>
Clerk of Superior Court
|
|
CLERK OF SUPERIOR COURT CIVIL DOCKET
| Name |
Division |
Phone |
<%
Do While Not rsMbrs.EOF
%>
| <%=Server.HTMLEncode(rsMbrs.Fields(0).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(1).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(2).Value)%> |
<%
rsMbrs.MoveNext
loop
rsMbrs.Close
Set rsMbrs = Nothing
cnn1.Close
Set cnn1 = Nothing
%>
|
|
|
| |
