%@ Language="VBScript"%> <% If Len(Request.Cookies("CID")) <> 0 AND Request.Cookies("CID") = Request.ServerVariables("REMOTE_ADDR") Then Application("PhotoHits") = (Application("PhotoHits") + 1) Else Response.Cookies("CID") = Request.ServerVariables("REMOTE_ADDR") Response.Cookies("CID").Expires = Date + 1 Application("CurrentUser") = (Application("CurrentUser") + 1) Application("PhotoHits") = (Application("PhotoHits") + 1) End If %>
|
|||||||||||||||||||||||
|
<%
Dim sqlGal, sqlPhoto, objRsGal, sqlCountPhoto, objRsPhoto, objRsCountPhoto
Dim intGal_Id, intPhotoCount, strTitle, strDescription, strUrl, dtCreated
sqlGal = "SELECT Gal_Id, Title, Description FROM tblPhotoGallery ORDER BY Gal_Id DESC"
Set objRsGal = objCon.Execute(sqlGal)
%>
|
|
|||||||||||||||||||||
|
|||||||||||||||||||||||