<%@ LANGUAGE="VBSCRIPT" %> STILL SHOWS - Upcoming & Past

 

For bookings contact still@stillmusic.com


Upcoming Shows

<% Dim SqlJunk Set dbGlobalWeb = Server.CreateObject("ADODB.Connection") dbGlobalWeb.Open("still_data") SqlJunk = "SELECT * FROM gigs WHERE when = 'present' order by date asc" If Request.Form("TypeSearch") = "venue" Then SqlJunk = SqlJunk & " WHERE venue LIKE '%" & Request.Form("DaInBox") & "%'" End If If Request.Form("TypeSearch") = "comments" Then SqlJunk = SqlJunk & " WHERE comments LIKE '%" & _ Request.Form("DaInBox") & "%'" End If Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset") rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3 %> <% If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>

We did not find a match!
<%Else%> <%If Not rsGlobalWeb.BOF Then%> <% Do While Not rsGlobalWeb.EOF %> <% rsGlobalWeb.MoveNext Loop %>

WHEN

WHERE

ADDRESS

COMMENTS

<%=rsGlobalWeb("date")%> 
<%=rsGlobalWeb("day")%> 
<%=rsGlobalWeb("time")%> 

<%=rsGlobalWeb("comments")%> " target="_blank"><%=rsGlobalWeb("comments_url1")%> 

<%End If%> <%End If%> <% rsGlobalWeb.Close dbGlobalWeb.Close %>

Please see my info about "House Concerts", and/or if you have venue suggestions in your area, please send me an e-mail with all the info you have about who to reach and what the skinny is about the place and I will do everything I can to make it happen.

Past Shows

<% Dim SqlJunkPast Set dbGlobalWeb = Server.CreateObject("ADODB.Connection") dbGlobalWeb.Open("still_data") SqlJunkPast = "SELECT * FROM gigs WHERE when = 'past' order by date desc" If Request.Form("TypeSearch") = "venue" Then SqlJunkPast = SqlJunkPast & " WHERE venue LIKE '%" & Request.Form("DaInBox") & "%'" End If If Request.Form("TypeSearch") = "comments" Then SqlJunkPast = SqlJunkPast & " WHERE comments LIKE '%" & _ Request.Form("DaInBox") & "%'" End If Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset") rsGlobalWeb.Open SqlJunkPast, dbGlobalWeb, 3 %> <% If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>

We did not find a match!
<%Else%> <%If Not rsGlobalWeb.BOF Then%> <% Do While Not rsGlobalWeb.EOF %> <% rsGlobalWeb.MoveNext Loop %>

WHEN

WHERE

TOWN/AREA

COMMENTS

<%=rsGlobalWeb("date")%> 

<%=rsGlobalWeb("venue")%> 

<%=rsGlobalWeb("city")%>, <%=rsGlobalWeb("state")%> 

<%=rsGlobalWeb("comments")%> 

<%End If%> <%End If%> <% rsGlobalWeb.Close dbGlobalWeb.Close %>