The Music Path Company

MusicStart® Sites


<% function loginForm() response.write "
" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "username:
" response.write "

" response.write "password:
" response.write "

" response.write "

" 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 "

" & section & "

" '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 %>