|
Photo Directory
> Top Twenty Photos
Top 20 photos
<%
Dim iPageSize 'Number of rows in page
Dim iPageCount 'The number of pages we'll get back
Dim iPageCurrent 'The page we want to show
Dim strParam 'Passing a parameter
Dim strSQL 'SQL command
Dim iRecordsShown 'Loop controller for displaying just iPageSize records
Dim I 'Standard looping var
Dim intLinkPageNum 'Holds the page number to be linked to
Dim adoRec 'Database Recordset Variable
iPageSize = 20 'Change this integer to the number of records to display on page
' Build SQL String using the parameters
'strSQL = "SELECT Reviews.* FROM Reviews ORDER by OutofTen Desc"
strSQL = "SELECT * FROM photos order by OutofTen/NoOfVotes Desc"
' Create and open our connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("photos.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set rsProdInfo = Server.CreateObject("ADODB.Recordset")
%>
|
Club Rise Top Twenty Photos |
<%
iRecordsShown = 0
StrHitCount = 1
rsProdInfo.Open strSQL, Conn
Do While iRecordsShown < 20 And Not rsProdInfo.EOF
'Do While Not rsProdInfo.EOF
%>
|
The Number <%=StrHitCount%> Photo
Star rating out of ten based on <%=rsProdInfo("NoOfVotes")%> votes
<%
If rsProdInfo("OutOfTen") <> "" then
%>
 .gif" alt="star rating" style="border-style: none">
<%
StrImage = rsProdInfo("productID")
%>
<%
else
end if
%>
<%'While Not StrPhotos.EOF%>
 /<%= rsProdInfo("datetaken") %>/thumb/<%= rsProdInfo("productImg") %>.jpg" alt="the top twenty club photos online" style="border-style:solid; border-color:#C0C0C0; ">
Taken <%= rsProdInfo("datetaken") %> at <%= rsProdInfo("club") %>
|
<%
StrHitCount = StrHitCount + 1
iRecordsShown = iRecordsShown + 1
rsProdInfo.MoveNext
Loop
' End if
rsProdInfo.Close
set rsProdInfo = Nothing
Conn.Close
set Conn = Nothing
%>
|
|
|