<%
Function strPhone(myStr)
If Len(myStr) = 10 Then
myStr = "(" & Left(myStr, 3) & ") " & Mid(myStr, 4, 3) & "-" & Right(myStr, 4)
Else
End If
strPhone = myStr
End Function
Dim Connect, rs, rsCount
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open strConnect
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM CountyHeadquarters WHERE County = '" & request.form("county") & "'", Connect
If rs.EOF Then
Else
response.write "Party Headquarters
"
If IsNull(rs("Add1")) or IsEmpty(rs("Add1")) or Trim(rs("Add1")) = "" Then
Else
response.write rs("Add1") & "
"
End If
If IsNull(rs("Add2")) or IsEmpty(rs("Add2")) or Trim(rs("Add2")) = "" Then
Else
response.write rs("Add2") & "
"
End If
If IsNull(rs("City")) or IsEmpty(rs("City")) or Trim(rs("City")) = "" Then
Else
response.write rs("City") & ", Tennessee "
End If
If IsNull(rs("Zip")) or IsEmpty(rs("Zip")) or Trim(rs("Zip")) = "" Then
Else
response.write rs("Zip") & "
"
End If
If IsNull(rs("Phone")) or IsEmpty(rs("Phone")) or Trim(rs("Phone")) = "" Then
Else
response.write "Phone: " & strPhone(rs("Phone")) & "
"
End If
If IsNull(rs("Fax")) or IsEmpty(rs("Fax")) or Trim(rs("Fax")) = "" Then
Else
response.write "Fax: " & strPhone(rs("Fax")) & "
"
End If
If IsNull(rs("Email")) or IsEmpty(rs("Email")) or Trim(rs("Email")) = "" Then
Else
response.write "" & rs("Email") & "
"
End If
response.write "
"
End If
rs.Close
rs.Open "SELECT * FROM webCounty WHERE County = '" & request.form("county") & "'", Connect, 3
If Not rs.EOF Then
rsCount = rs.RecordCount
If rs.RecordCount = 1 Then
response.write "Web Site
"
response.write rs("Org") & ":"
response.write "" & rs("Link") & "
"
Else
response.write "Web Sites
"
Do Until rs.EOF
response.write rs("Org") & ":"
response.write "" & rs("Link") & "
"
rs.MoveNext
Loop
response.write "
"
End If
Else
End If
rs.Close
rs.Open "SELECT * FROM displayCounty WHERE County = '" & request.form("county") & "'", Connect
Do Until rs.EOF
response.write "" & rs("Office") & " " & rs("Year") & "
"
response.write rs("Title") & " " & rs("First Name") & " " & rs("Last Name") & "
"
If IsNull(rs("Address 1")) or IsEmpty(rs("Address 1")) or Trim(rs("Address 1")) = "" Then
Else
response.write rs("Address 1") & "
"
End If
If IsNull(rs("Address 2")) or IsEmpty(rs("Address 2")) or Trim(rs("Address 2")) = "" Then
Else
response.write rs("Address 2") & "
"
End If
If IsNull(rs("City")) or IsEmpty(rs("City")) or Trim(rs("City")) = "" Then
Else
response.write rs("City") & ", Tennessee "
End If
If IsNull(rs("ZIP")) or IsEmpty(rs("ZIP")) or Trim(rs("ZIP")) = "" Then
Else
response.write rs("ZIP") & "
"
End If
If IsNull(rs("Home Phone")) or IsEmpty(rs("Home Phone")) or Trim(rs("Home Phone")) = "" Then
Else
response.write "Phone: " & strPhone(rs("Home Phone")) & "
"
End If
If IsNull(rs("Work Phone")) or IsEmpty(rs("Work Phone")) or Trim(rs("Work Phone")) = "" Then
Else
response.write "Work Phone: " & strPhone(rs("Work Phone")) & "
"
End If
If IsNull(rs("FAX")) or IsEmpty(rs("FAX")) or Trim(rs("FAX")) = "" Then
Else
response.write "Fax: " & strPhone(rs("FAX")) & "
"
End If
If IsNull(rs("E-mail")) or IsEmpty(rs("E-mail")) or Trim(rs("E-mail")) = "" Then
Else
response.write "E-mail: " & rs("E-mail") & "
"
End If
response.write "
"
rs.MoveNext
Loop
rs.Close
%>
|
<%
rs.Open "SELECT * FROM state ORDER BY Body DESC"
Do While Not rs.EOF
If InStr(rs("Counties"), request.form("county")) Then
If rs("Body") = "Senate" Then
response.write "State Senator"
ElseIf rs("Body") = "House" Then
response.write "State Representative
"
Else
End If
response.write rs("Name") & "
"
If IsNull(rs("URL")) or Trim(rs("URL")) = "" Then
Else
response.write "Web Site
"
End If
response.write "
"
End If
rs.MoveNext
Loop
rs.Close
rs.Open "SELECT * FROM SEC", Connect
Do While Not rs.EOF
If InStr(rs("County"), request.form("county")) Then
response.write "State Executive Committee Member
"
response.write rs("Title") & " " & rs("FirstName") & " " & rs("LastName") & "
"
If IsNull(rs("Address1")) or IsEmpty(rs("Address1")) or Trim(rs("Address1")) = "" Then
Else
response.write rs("Address1") & "
"
End If
If IsNull(rs("Address2")) or IsEmpty(rs("Address2")) or Trim(rs("Address2")) = "" Then
Else
response.write rs("Address2") & "
"
End If
If IsNull(rs("City")) or IsEmpty(rs("City")) or Trim(rs("City")) = "" Then
Else
response.write rs("City") & ", Tennessee "
End If
If IsNull(rs("PostalCode")) or IsEmpty(rs("PostalCode")) or Trim(rs("PostalCode")) = "" Then
Else
response.write rs("PostalCode") & "
"
End If
If IsNull(rs("Home Phone")) or IsEmpty(rs("Home Phone")) or Trim(rs("Home Phone")) = "" Then
Else
response.write "Phone: " & strPhone(rs("Home Phone")) & "
"
End If
If IsNull(rs("Work Phone")) or IsEmpty(rs("Work Phone")) or Trim(rs("Work Phone")) = "" Then
Else
response.write "Work Phone: " & strPhone(rs("Work Phone")) & "
"
End If
If IsNull(rs("Fax")) or IsEmpty(rs("Fax")) or Trim(rs("Fax")) = "" Then
Else
response.write "Fax: " & strPhone(rs("Fax")) & "
"
End If
If IsNull(rs("Email")) or IsEmpty(rs("Email")) or Trim(rs("Email")) = "" Then
Else
response.write "E-mail: " & rs("Email") & "
"
End If
response.write "
"
Else
End If
rs.MoveNext
Loop
Set rs = Nothing
Connect.Close
Set Connect = Nothing
%>
|
