strSQLShows = "SELECT TOP 10 Shows.Show_city, Shows.Show_id, Shows.Show_description, Shows.Show_type, Shows.Show_special_title, "_
& "Shows.Show_venue, Shows.Show_venue_info, Shows.Show_date, Shows.Show_time, Show_Tix_EventCode, Shows.Show_special_message, "_
& "Shows.Show_Cancelled_Message, Shows.Show_Tix_AllowPurch, Shows.Show_Tix_OnSaleDate, Performers.Performer_name, Performers.Performer_links, "_
& "Performers.Performer_id,Performers.Performer_image_thumbnail, Performers.Performer_image_full, "_
& "Performers.Performer_description, Performers_Join_Shows.order_id, Performers_Join_Shows.headliner "_
& "FROM (Shows WITH (nolock) INNER JOIN Performers_Join_Shows on Shows.Show_id = Performers_Join_Shows.fkShow_id) "_
& "INNER JOIN Performers ON Performers.Performer_id = Performers_Join_Shows.fkPerformer_id "_
& "WHERE Shows.Show_id <> ? AND Performers.Performer_id = ? AND Shows.Show_date > GETDATE() AND (Shows.Show_Approved = 1) AND ((Shows.Show_Cancelled = 0) OR (Shows.Show_Cancelled IS NULL)) " _
& "ORDER BY Shows.Show_date DESC, Performers_Join_Shows.Order_id DESC "
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = oConn
cmd.CommandText = strSQLShows
cmd.CommandType = 1
cmd.Parameters(0) = show_id
cmd.Parameters(1) = performer_id
set oRcs = Server.CreateObject("ADODB.Recordset")
oRcs.CursorLocation=3
oRcs.LockType=1
oRcs.Open cmd
if oRcs.EOF then
else
if strTempShowID <> oRcs("Show_id") then
Response.Write "<b>Other Appearances:</b><br>"
Do until oRcs.EOF
strShowVenue = oRcs("Show_venue")
strShowType = oRcs("Show_type")
strShowDate = oRcs("Show_date")
strShowTime = Replace(Replace(Replace(oRcs("Show_time"),":00",""),"AM","am"),"PM","pm")
tempShow_Tix_EventCode = oRcs("Show_Tix_EventCode")
if Mid(oRcs("Show_time"),1,1) = 0 then
strShowTime = Mid(strShowTime,2)
end if
Response.write WeekdayName(WeekDay(strShowDate)) & ", " & MonthName(Month(strShowDate)) & " " & Day(strShowDate) & " at "
Response.Write strShowTime
if oRcs("Show_Tix_EventCode") > 1 AND NOW() > oRcs("Show_Tix_OnSaleDate") AND UCASE(oRcs("Show_Tix_AllowPurch")) = "Y" then
xFree = NULL
xFree = EV_Free(tempShow_Tix_EventCode,0)
if IsNumeric(xFree) = true then
if xFree > 0 then
%>
<a href="../load_event_1.asp?event=<%=tempShow_Tix_EventCode%>"> <img src="images/buytix50_white.gif" border="0" width="40" align="absmiddle"></a>
<%
else
%>
<label class="alert alert-error">
Advanced ticket sales are sold out, however, a limited number of tickets may be available on a first come first serve basis at the door.
</label>
<%
end if
else
%>
<label class="alert alert-error">
<%= xFree %>
</label>
<%
end if
else
if oRcs("Show_Tix_OnSaleDate") <> "" AND oRcs("Show_Tix_OnSaleDate") <> CDate("1/1/2004") then
%>
<label class="alert alert-error">
On Sale <%= oRcs("Show_Tix_OnSaleDate") %>
</label>
<% else %>
<label class="alert alert-error">
On Sale date TBA.
</label>
<%
end if
end if
extra_shows = 1
intTempShowID = oRcs("Show_id")
do until intTempShowID <> oRcs("Show_id")
oRcs.MoveNext
if oRcs.EOF then
exit do
end if
loop
loop
end if
end if
%>
</div>
</div>
<%
oRs.MoveNext
oRs.close
oConn.close
%>
<!--#include virtual="/partials/related_links.asp"-->
<%
I believe the variables are all built within the asp page. I've just tried to figure out the debug aspect of Dreamweaver and it claims there are none built-in. I then went to the Google Chrome Developers page to try it as well but I think I am now in over my head!