<%
DIM nextdate, nextvenu, nextlocation, currentdate, listtitle
currentdate = DATE
Set ListingConn = Server.CreateObject("ADODB.Connection")
ListingConn.Open "underoathdb"
Set rsListshow = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT * FROM showdates WHERE showdate >= #" & currentdate & "# ORDER BY showdate"
rsListshow.Open strSQL, ListingConn, 1, 1
IF rsListshow.Recordcount <> 0 Then
nextdate = rsListshow("showdate") & "- "
nextvenu = rsListshow("venu")
nextlocation = rsListshow("location")
ELSE
nextdate = "No Dates Available"
nextlocation = "Please Check Back Soon."
END IF
rsListshow.Close
Set reListshow = Nothing
ListingConn.Close
Set ListingConn = Nothing
Set ListnewsConn = Server.CreateObject("ADODB.Connection")
ListnewsConn.Open "underoathdb"
Set rsListing = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM news WHERE dateadded <=#" & currentdate & "# ORDER BY dateadded DESC"
rslisting.Open strSQL, ListnewsConn, 1, 1
listtitle = rsListing("title")
rsListing.Close
Set rsListing = NOTHING
ListnewsConn.Close
Set ListnewsConn = Nothing
%>
<%=nextdate & nextvenu & nextlocation%>
Sign Up Now For Underoaths Email List:
<%=nextdate%><%=nextvenu%>
<%=nextlocation%>
CALENDAR
Click here for a full list of show dates, details, and maps.
NEWS FEATURE
<%=listtitle%>
Underoath's latest release "Cries of the Past" is available online through Take hold Records. Order this, or their first release, "Act of Depression" today.
