<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_connDUpics_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("_private\DUpics.mdb")
%>
<%
'****************************************************************************************
'** Copyright Notice
'** Copyright 2003 DUware All Rights Reserved.
'** This program is free software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'** You may use parts of this program in your own private work, but you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'** You may not pass the whole or any part of this application off as your own work.
'** All links to DUware and powered by logo's must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'** No official support is available for this program but you may post support questions at: -
'** http://www.duware.com/support
'****************************************************************************************
%>
<%
If Request.QueryString("iPic") <> "" Then
set rsJustVoted = Server.CreateObject("ADODB.Recordset")
rsJustVoted.ActiveConnection = MM_connDUpics_STRING
rsJustVoted.Source = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID = " & Request.QueryString("iPic")
rsJustVoted.CursorType = 0
rsJustVoted.CursorLocation = 2
rsJustVoted.LockType = 3
rsJustVoted.Open()
rsJustVoted_numRows = 0
Dim voteAverage, voteCount, voteValue
voteCount = rsJustVoted.Fields.Item("PIC_VOTE_COUNT").Value
voteValue = rsJustVoted.Fields.Item("PIC_VOTE_VALUE").Value
If voteCount <> 0 Then voteAverage = (voteValue/voteCount)
Dim imageWidth, imageHeight, imagePercent, imageFixWidth, imageFixHeight
imageWidth = rsJustVoted.Fields.Item("PIC_WIDTH").Value
imageHeight = rsJustVoted.Fields.Item("PIC_HEIGHT").Value
imageFixWidth = 135
imagePercent = (imageFixWidth/imageWidth)
imageFixHeight = (imageHeight*imagePercent)
End If
%>
<%
If Request.QueryString("iPic") <> "" Then
rsJustVoted.Close()
End If
%>
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_connDUpics_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("_private\DUpics.mdb")
%>
<%
'****************************************************************************************
'** Copyright Notice
'** Copyright 2003 DUware All Rights Reserved.
'** This program is free software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'** You may use parts of this program in your own private work, but you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'** You may not pass the whole or any part of this application off as your own work.
'** All links to DUware and powered by logo's must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'** No official support is available for this program but you may post support questions at: -
'** http://www.duware.com/support
'****************************************************************************************
%>
<%
Dim rsRandPic
Dim rsRandPic_numRows
Dim strSql
If Request.QueryString("iPic") <> "" Then
strSql = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID > " & Request.QueryString("iPic") & " ORDER BY PIC_ID ASC"
Else
strSql = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 ORDER BY PIC_ID ASC"
End If
%>
<%
Set rsRandPic = Server.CreateObject("ADODB.Recordset")
rsRandPic.ActiveConnection = MM_connDUpics_STRING
rsRandPic.Source = strSql
rsRandPic.CursorType = 0
rsRandPic.CursorLocation = 2
rsRandPic.LockType = 1
rsRandPic.Open()
rsRandPic_numRows = 0
%>
<%
If rsRandPic.EOF or rsRandPic.BOF then
Response.Redirect("view.asp")
End If
%>
<%
Dim imgWidth, imgHeight, imgPercent, imgFixWidth, imgFixHeight
imgWidth = rsRandPic.Fields.Item("PIC_WIDTH").Value
imgHeight = rsRandPic.Fields.Item("PIC_HEIGHT").Value
imgFixWidth = 618
imgPercent = (imgFixWidth/imgWidth)
imgFixHeight= (imgHeight*imgPercent)
%>
