<%
Dim rst
Dim MediaID
Dim strSQLStmt
Dim ReleaseID
strSQLStmt = ClientID & "_GetThisRelease"
ReleaseID = Request("ReleaseID")
EndDate = Date()
' Open Data Connection
' Setup Parameters
Set Conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
Set rst = Server.CreateObject("ADODB.Recordset")
conn.Open strConnRelease
cmd.ActiveConnection = Conn
cmd.CommandText = strSQLStmt
cmd.CommandType = adCmdStoredProc
' Enter Parameter List
cmd.Parameters.Append cmd.CreateParameter("ReleaseID",adInteger,adParamInput,4,ReleaseID)
Set rst = cmd.Execute
If Not rst.EOF Then
Dim RowCount
RowCount = 0
Dim MyBGCOLOR
MyBGCOLOR = "#ffffff"
%>
<%
' Loop through the recordset to last record
Do While Not rst.EOF
' Display the database record values
%>
<%
RowCount = RowCount + 1
If RowCount Mod 2 = 0 Then
MyBGCOLOR = "#ffffff"
Else
MyBGCOLOR = "#eeeeee"
End If
%>
Released On:
<%= FormatDateTime(rst("ReleaseDate"),1)%>
<%= rst("ContactInfo")%>
<%= UCASE(rst("Headline"))%>
<% If Not rst("Subhead") = "" or Not rst("Subhead") = " " Then %>
<%= rst("Subhead")%>
<% End If %>
<%= CleanReturn(rst("ReleaseBody"))%>
# # #
<%
' This statement makes database move to the next record
rst.MoveNext
Loop
Else
%>
No releases available.
<%
End If
' Clean up time
rst.Close
conn.Close
Set cmd = Nothing
Set rst = Nothing
Set conn = Nothing
%>