<%
function loginForm()
response.write ""
response.write ""
response.write "
"
end function
function displayEmail()
response.write "Email us for log-in information to view our many class locations. "
end function
if Request.Form("username") = "guest" AND Request.Form("password") = "music" then
%>
<%
for each section in arrCategories
Response.write ""
'if section <> arrCategories(lenCategories) then
'Response.write " | "
'end if
next
on error resume next
Dim obj_Conn, obj_Rec
Dim booDataFound
set obj_Rec = Server.CreateObject("ADODB.Recordset")
obj_Rec.open "select * from classes order by category,position", strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
for each category in arrCategories
Response.write "" & category & ""
booDataFound = 0
While Not obj_rec.EOF
if obj_Rec("category") = category then
dim address1, address2, telephone, url, email
address1 = obj_Rec("address1")
address2 = obj_Rec("address2")
telephone = obj_Rec("telephone")
url = obj_Rec("url")
email = obj_Rec("email")
response.Write "
"
response.Write obj_Rec("school") & "
"
if obj_Rec("description") <> "none" then
response.write obj_Rec("description") & "
"
end if
if not IsNull(address1) then
response.write address1 & "
"
end if
if not IsNull(address2) then
response.write address2 & "
"
end if
response.write obj_Rec("city") & ", " & obj_Rec("state") & " " & obj_Rec("zip") & "
"
if not IsNull(telephone) then
response.write telephone & "
"
end if
if not IsNull(url) then
response.write "" & url & "
"
end if
if not IsNull(email) then
response.write "" & email & "
"
end if
response.write " "
booDataFound = 1
end if
obj_Rec.moveNext
Wend
if booDataFound = 0 then
Response.Write "No items available at this time.
"
end if
obj_Rec.moveFirst
if category <> arrCategories(lenCategories) then
response.write " "
end if
next
dbErrors(obj_Rec)
obj_Rec.close
set obj_Rec = Nothing
else
if Request.Form("username") <> "" OR Request.Form("password") <> "" then
response.write "The username and/or password that you provided is incorrect. Please try again."
end if
loginForm()
displayEmail()
end if
%>
|
