<% varTest = request.querystring("ID") If varTest = "" THEN ELSE response.cookies("OurBandShortList")(request.querystring("ID")) = request.querystring("ID") END IF %>

YOUR SHORTLIST

Thanks for using the OurBand.net shortlist facility. As you browse this website you can add any band to your shortlist by clicking on the shortlist tab in the drop down menu.

If you wish to email all the bands in your shortlist Now You Can This NEW facility courtesy of www.ourband.net by popular demand lets you email all the bands in your shortlist in one stroke. MARVELOUS. And its completely FREE - after all this website is all about promoting the bands to the widest audience.

<% databaseDirectory = server.mappath("..\fpdb\") databaseLocation = databaseDirectory & "..\bands.mdb" BandEmailAddresses = "mail@ourband.net" connectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&databaseLocation set dBconnection = Server.createobject("ADODB.connection") dBconnection.open connectionString SelectShortlist = "SELECT * From bands WHERE " Dim second second = "false" for each ObjItem in request.Cookies 'Response.write(ObjItem) if request.cookies(ObjItem).HasKeys Then for each objItemKey in Request.Cookies(ObjItem) if second = "true" then SelectShortlist = SelectShortlist & " OR " end if IF Request.Cookies("OurBandShortList")(objItemKey) = "" THEN SelectShortlist = SelectShortlist & " ID = 0 " ELSE SelectShortlist = SelectShortlist & " ID ="&Request.Cookies("OurBandShortList")(objItemKey) END IF 'SelectShortlist = SelectShortlist & " ID ="&Request.Cookies(ObjItem)(objItemKey) second = "true" next end if next 'response.write SelectShortlist Set SelectShortlistResults = server.createObject("ADODB.Recordset") SelectShortlistResults.open SelectShortlist, dBconnection, 2, 3 response.write "

" response.write"

" response.write("") response.write("") do while not SelectShortlistResults.EOF If cnt = 0 Then Response.Write "" cnt = 1 Else Response.Write "" cnt = 0 End If 'response.write "" response.write(""&"") response.write "" response.write("") response.write "" response.write("") response.write("") BandEmailAddresses = BandEmailAddresses &", " &SelectShortlistResults("bemail") SelectShortlistResults.MoveNext loop response.write("
BAND AREA ACTION
" &"" &SelectShortlistResults("bbandname") &""&""&SelectShortlistResults("bband_address_town") &", " &SelectShortlistResults("bband_address_county") &""&""&"EMAIL BAND " &"| BOOK BAND" &""&"
") 'response.write BandEmailAddresses %>

TO EMAIL A MESSAGE TO BANDS IN YOUR SHORTLIST  ALL AT ONCE - *CLICK HERE


    Note: This shortlist will reset when you close your browser.

 

* Please note that this shortlist facility is dependant upon each band entering a correct email address. If any band has entered a Null or invalid email address, your own computer email system may reject this address or cause your email program to either pause and ask for instruction or possibly crash. The makers of this system have no way of knowing either which system you are using or if any email addresses are invalid. You as a website user will not hold the designers of this website or any web site systems responsible for errors or non delivery of email no matter howsoever caused.