<%
Sub performQuery()
sql = "SELECT News.Body, News.Special, News.Title, News.Date, News.NewsID "
sql = sql & "FROM News"
if request.queryString("View") <> "" then
sql = sql & " WHERE News.Special='" & request.queryString("View") & "'"
end if
sql = sql & " ORDER BY News.Date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 0, 1
End Sub
Function getSummary()
dim retString
dim tmpString
tmpString = Split(rs.Fields("Body"), " ", -1, 1)
i = 0
For Each Var In tmpString
if i >= 25 then
Exit For
else
retString = retString & " " & tmpString(i)
end if
i = i+ 1
Next
retString = trim(retString)
retString = retString & "..."
getSummary = retString
End Function
%>
<%
performQuery()
j = 0
endtarget=150
if request.queryString("archives")="all" then
endtarget=9999
end if
for j = 0 to endtarget
if rs.eof then
Exit For
end if
%>
">
<%
rs.movenext
next
rs.close
Set rs = Nothing
%>
|
