ASP Top 10 Stemt

Hejsa..

Ja.. Jeg er sgu ikke god til asp, så jeg håber der er en venlig sjæl der kan hjælpe mig...Igen.. :o)

Jeg skal bruge en top 10 over de bedste stemte.
Jeg poster koden nedenfor. Til den hører der selvfølgelig en database med. (trailer.mdb)

Kan det lade sig gøre?

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT * FROM sider WHERE id LIKE '"  & Request.QueryString("id") & "'"
Set rs = objConn.Execute(strSQL)


If Not rs.EOF Then
    titel = rs("titel")
    pic = rs("pic")
    tlink = rs("tlink")
    omtale = rs("omtale")
    premiere = rs("premiere")
    skuespil = rs("skuespil")
    instruk = rs("instruk")
    studio = rs("studio")
    genre = rs("genre")
    tid = rs("tid")
    tilbage = rs("tilbage")
    tilbaget = rs("tilbaget")
    stemmer = rs("stemmer")
    totalStjerner = rs("totalStjerner")

    hplink = rs("hplink")
    hptekst = rs("hptekst")
   

Else
    Response.Write "<b>Der er noget galt med id'et. Kontakt webmaster på admin@trailersiden.dk</b><br><br>"
End If

%>


<html>
<head>
<title><%=titel%></title>
<link rel="stylesheet" type="text/css" href="../style.css">


</head>
<body bgcolor="#efefef" text="#000000" leftmargin="5" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="overflow:auto">
<span id="font">Trailers » Sektion A » <%=titel%></span>
<br>  <br>   

<center>
<table border="0" cellspacing="0" cellpadding="0" width="70%">
    <tr>
        <td width="80%" valign="top">
       
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Premiere:</b></td>
                    <td class="menuc"><%=premiere%></td>
            </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td valign="top" class="menuc" width="140"><b>Skuespillere:</b></td>
                    <td class="menuc"><%=skuespil%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Instruktør:</b></td>
                    <td class="menuc"><%=instruk%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Studio:</b></td>
                    <td class="menuc"><%=studio%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Genre:</b></td>
                    <td class="menuc"><%=genre%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Spilletid:</b></td>
                    <td class="menuc"><%=tid%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Officiel HP:</b></td>
                    <td class="menuc"><a href="<%=hplink%>" target="_new"><%=hptekst%></a></td>
                </tr>
            </table>
            <br><br><br>
        <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><a href="<%=tlink%>"><b>»</b> <u>Se trailer</U></a></td>
                    <td class="menuc">[<a href="mailto:support@trailersiden.dk">Dødt link</a>]</td>
                </tr>
            </table>
           
        </td>
   
        <td align="right"><img src="../pics/<%=pic%>" width="200" height="300" border="0"></td>
    </tr>   
    <tr>
        <td  colspan="2"><span id="font2"><br><hr color="#970000" size="1"><%=omtale%>
                           
        </td>
    </tr>
    <tr>
        <td  colspan="2"><span id="font2"><br><br>
        <% ' Vis antal stjerner
     
            if stemmer = 0 or stemmer = "" then
              billede = "s0"
            else
              snit = Round(totalStjerner / stemmer,3) * 2
              snit = round(snit) / 2
              snit = replace(snit, ".", "k")
              snit = replace(snit, ",", "k")
              billede = "s" & snit
            end if
           
            Response.Write "<img src=""" & billede & ".gif"">"
          %>
          <form action="trailers.asp?id=<%=Request.QueryString("id")%>" method="post">
            <input type="radio" name="karakter" value="1">1
            <input type="radio" name="karakter" value="2">2
            <input type="radio" name="karakter" value="3">3
            <input type="radio" name="karakter" value="4">4
            <input type="radio" name="karakter" value="5">5
            <input type="submit" name="Stem" value="Stem">
          </form>
        </td>
    </tr>
</table>
<br> 
                            <a href="<%=tilbage%>"><b><%=tilbaget%></b></a>

<br>
<a href="http://tracker.tradedoubler.com/click?p=3388&a=439636&g=29437" target="_blank"><img src="http://impdk.tradedoubler.com/imp/img/29437/439636" border=0></a>




</body>
</html>
<%
objConn.Close
%>