%
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 name, full, title, phone FROM [TeamContacts] Order by name"
Set rsMbrs = Server.CreateObject("ADODB.Recordset")
rsMbrs.Open sql, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText
%>
Clerk of Superior Court
|
|
CLERK OF SUPERIOR COURT CRIMINAL JUDGE'S TEAM POINT OF CONTACT
| Judge |
Employee |
Title |
Phone |
<%
Do While Not rsMbrs.EOF
%>
| <%=Server.HTMLEncode(rsMbrs.Fields(0).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(1).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(2).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(3).Value)%> |
<%
rsMbrs.MoveNext
loop
rsMbrs.Close
Set rsMbrs = Nothing
cnn1.Close
Set cnn1 = Nothing
%>
|
|
|
| |