<% Option Explicit %> <% Const SITE_ID = 294 'Impossible Creatures Center Dim sImage, sCaption, sRef Dim dDateTime Dim lNextID, lPrevID Dim lID Dim rs SQLConnect SQLSERVER, SQLLOGIN, SQLPASSWORD lID = ReqNum("id") If lID <> 0 Then Set rs = OpenRS("select id, datetime, piclarge, piccaption from newsitems where picotheday <>'' and siteid = " & SITE_ID & " and id = " & lID) If rs.EOF Then lID = 0 rs.Close End If End If If lID = 0 Then Set rs = OpenRS("SET ROWCOUNT 1 SELECT id, datetime, piclarge, piccaption FROM newsitems WHERE picotheday <> '' AND siteid = " & SITE_ID & " AND datetime <= GETDATE() ORDER BY datetime DESC") End If If Not rs.EOF Then dDateTime = rs("datetime") sImage = Trim(rs("piclarge")) sCaption = Trim(rs("piccaption")) End If rs.Close Set rs.ActiveConnection = Nothing Set rs = Nothing lNextID = ExecSQL("set ROWCOUNT 1 select id from newsitems where picotheday <>'' and siteid = " & SITE_ID & " and datetime > '" & dDateTime & "' order by datetime") lPrevID = ExecSQL("set ROWCOUNT 1 select id from newsitems where picotheday <>'' and siteid = " & SITE_ID & " and datetime < '" & dDateTime & "' order by datetime desc") 'added by doc If (Request.ServerVariables("HTTP_REFERER") = "") Then sRef = "/" Else sRef = Request.ServerVariables("HTTP_REFERER") End If %> Impossible Creatures Center - A Member of the GameSpy Network

News | Picture of the Day Archives



<% =sCaption %>

<% If lPrevID Then Response.Write " Previous " If lNextID Then Response.Write " | " End If End If If lNextID Then Response.Write " Next " End If %>