<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsNews__MM_ColParam
rsNews__MM_ColParam = "1"
if (Request.QueryString("NewsID") <> "") then rsNews__MM_ColParam = Request.QueryString("NewsID")
%>
<%
set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = MM_infodesk_STRING
rsNews.Source = "SELECT * FROM News WHERE NewsID = " + Replace(rsNews__MM_ColParam, "'", "''") + ""
rsNews.CursorType = 0
rsNews.CursorLocation = 2
rsNews.LockType = 3
rsNews.Open()
rsNews_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
' set the record count
rsNews_total = rsNews.RecordCount
' set the number of rows displayed on this page
If (rsNews_numRows < 0) Then
rsNews_numRows = rsNews_total
Elseif (rsNews_numRows = 0) Then
rsNews_numRows = 1
End If
' set the first and last displayed record
rsNews_first = 1
rsNews_last = rsNews_first + rsNews_numRows - 1
' if we have the correct record count, check the other stats
If (rsNews_total <> -1) Then
If (rsNews_first > rsNews_total) Then rsNews_first = rsNews_total
If (rsNews_last > rsNews_total) Then rsNews_last = rsNews_total
If (rsNews_numRows > rsNews_total) Then rsNews_numRows = rsNews_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsNews_total = -1) Then
' count the total records by iterating through the recordset
rsNews_total=0
While (Not rsNews.EOF)
rsNews_total = rsNews_total + 1
rsNews.MoveNext
Wend
' reset the cursor to the beginning
If (rsNews.CursorType > 0) Then
rsNews.MoveFirst
Else
rsNews.Requery
End If
' set the number of rows displayed on this page
If (rsNews_numRows < 0 Or rsNews_numRows > rsNews_total) Then
rsNews_numRows = rsNews_total
End If
' set the first and last displayed record
rsNews_first = 1
rsNews_last = rsNews_first + rsNews_numRows - 1
If (rsNews_first > rsNews_total) Then rsNews_first = rsNews_total
If (rsNews_last > rsNews_total) Then rsNews_last = rsNews_total
End If
%>
News_details
Notes
This
page lists all the available photographs as they become available. To view
photos from a particular project, click on the project location