Servant Energy News
Home Page |
Request a Quote
Keep up with the news and events associated with Servant Energy by clicking on the links below.
<%
Dim rst
Dim MediaID
Dim strSQLStmt
Dim StartDate
Dim ReleaseTypeID
Dim EndDate
ReleaseTypeID = 100
strSQLStmt = ClientID & "_GetReleases"
StartDate = DateAdd("d",-1000,Date())
EndDate = DateAdd("d",360,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("StartDate",adDBTimeStamp,adParamInput,8,StartDate)
cmd.Parameters.Append cmd.CreateParameter("EndDate",adDBTimeStamp,adParamInput,8,EndDate)
cmd.Parameters.Append cmd.CreateParameter("ReleaseTypeID",adInteger,adParamInput,8,ReleaseTypeID)
Set rst = cmd.Execute
If Not rst.EOF Then
%>
|
Date
|
Title
|
<%
%>
<%
' Loop through the recordset to last record
Do While Not rst.EOF
' Display the database record values
%>
<%
RowCount = RowCount + 1
%>
|
<%= Month(rst("ReleaseDate")) & "." & Day(rst("ReleaseDate")) & "." & Year(rst("ReleaseDate"))%>
|
"><%=rst("Headline")%>
|
<%
' This statement makes database move to the next record
rst.MoveNext
Loop
Else
%>
|
No press releases are available at this time.
|
| |
<%
End If
' Clean up time
rst.Close
conn.Close
Set cmd = Nothing
Set rst = Nothing
Set conn = Nothing
%>
 |
|
|