<% DIM currentdate, listid, listdate, listvenu, listloc, listcost, listwith, listmap, listspecial, listflyer, colortrack currentdate = DATE %>

The Following list contains Underoath's Live calendar as of <%=currentdate%>

<% Set ListdateConn = Server.CreateObject("ADODB.Connection") ListdateConn.Open "underoathdb" Set rsListing = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM showdates WHERE showdate >=#" & currentdate & "# ORDER BY showdate" rslisting.Open strSQL, ListdateConn, 1, 1 colortrack = 111111 While NOT rsListing.EOF listid = rslisting("id") listdate = rslisting("showdate") listvenu = rslisting("venu") listloc = rslisting("location") listcost = rslisting("cost") listwith = rslisting("with") listmap = rslisting("map") listspecial = rslisting("special") listflyer = rslisting("flyer") %> <% rsListing.Movenext Wend rsListing.Close Set rsListing = NOTHING ListdateConn.Close Set ListdateConn = Nothing %> <%IF rslisting("special") = "showstar" THEN response.write " " END IF%> <%=listdate%> - <%=listloc%> To be held at: <%=listvenu%>. <% IF listcost <> "TBA" THEN Response.Write "Admission: " & listcost & " " END IF IF listwith <> "TBA" THEN Response.write "Details: " & replace(listwith, chr(10), " ") & " " END IF IF listmap <> "TBA" THEN Response.Write " Click Here for a Map to the Venue. " END IF IF listflyer <> "NONE" THEN Response.Write " Click Here to download a flyer for this show. " END IF IF colortrack = 000000 then colortrack = 333333 Else colortrack = 000000 End If %>