webForumDet fria alternativet
Logga in / Bli medlem

Script hjälp...

ASP

4 svar · 184 visningar · startad av ReloadMaster

Medlem sedan aug. 2001239 inlägg
Trådstart#1

Tjena!
Jag skulle behövahjälp med ett litet
script...
Det är så att jag skulle vilja ha hjälp med att göra ett script som visar top 15 på en lista...

<% Response.Buffer = True %>
<html>
<head>
<title>BildRöstning - _ _ _ _ _ _.nu</title>
</head>
<body>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("votedb.mdb")

SQL = "SELECT top 15 * From bildrost ORDER BY roster DESC"
Set RecSet = Connect.Execute(SQL)

If RecSet.EOF Then
%> 
Inga BildOmröstningar för tillfället... 
<%
Else
%>
<b>Rösta på bilder:</b><br>  
<% 
For loopcount = 1 to 15
If RecSet.EOF then
%>
<table border="2" width="100%">
    <tr>
        <td width="8%"><% =loopcount %></td>
        <td width="82%"><a href="bildrostning_regga.asp">Din bild här</a></td>
        <td width="10%">&nbsp;</td>
    </tr>
</table>
<%
Else
ID = RecSet("ID")
bild = RecSet("bild"")
RB = RecSet("Roster")
%>
<table border="2" width="100%">
    <tr>
        <td width="8%"><% =loopcount %></td>
        <td width="82%"><a href="bildrostning_rakna.asp?ID=<% =ID%>"><img src="<% =bild%>"></a></td>
        <td width="10%"></td>
    </tr>
</table>
<%
RecSet.movenext
end if
next
%>
<p>
<%End If%>

<%
RecSet.Close 
Set RecSet = Nothing 
Connect.Close 
Set Connect = Nothing 
%>  
 
<hr>
<a href="bildrostning_login.asp">Logga in</a> <a href="bildrostning_alogin.asp?">Admin</a> 

</body>
</html>

Och jag uppstäckte att jag hade gjort fel på det och nu skulle jag vilja ha
hjälp med det att om det finns 15 ID eller mindre så ska det skriva ut det så långt som möjligt
och på dom resterande platserna ska det stå "Din bild här"

Medlem sedan aug. 2001239 inlägg
#2

jag glömde tillägga att roster ska vara högre än > 0

Medlem sedan aug. 2001239 inlägg
#3

Det funkar så det var inget (ännu)

utom högre än 0:an

Medlem sedan feb. 20012 412 inlägg
#4

Hej!

Om det är samma problem så har du redan påbörjat en tråd här:
http://cgi.webforum.nu/wf/Forum11/HTML/006232.html

mvh Jörgen

Medlem sedan aug. 2001226 inlägg
#5

SQL = "SELECT * From bildrost WHERE roster > 0 ORDER BY roster DESC"

antalbilder = 0
Do until RecSet.EOF or antalbilder = 0
ID = RecSet("ID")
bild = RecSet("bild"")
RB = RecSet("Roster")
%>
<table border="2" width="100%">
<tr>
<td width="8%"><% =loopcount %></td>
<td width="82%"><a href="bildrostning_rakna.asp?ID=<% =ID%>"><img src="<% =bild%>"></a></td>
<td width="10%"></td>
</tr>
</table>
<%
RecSet.movenext

262 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)