<%@ Language=VBScript %>
<%
'-----------------------------------------------------------------
htmlTitle = "Site Map"
'-----------------------------------------------------------------
Sub MainPage()
%>
| |
|
|
|
|
|
<%
Dim SQL,RS,i,count
SQL = " SELECT TOP 8 tblGalery.Album_Id, tblGalery.PictureID, tblGalery.PicturePath,tblGalery.Picture_Name" &_
" FROM tblGalery" &_
" INNER JOIN tblAlbums ON tblGalery.Album_Id = tblAlbums.Album_Id" &_
" WHERE tblAlbums.Password is null AND tblGalery.Password is null " &_
" ORDER BY tblGalery.DateUploaded DESC"
Set RS = OpenRS(SQL)
Do Until (RS.EOF OR Count >=8)
If i < 3 Then
Else
Response.Write(InsertRows(5))
%>
<%
i=0
End if
%>
|
|
<%
i=i+1
count = count+1
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
<%
If count = 0 Then
%>
| |
<%
End If
Response.Write(InsertRows(10))
%>
<%
End Sub
'---------------------------------------------------------------
Call LoadPage(false)
%>
