|
|
<%
CityHeader = ""
Where = ""
Admin = Session("Admin")
Name = request("Name")
Email = request("Email")
City = request("City")
State = request("State")
if Name <> "" then
Where = Where & " Name like '%" & Name & "%'"
end if
if Email <> "" then
if Where = "" then
Where = Where & " Email like '%" & Email & "%'"
else
Where = Where & " and Email like '%" & Email & "%'"
end if
end if
if City <> "" then
if Where = "" then
Where = Where & " City like '%" & City & "%'"
else
Where = Where & " and City like '%" & City & "%'"
end if
end if
if State <> "" then
if Where = "" then
Where = Where & " State = '" & State & "'"
else
Where = Where & " and State = '" & State & "'"
end if
end if
if Where <> "" then
Where = "where " & Where
end if
strSql = "select * from tblGuestbook " & Where & " order by State,City,Name"
if State <> "" then
StateHeader = State
end if%>
<%do while not rs.eof
ID = rs("ID")
Name = rs("Name")
Address = rs("Address")
City = rs("city")
State = rs("state")
Zip = rs("zip")
Country = rs("Country")
Phone = rs("phone")
Email = rs("Email")
Password = rs("Password")
Website = rs("website")
Message = rs("message")
CityCaps = UCase(City)
If CityHeader <> CityCaps then
NewHeader = "Yes"
CityHeader = CityCaps
else
NewHeader = "No"
end if
if NewHeader = "Yes" then%>
| <%=CityHeader%>, <%=State%> |
<%end if
if Admin = "Yes" then%>
| >Edit User #<%=ID%> Password: <%=Password%> |
<%end if%>
| Name: |
<%=Name%> |
Comments: <%=Message%> |
| Address: |
<%=City%>
<%=State%> <%=Zip%> <%=Country%> |
| Phone |
<%=Phone%> |
<%if Admin = "Yes" then%>
| Email |
<%=Email%> |
<%end if%>
<%rs.movenext
loop
set rs = nothing
set my_conn = nothing%>
|
|
|
|