| Library of Articles |
<% DIM strSQL, strCateg
strCateg = "all" 'Request.Form("Category")
strCateg=replace(strCateg,",","")
strCateg=replace(strCateg," ","' or Category = ''")
strCateg=replace(strCateg,"-"," ")
'Response.write strCateg
IF strCateg = "all" Then
strSQL = "Select * FROM Article" & " ORDER BY ArticleDate DESC, Category; "
Else
strSQL = "Select * FROM Article WHERE Category = " & "'"&strCateg & "'" & " ORDER BY ArticleDate, Category;"
End If
%>
<% Dim adOpenForwardOnly, adLockReadOnly, adCmdText
adOpenForwardOnly = 0
adLockReadOnly = 1
adCmdText = 1
Dim objConn, objRS, objCommand
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
objRS.Open strSQL, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
%>
<% DIM strID, strIfEmail
While Not objRS.EOF
'IF objRS("Repemail") = "" Then
'strIfEmail = ""
'Else
'strIfEmail = "Go to Website"
'END IF
'strID = "" & "more info..."
Response.Write "" & objRS("ArticleTitle") & "
" & objRS("ArticleDate") & "
" & objRS("ArticleAuthor") & "
" & objRS("ArticleDescription") & "
" & "Go to Website
|
"
'& strFontSM & objRS("Category") & "
"
objRS.MoveNext
Wend
objRS.close
objConn.close
Set objRS= Nothing
Set objConn= Nothing
%>