<% databaseDirectory = server.mappath("..\fpdb\") databaseLocation = databaseDirectory & "..\..\fpdb\bands.mdb" connectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&databaseLocation set dBconnection = Server.createobject("ADODB.connection") dBconnection.open connectionString Dim oRSa, cnt Dim varVenue varBand = Request.Querystring("bbandname") Set oRSa=Server.CreateObject("ADODB.Recordset") oRSa.Open "SELECT * FROM bands WHERE bbandname LIKE '" & varBand &"%' ORDER BY gold DESC, bbandname;", dBconnection, 2, 3 ON ERROR RESUME NEXT response.write "
" Response.Write "" Response.Write "" ' A TO Z LISTING WITH RESPONSE Response.Write "" response.write "" response.write "" response.write"" response.write"" response.write"" response.write"" oRSa.MoveFirst Do While NOT oRSa.EOF If cnt = 0 Then Response.Write "" cnt = 1 Else Response.Write "" cnt = 0 End If response.write "" ' ICONS FEATURE '====================== response.write "" response.write "" response.write ("") oRSa.MoveNext Loop oRSa.Close Response.Write "
A to Z listing - Now Showing" Response.Write " " &varBand Response.Write "
" Response.Write "
" Response.Write "Numeric" &" " Response.Write "A" &" " Response.Write "B" &" " Response.Write "C" &" " Response.Write "D" &" " Response.Write "E" &" " Response.Write "F" &" " Response.Write "G" &" " Response.Write "H" &" " Response.Write "I" &" " Response.Write "J" &" " Response.Write "K" &" " Response.Write "L" &" " Response.Write "M" &" " Response.Write "N" &" " Response.Write "O" &" " Response.Write "P" &" " Response.Write "Q" &" " Response.Write "R" &" " Response.Write "S" &" " Response.Write "T" &" " Response.Write "U" &" " Response.Write "V" &" " Response.Write "W" &" " Response.Write "X" &" " Response.Write "Y" &" " Response.Write "Z" &" " Response.Write " ALL" &" " Response.Write "
 
BAND NAMEDETAILSLOCATION
" response.write "" 'response.write "" 'CAPITALISE THE FIRST LETTER OF BANDNAME '========================================= response.write "" dim words, wnum txt = oRSa("bbandname") 'response.write words ' convert all to lower case now to simplify... words = Split( LCase(txt), " " ) ' split into words ' change one word at a time: For wnum = 0 To UBound( words ) ' first character upper case, ' others as is (becuz we did LCase above, remember)... words(wnum) = UCase( Left(words(wnum), 1 ) ) & Mid( words(wnum), 2 ) Next ' put the words back together into a single string Capitalize = Join( words, " " ) response.write Capitalize response.write "" ' END OF CAPITALISE FUNCTION '============================ ' GOLD MEMBERS GET A NICE LITTLE GOLD STAR '========================================== If oRSa("gold") = "True" THEN response.write "   " &"" ELSE END IF response.write"" response.write "email" varWebSite= oRSa.Fields.Item("bwebsite") &" " If varWebSite= " " THEN response.write " " ELSE response.write " website" 'response.write " website" END IF varPhoto1 = oRSa.Fields.Item("bband_photo1") &" " If varPhoto1 = " " THEN response.write " " ELSE response.write " photos" END IF If oRSa("real_audio_track1") = "not_loaded" THEN response.write " " ELSE response.write " music" END IF varVideo = oRSa.Fields.Item("video_track") &" " If varVideo = " " THEN response.write " " ELSE response.write " video" 'response.write oRSa("video_track") END IF If oRSa("review") = "sorry no review has yet been written" THEN response.write " " ELSE response.write " review" END IF 'response.write "" &oRSa("bband_style") &"     " &"" &oRSa("bband_address_town") &", " &oRSa("bband_address_county") &"
" Set oRSa=nothing %>