ADMIN INTER

ADD DATES

ADD NEWS

FACE

ADD / EDIT DATES

<% Dim ShowConn, rsList, currentdate currentdate = Date Set ShowConn = Server.CreateObject("ADODB.Connection") ShowConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Network Library=dbmssocn; Data Source=D:\64.225.64.14\d:\64.225.64.14\fpdb\underoath.mdb;User ID=;Password=;" Set rsList = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM showdates WHERE showdate >= " & currentdate & " ORDER BY showdate" 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%>	IMG

ADD A DATE
BACK TO TOP

ADD / EDIT NEWS
<% 'Dim ShowConn, rsList, currentdate 'currentdate = Date Set ShowConn = Server.CreateObject("ADODB.Connection") ShowConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Network Library=dbmssocn; Data Source=D:\64.225.64.14\d:\64.225.64.14\fpdb\underoath.mdb;User ID=cpr123;Password=By266;" Set rsList = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM news 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") %>

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

<% rsList.Movenext Wend rsList.Close Set rsList = Nothing ShowConn.Close Set ShowConn = Nothing %>
ADD A DATE
BACK TO TOP