ADMIN INTERFACE
LOG OUT

ADD DATES

ADD NEWS

ADD / EDIT DATES

<% Dim ShowConn, rsList, currentdate currentdate = Date Set ShowConn = Server.CreateObject("ADODB.Connection") ShowConn.open info_db Set rsList = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM showdates ORDER BY showdate" 'WHERE showdate >= #" & currentdate & "# rsList.Open strSQL, ShowConn, 1, 1 DIM varid, vardate, varvenu, varlocation, varcost, varwith, varmap, varflyer 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") %> <% rsList.Movenext Wend rsList.Close Set rsList = Nothing ShowConn.Close Set ShowConn = Nothing %>

VENUE	DATE	EDIT
<%=varvenu%>	<%=vardate%>

ADD A DATE
BACK TO TOP

ADD / EDIT NEWS
<% 'Dim ShowConn, rsList, currentdate 'currentdate = Date Set ShowConn = Server.CreateObject("ADODB.Connection") ShowConn.open info_db Set rsList = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM news ORDER BY dateadded" 'WHERE dateadded >= #" & currentdate & "# '& "ORDER BY dateadded" rsList.Open strSQL, ShowConn, 1, 1 'DIM varid, vardate, varvenu, varlocation, varcost, varwith, varmap, varflyer While NOT rsList.EOF varid = rsList("id") vardate = rsList("dateadded") vartitle = rsList("title") 'varstory = rsList("story") 'varimage = rsList("image") %> <% rsList.Movenext Wend rsList.Close Set rsList = Nothing ShowConn.Close Set ShowConn = Nothing %>

TITLE	DATE ADDED	EDIT
<%=vartitle%>	<%=vardate%>

ADD A DATE
BACK TO TOP