| |
 |
|
<%
set rsTop5Image = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT SUM(caster_image_votes.vote_rate)/COUNT(caster_image_votes.vote_image_id) AS stars, " & _
" COUNT(caster_image_votes.vote_image_id) AS count_vote_id, " & _
" caster_images.image_id, " & _
" caster_images.image_title, " & _
" caster_images.image_user, " & _
" caster_images.image_user_type, " & _
" caster_images.image_tags " & _
"FROM cynergy.caster_image_votes " & _
" LEFT JOIN cynergy.caster_images ON caster_image_votes.vote_image_id = caster_images.image_id " & _
"WHERE caster_images.image_video = 'i' " & _
"GROUP BY caster_image_votes.vote_image_id " & _
"ORDER BY stars DESC, count_vote_id DESC " & _
"LIMIT 0, 5 "
rsTop5Image.Open mySQL, conn, 2, 2
num = 1
Do While Not rsTop5Image.EOF
Set fs=Server.CreateObject("Scripting.FileSystemObject")
str_filename = "caster_" & string(6-len(rsTop5Image.fields("image_id")),"0") & rsTop5Image.fields("image_id") & "." & "gif"
str_folder = Server.MapPath("\members\images") & "\" & rsTop5Image.fields("image_user_type") & "_" & CStr(rsTop5Image.fields("image_user"))
str_file_path = str_folder & "\" & str_filename
str_web_path = "/members/images/" & rsTop5Image.fields("image_user_type") & "_" & CStr(rsTop5Image.fields("image_user")) & "/" & str_filename
if not fs.FileExists(str_file_path) Then
str_filename = "caster_" & string(6-len(rsTop5Image.fields("image_id")),"0") & rsTop5Image.fields("image_id") & "." & "jpg"
str_web_path = "/members/images/" & rsTop5Image.fields("image_user_type") & "_" & CStr(rsTop5Image.fields("image_user")) & "/" & str_filename
str_file_path = str_folder & "\" & str_filename
end if
if fs.FileExists(str_file_path) Then
set myImg = loadpicture(str_file_path)
if myImg.width > myImg.height then
str_class = "thumb"
else
str_class = "vertThumb"
end if
end if
if rsTop5Image.fields("image_user_type") = "Diver" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT profile_username, " & _
" profile_id " & _
"FROM scuba_profile " & _
"WHERE profile_id = " & CStr(rsTop5Image.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("profile_username")
str_user_id = rsGetUser.fields("profile_id")
str_user_type = "Diver"
elseif rsTop5Image.fields("image_user_type") = "Instructor" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT instructor_username, " & _
" instructor_id " & _
"FROM scuba_instructors " & _
"WHERE instructor_id = " & CStr(rsTop5Image.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("instructor_username")
str_user_id = rsGetUser.fields("instructor_id")
str_user_type = "Instructor"
elseif rsTop5Image.fields("image_user_type") = "Shop" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT shop_username, " & _
" shop_id " & _
"FROM scuba_shops " & _
"WHERE shop_id = " & CStr(rsTop5Image.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("shop_username")
str_user_id = rsGetUser.fields("shop_id")
str_user_type = "Shop"
end if
%>
" title="<%=rsTop5Image.fields("image_title")%>">
" title="<%=rsTop5Image.fields("image_title")%>" class="pic_title"><%=rsTop5Image.fields("image_title")%>
<%
set rsCountComment = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT comment_id " & _
"FROM caster_image_comments " & _
"WHERE comment_image_id = " & rsTop5Image.fields("image_id")
'response.write mySQL
rsCountComment.Open mySQL, conn, 2, 2
if not rsCountComment.EOF then
%>
<%
end if
if CInt(rsTop5Image.fields("count_vote_id")) = 0 then
str_rate_votes = "Be the first to vote!"
else
str_total_votes = rsTop5Image.fields("count_vote_id")
end if
if CInt(str_total_votes) = 0 then
else
set rsGetRateVotes = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT sum(vote_rate) AS sum_vote_rate " & _
"FROM caster_image_votes " & _
"WHERE vote_image_id = " & rsTop5Image.fields("image_id")
'response.write mySQL
rsGetRateVotes.Open mySQL, conn, 2, 2
str_sum_vote_rate = rsGetRateVotes.fields("sum_vote_rate")
if CInt(str_total_votes) = 0 or isNull(str_sum_vote_rate) then
else
str_rate = Round(CInt(str_sum_vote_rate)/CInt(str_total_votes))
end if
end if
if isNumeric(str_rate) then
if str_rate >= 1 then
for ii=1 to int(str_rate)
%>
<%
next
end if
end if
%>
Votes: <%=str_total_votes%>
<%=str_user%>
|
<%
num = num + 1
rsTop5Image.MoveNext
Loop
rsTop5Image.Close
%>
|
 |
<%
set rsTop5Image = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT SUM(caster_image_votes.vote_rate)/COUNT(caster_image_votes.vote_image_id) AS stars, " & _
" COUNT(caster_image_votes.vote_image_id) AS count_vote_id, " & _
" caster_images.image_id, " & _
" caster_images.image_title, " & _
" caster_images.image_video_link, " & _
" caster_images.image_user, " & _
" caster_images.image_user_type, " & _
" caster_images.image_tags " & _
"FROM caster_image_votes " & _
" LEFT JOIN caster_images ON caster_image_votes.vote_image_id = caster_images.image_id " & _
"WHERE caster_images.image_video = 'v' " & _
"GROUP BY caster_image_votes.vote_image_id " & _
"ORDER BY stars DESC, count_vote_id DESC " & _
"LIMIT 0, 5 "
'response.write mySQL
rsTop5Image.Open mySQL, conn, 2, 2
num = 1
Do While Not rsTop5Image.EOF
Set fs=Server.CreateObject("Scripting.FileSystemObject")
str_filename = "caster_" & string(6-len(rsTop5Image.fields("image_id")),"0") & rsTop5Image.fields("image_id") & "." & "gif"
str_folder = Server.MapPath("\members\images") & "\" & rsTop5Image.fields("image_user_type") & "_" & CStr(rsTop5Image.fields("image_user"))
str_file_path = str_folder & "\" & str_filename
str_web_path = "/members/images/" & rsTop5Image.fields("image_user_type") & "_" & CStr(rsTop5Image.fields("image_user")) & "/" & str_filename
if not fs.FileExists(str_file_path) Then
str_filename = "caster_" & string(6-len(rsTop5Image.fields("image_id")),"0") & rsTop5Image.fields("image_id") & "." & "jpg"
str_web_path = "/members/images/" & rsTop5Image.fields("image_user_type") & "_" & CStr(rsTop5Image.fields("image_user")) & "/" & str_filename
str_file_path = str_folder & "\" & str_filename
end if
if fs.FileExists(str_file_path) Then
set myImg = loadpicture(str_file_path)
if myImg.width > myImg.height then
str_class = "thumb"
else
str_class = "vertThumb"
end if
end if
if rsTop5Image.fields("image_user_type") = "Diver" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT profile_username, " & _
" profile_id " & _
"FROM scuba_profile " & _
"WHERE profile_id = " & CStr(rsTop5Image.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("profile_username")
str_user_id = rsGetUser.fields("profile_id")
str_user_type = "Diver"
elseif rsTop5Image.fields("image_user_type") = "Instructor" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT instructor_username, " & _
" instructor_id " & _
"FROM scuba_instructors " & _
"WHERE instructor_id = " & CStr(rsTop5Image.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("instructor_username")
str_user_id = rsGetUser.fields("instructor_id")
str_user_type = "Instructor"
elseif rsTop5Image.fields("image_user_type") = "Shop" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT shop_username, " & _
" shop_id " & _
"FROM scuba_shops " & _
"WHERE shop_id = " & CStr(rsTop5Image.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("shop_username")
str_user_id = rsGetUser.fields("shop_id")
str_user_type = "Shop"
end if
%>
<%
str_image = getYouTubeImage(rsTop5Image.fields("image_video_link"))
%>
" title="<%=rsTop5Image.fields("image_title")%>">
" title="<%=rsTop5Image.fields("image_title")%>" class="pic_title"><%=rsTop5Image.fields("image_title")%>
<%
set rsCountComment = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT comment_id " & _
"FROM caster_image_comments " & _
"WHERE comment_image_id = " & rsTop5Image.fields("image_id")
'response.write mySQL
rsCountComment.Open mySQL, conn, 2, 2
if not rsCountComment.EOF then
%>
<%
end if
if CInt(rsTop5Image.fields("count_vote_id")) = 0 then
str_rate_votes = "Be the first to vote!"
else
str_total_votes = rsTop5Image.fields("count_vote_id")
end if
if CInt(str_total_votes) = 0 then
else
set rsGetRateVotes = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT sum(vote_rate) AS sum_vote_rate " & _
"FROM caster_image_votes " & _
"WHERE vote_image_id = " & rsTop5Image.fields("image_id")
'response.write mySQL
rsGetRateVotes.Open mySQL, conn, 2, 2
str_sum_vote_rate = rsGetRateVotes.fields("sum_vote_rate")
if CInt(str_total_votes) = 0 or isNull(str_sum_vote_rate) then
else
str_rate = Round(CInt(str_sum_vote_rate)/CInt(str_total_votes))
end if
end if
if isNumeric(str_rate) then
if str_rate >= 1 then
for ii=1 to int(str_rate)
%>
<%
next
end if
end if
%>
Votes: <%=str_total_votes%>
<%=str_user%>
|
<%
rsTop5Image.MoveNext
num = num + 1
Loop
rsTop5Image.Close
%>
|
|
| |
| |
|
|
|