<% DIM editid editid = Request.QueryString("editid") IF editid <> "" THEN currentdate = Date Set ShowConn = Server.CreateObject("ADODB.Connection") ShowConn.open info_db Set rsList = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM showdates WHERE id = " & editid & " ORDER BY showdate" rsList.Open strSQL, ShowConn, 1, 1 While NOT rsList.EOF varid = rsList("id") vardate = rsList("showdate") varvenu = rsList("venu") varlocation = rsList("location") varcost = rsList("cost") varwith = rsList("with") varmap = rsList("map") varflyer = rsList("flyer") varspecial = rsList("special") %>

VENUE :		DATE ( mm/dd/yy) :
City / State :		COST / ADMISSION :
URL TO MAP : http:// To get a map check out http://www.superpages.com Look up the location of your show amd copy the URL unto the above field.
PLAYING WITH : <%=varwith%>
FLYER2 :		SPECIAL :

To Delete This Record Click Here. Removing entries is PERMINANT.
DELETE

<% rsList.Movenext Wend rsList.Close Set rsList = Nothing ShowConn.Close Set ShowConn = Nothing ELSE%>

VENUE :		DATE ( mm/dd/yy) :
City / State :		COST / ADMISSION :
URL TO MAP : http:// To get a map check out http://www.superpages.com Look up the location of your show amd copy the URL unto the above field.
PLAYING WITH :
FLYER :		SPECIAL :

<%END IF%>