<%
Set Rs = Conn.Execute("SELECT persons.*,((hits.vote1+hits.vote2+hits.vote3+hits.vote4+hits.vote5+hits.vote6+hits.vote7+hits.vote8+hits.vote9+hits.vote10) / hits.raters) AS score,hits.raters FROM persons INNER JOIN hits ON hits.pid=persons.id WHERE persons.id=" & strPID)
If Rs.BOF Then Response.Redirect "default.asp"
Set CRs = Conn.Execute("SELECT id FROM shown WHERE sessionid='" & SessionID & "' AND pid=" & strPID)
If CRs.BOF Then
Conn.Execute "UPDATE persons SET shown=shown+1 WHERE id=" & strPID
Conn.Execute "INSERT INTO shown (sessionid,pid,ip,datetime) VALUES ('" & SessionID & "'," & strPID & ",'" & RemoteAddress & "',now())"
End If
Set CRs = Conn.Execute("SELECT id FROM votes WHERE sessionid='" & SessionID & "' AND pid=" & strPID)
bolHasVoted = (Not CRs.BOF)
strName = Rs("name")
strCity = Rs("city")
strCountry = Rs("country")
strText = Rs("text")
strGender = Rs("gender")
strPictureFile = Rs("picturefile")
strRaters = Rs("raters"): If CLng("0" & strRaters) = 1 Then strRaters = strRaters & " stemme" Else strRaters = strRaters & " stemmer"
strScore = FormatNumber("0" & Rs("score"), 2, True)
If strName > "" Then
strProfileHead = strName
If strCity > "" Then strProfileHead = strProfileHead & ", " & strCity
If strCountry > "" Then strProfileHead = strProfileHead & " (" & strCountry & ")"
End If
If strText > "" Then strProfileContent = strText
Select Case Session("onlyvote")
Case "0","": strOV_DontCare = " checked"
Case "1": strOV_Women = " checked"
Case "2": strOV_Men = " checked"
Case "3": strOV_Children = " checked"
End Select
If strLastPID > "" And IsNumeric(strLastPID) Then
Set LastRs = Conn.Execute("SELECT persons.*,((hits.vote1+hits.vote2+hits.vote3+hits.vote4+hits.vote5+hits.vote6+hits.vote7+hits.vote8+hits.vote9+hits.vote10) / hits.raters) AS score,hits.raters FROM persons INNER JOIN hits ON hits.pid=persons.id WHERE persons.id=" & strLastPID)
If Not Rs.BOF Then
If LastRs("name") > "" Then
strLastProfileHead = LastRs("name")
If LastRs("city") > "" Then strLastProfileHead = strLastProfileHead & ", " & LastRs("city")
If LastRs("country") > "" Then strLastProfileHead = strLastProfileHead & " (" & LastRs("country") & ")"
End If
strLastRaters = LastRs("raters"): If CLng("0" & strLastRaters) = 1 Then strLastRaters = strLastRaters & " stemme" Else strLastRaters = strLastRaters & " stemmer"
%>
<center>
<table border="0" cellpadding="4" cellspacing="2" bgcolor="#D3E4F8" width="75%">
<tr><td bgcolor="#2072BE"><b>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<font color="#ffffff"><b>
Resultatet af afstemningen (<%=strLastRaters%>):<br>
<font size="5"><%=FormatNumber(LastRs("score"), 2, True)%></font>
<p>
<%=strLastProfileHead%>
</b></font>
</td>
<td align="center">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" align="center">
<tr><td><img src="out_img.asp?pid=<%=strLastPID%>" alt="<%=LastRs("name")%>"><br></td></tr>
</table>
</td>
</tr>
</table>
</b></td></tr>
</table>
</center>
<hr class="gray_hr">
<%
End If
End If
%>
<br>
<form name="frmVote" action="default.asp" method="post">
<input type="hidden" name="mode" value="vote">
<input type="hidden" name="pid" value="<%=strPID%>">
<input type="hidden" name="gender" value="<%=strGender%>">
<center>
<b>Jeg ønsker kun at stemme på :</b><br>
<input type="radio" name="onlyvote" value="2"<%=strOV_Men%>>Mænd<input type="radio" name="onlyvote" value="1"<%=strOV_Women%>>Kvinder<input type="radio" name="onlyvote" value="3"<%=strOV_Children%>>Børn<input type="radio" name="onlyvote" value="0"<%=strOV_DontCare%>>Ligemeget<br>
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td><img src="pictures/<%=strPID%>_<%=strPictureFile%>?<%=Rnd*10%>" alt="<%=strName%>"><br></td></tr>
</table>
<b><%=strProfileHead%></b>
<p>
<table border="0" width="75%">
<tr><td><%=strProfileContent%></td></tr>
</table>
<p>
<% If Not bolHasVoted Then %>
<table border="0" cellpadding="4" cellspacing="2" bgcolor="#D3E4F8" width="75%">
<tr><td bgcolor="#ffffff"><b>
<center>
Er personen HOT or not ?<br>
<font size="4" color="#000000">NOT</font>
<% For Index = 1 To 10 %>
<input type="radio" name="vote" value="<%=Index%>" onclick="document.frmVote.submit();"><%=Index%>
<% Next %>
<font size="4" color="#ff0000">HOT</font>
</center>
</b></td></tr>
</table>
<% Else %>
<table border="0" cellpadding="4" cellspacing="2" bgcolor="#D3E4F8" width="75%">
<tr><td bgcolor="#2072BE"><b>
<center>
<font color="#ffffff"><b>Resultatet af afstemningen (<%=strRaters%>):</b></font><br>
<font color="#ffffff" size="4"><%=FormatNumber(strScore, 2, True)%></font>
<br>
</center>
</b></td></tr>
</table>
<% End If %>
<br>
<input type="submit" name="next_pic" value="Vis næste billede" class="btn">
<hr class="gray_hr">
<b>
<a href="default.asp?mode=send_comment&pid=<%=strPID%>">Send en kommentar til personen</a>
<p>
Mener du dette er et <font color="#ff0000">fake</font> billede? Så fortæl os om det <a href="default.asp?mode=report_fake&pid=<%=strPID%>">her</a>.
<p>
Er du modig ? Tør du få sandheden om dig selv frem ?<br>
<a href="default.asp?mode=confirm">Så deltag selv i afstemningen</a>
<p>
Eller deltager du allerede - så klik <a href="default.asp?mode=login&out=yes">her for at rette din profil</a>.
</b>
</center>
</form>
