 |
 |
 |
 |
 |
 |
 |
 |
|
<% If Server.MapPath("/") = "e:\ccgcyouth" Then path = "e:\ccgcyouth" Else path = "d:\html\users\ccgcyouthorg\html" End If Set fso = Server.CreateObject("Scripting.FileSystemObject") Set checkweek = fso.OpenTextFile(path & "\news\thisweek.txt") thisweekfile = checkweek.ReadLine checkweek.Close Set thisweek = fso.OpenTextFile(path & "\news\" & thisweekfile) Response.Write thisweek.ReadAll thisweek.Close %>
<%
Set dbCCGCYOUTH = Server.CreateObject("ADODB.Connection")
dbCCGCYOUTH.Open("ccgcyouth")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM News ORDER BY NewsID DESC"
rs.Open strSQL, dbCCGCYOUTH
Do Until rs.EOF
newsItem = rs("NewsID")
datestamp = rs("Datestamp")
timestamp = Left(rs("Timestamp"), 5) & Right(rs("Timestamp"), 3)
subject = rs("Subject")
newsline = ""
Response.Write(newsline)
rs.MoveNext
Loop
rs.Close
dbCCGCYouth.Close
%>
|Home|