prøv at smide den her ind...:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
site = "profil"
subsite = "profilhotbilleder"
%>
<!--#include virtual="/includeall.asp"-->
<!--#include virtual="/top.asp"-->
<!--#include virtual="/secure/access.asp"-->
<script language="javascript" type="text/javascript">
<!-- Centrering af pop-up vindue start
var win=null;
function NewWindow(mypage,myname,w,h,scroll,pos){
if(pos=="random"){LeftPosition=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;TopPosition=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
if(pos=="center"){LeftPosition=(screen.width)?(screen.width-w)/2:100;TopPosition=(screen.height)?(screen.height-h)/2:100;}
else if((pos!="center" && pos!="random") || pos==null){LeftPosition=0;TopPosition=20}
settings='width='+w+',height='+h+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=no';
win=window.open(mypage,myname,settings);}
// Centrering af pop-up vindue slut-->
</script>
<table width="772" border="0" align="center" cellpadding="0" cellspacing="0" class="borderTop">
<tr bgcolor="#FFFFFF">
<td width="144" align="left" valign="top"><!--#include virtual="/left.asp"--></td>
<td width="523" align="left" valign="top"><br>
<br>
<table width="448" height="134" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td align="left" valign="top">
<%
sqlfind="Select Count(*) as Found from hotbilleder where (profilerID = '" & Session("id") & "')"
set RSfind = Conn.execute(sqlfind)
%>
<% if RSfind("Found") = "0" then %>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="2%"> </td>
<td width="95%"> Du har ikke tilføjet nogle hot billeder... </td>
<td width="3%"> </td>
</tr>
</table>
<% Else
'---- PLACERING DEL 1 START------
Dim HotBillederArray(500,1)
Dim PlaceringArr(500)
strSQL1 = "SELECT DISTINCT hotbillederID FROM hotstemmer"
Set DistinctSelection = Conn.Execute(strSQL1)
do
strSQL2 = "SELECT * FROM hotstemmer "
strSQL2 = strSQL2 & " WHERE hotbillederID = " & DistinctSelection("hotbillederID") & ""
Set SumSelection = Conn.Execute(strSQL2)
do
SumSelection_Sum = SumSelection_Sum + SumSelection("point")
SumSelection.MoveNext
loop while not SumSelection.EOF
strSQL3 = "SELECT * FROM hotstemmer "
strSQL3 = strSQL3 & " WHERE hotbillederID = " & DistinctSelection("hotbillederID") & ""
Set NumSelection = Conn.Execute(strSQL3)
do
NumSelection_TotalRecords = NumSelection_TotalRecords + 1
NumSelection.MoveNext
Loop While not NumSelection.EOF
Avarage = SumSelection_Sum / NumSelection_TotalRecords
HotBillederArray(DistinctSelection("hotbillederID"),0) = DistinctSelection("hotbillederID")
HotBillederArray(DistinctSelection("hotbillederID"),1) = Avarage
NumSelection_TotalRecords = 0
SumSelection_Sum = 0
DistinctSelection.MoveNext
loop while not DistinctSelection.EOF
'sortering
For i = UBound(HotBillederArray) - 1 To 1 Step - 1
MaxVal = HotBillederArray(i,1)
MaxIndex = i
For j = 0 To i
If HotBillederArray(j,1) > MaxVal Then
MaxVal = HotBillederArray(j,1)
MaxIndex = j
End If
Next
If MaxIndex < i Then
HotBillederArray(MaxIndex,1) = HotBillederArray(i,1)
HotBillederArray(MaxIndex,0) = HotBillederArray(i,0)
HotBillederArray(i,1) = MaxVal
HotBillederArray(i,0) = MaxVal
End If
Next
'Sortering Slut
'Læs det sorterede Array og sæt dem i en pæn orden
For ReadArr = 0 to 500
If HotBillederArray(ReadArr,1) <> "" then
placering = placering + 1
PlaceringArr(placering) = HotBillederArray(ReadArr,1)
end if
Next
'---- PLACERING DEL 1 SLUT------
SQLhotbilleder = "select * from hotbilleder where profilerID = " & session("id")
set RShotbilleder = conn.execute(SQLhotbilleder)
Do 'loop
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="22%"><img src="/images/hotbilleder/thumb/<%=RShotbilleder("billede")%>" width="100"><br>
<a href="ret.asp?id=<%=RShotbilleder("id")%>" onclick="NewWindow(this.href,'Copyright','450','150','no','center');return false">Ret</a> - <a href="slet.asp?id=<%=RShotbilleder("id")%>" onclick="NewWindow(this.href,'Copyright','450','150','no','center');return false">Slet</a></td>
<td width="3%"> </td>
<td width="41%">Tilføjet: <%=DanskDatoTid(RShotbilleder("dato"))%><br>
Status:
<%if RShotbilleder("godkendt") = "0" then%>
<span style="color: #993333">Venter på godkendelse!</span>
<%else%>
<span style="color: #009900">Godkendt</span>
<%end if
SQLgen2 = "SELECT COUNT(*) AS count FROM hotstemmer where hotbillederID = " & RShotbilleder("id")&""
Set RSgen2 = Conn.Execute(SQLgen2)
if not RSgen2("count") = "0" then
SQLgen1 = "SELECT SUM(point) FROM hotstemmer where hotbillederID = " & RShotbilleder("id")&""
Set RSgen1 = Conn.Execute(SQLgen1)
gennemsnit = RSgen1(0)/RSgen2("count")
end if
%>
<br>
<%
if not RSgen2("count") = "0" then
Response.Write "Score: "
Response.Write FormatNumber(gennemsnit,2)
Response.Write "(" & RSgen2("count") & " stemmer)"
Else
Response.Write "Ingen stemmer!"
End If
%><br>
<%
if not RSgen2("count") = "0" then
'---- PLACERING DEL 2 START------
strSQL4 = "SELECT * FROM hotstemmer "
strSQL4 = strSQL4 & "WHERE hotbillederID = " & RShotbilleder("id") & ""
Set SumSelection2 = Conn.Execute(strSQL4)
do
SumSelection2_Sum = SumSelection2_Sum + SumSelection2("point")
SumSelection2.MoveNext
loop while not SumSelection2.EOF
strSQL5 = "SELECT * FROM hotstemmer "
strSQL5 = strSQL5 & " WHERE hotbillederID = " & RShotbilleder("id") & ""
Set NumSelection2 = Conn.Execute(strSQL5)
do
NumSelection2_TotalRecords = NumSelection2_TotalRecords + 1
NumSelection2.MoveNext
Loop While not NumSelection2.EOF
Avarage2 = SumSelection2_Sum / NumSelection2_TotalRecords
For TotalPlacering = 0 to 500
If PlaceringArr(TotalPlacering) = Avarage2 Then
Response.Write "Placering: " & TotalPlacering & ": " & PlaceringArr(TotalPlacering) & " Point <br>"
Exit For
end if
Next
Else
response.Write("MIN. 20 stemmer")
End if
'---- PLACERING DEL 2 SLUT------
%>
<br>
<br>
<a href="/default.asp?mode=picture&pictureID=<%=RShotbilleder("id")%>">Se billede</a><br>
<a href="/profil/hotbilleder/sestemmer/?id=<%=RShotbilleder("id")%>">Se stemmer</a> </td>
<td width="34%" valign="bottom">
<%
Sql = "SELECT count(*) as '0' FROM hotstemmer WHERE profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS0 = conn.execute(sql)
if not RS0("0") = "0" then
Sql = "SELECT count(*) as '1' FROM hotstemmer WHERE point = '1' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS1 = conn.execute(sql)
Sql = "SELECT count(*) as '2' FROM hotstemmer WHERE point = '2' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS2 = conn.execute(sql)
Sql = "SELECT count(*) as '3' FROM hotstemmer WHERE point = '3' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS3 = conn.execute(sql)
Sql = "SELECT count(*) as '4' FROM hotstemmer WHERE point = '4' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS4 = conn.execute(sql)
Sql = "SELECT count(*) as '5' FROM hotstemmer WHERE point = '5' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS5 = conn.execute(sql)
Sql = "SELECT count(*) as '6' FROM hotstemmer WHERE point = '6' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS6 = conn.execute(sql)
Sql = "SELECT count(*) as '7' FROM hotstemmer WHERE point = '7' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS7 = conn.execute(sql)
Sql = "SELECT count(*) as '8' FROM hotstemmer WHERE point = '8' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS8 = conn.execute(sql)
Sql = "SELECT count(*) as '9' FROM hotstemmer WHERE point = '9' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS9 = conn.execute(sql)
Sql = "SELECT count(*) as '10' FROM hotstemmer WHERE point = '10' AND profilerID = "& session("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS10 = conn.execute(sql)
varTotal = RS0("0")
varTalt1 = RS1("1")
varTalt2 = RS2("2")
varTalt3 = RS3("3")
varTalt4 = RS4("4")
varTalt5 = RS5("5")
varTalt6 = RS6("6")
varTalt7 = RS7("7")
varTalt8 = RS8("8")
varTalt9 = RS9("9")
varTalt10 = RS10("10")
ialt1 = varTalt1/varTotal*100
ialt2 = varTalt2/varTotal*100
ialt3 = varTalt3/varTotal*100
ialt4 = varTalt4/varTotal*100
ialt5 = varTalt5/varTotal*100
ialt6 = varTalt6/varTotal*100
ialt7 = varTalt7/varTotal*100
ialt8 = varTalt8/varTotal*100
ialt9 = varTalt9/varTotal*100
ialt10 = varTalt10/varTotal*100
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="bottom">
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt1,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt2,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt3,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt4,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt5,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt6,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt7,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt8,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt9,0)%>"></td>
<td width="10%"><img src="/images/statistik.jpg" width="7" height="<%= Round(ialt10,0)%>"></td>
</tr>
<tr align="center" valign="top">
<td>1</td>
<td>2</td>
<td>3</td>
<td>4</td>
<td>5</td>
<td>6</td>
<td>7</td>
<td>8</td>
<td>9</td>
<td>10</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
</table>
<br>
<%
RShotbilleder.MoveNext
Loop while not RShotbilleder.EOF
End if
%><br>
<a href="upload.asp?id=<%=session("id")%>" onclick="NewWindow(this.href,'Copyright','450','150','no','center');return false">Tilføj nyt hot billede</a></td></tr>
</table>
</td>
<td width="103" align="right" valign="top"><!--#include virtual="/right.asp"--></td>
</tr>
</table>
<!--#include virtual="/bottom.asp"-->
Ny bruger
Nybegynder
Opret
Preview
