%
' Name: News
' Author: Ben Padilla
' File: News.asp
' Created: 03.20.2003
' Changes: 03.20.2003 MBP Created.
%>
<%
Dim reqID
Dim intToggle
reqID = CInt(Request("ID"))
If (reqID = 0) Then
strSQL = " SELECT tblPressRelease.* " & _
" FROM tblPressRelease " & _
" WHERE (Publish = 1) AND " & _
" (Now() BETWEEN ActivationDate AND TerminationDate) " & _
"ORDER BY tblPressRelease.Date DESC"
Else
strSQL = " SELECT tblPressRelease.* " & _
" FROM tblPressRelease " & _
" WHERE (PressReleaseID = " & reqID & ") "
End If
Call ReadyADOObjects()
objRS.Open strSQL, objConnection, adOpenStatic, adLockOptimistic
%>
TCOVE ROP
|
|
© Copyright 2003 TCOVE ROP.
All rights reserved.
Design and development by |