---
title: "Script hjälp..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11647-script-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-09-16T21:10:00.000Z"
updated: "2001-09-17T06:32:00.000Z"
replies: 4
views: 184
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11647-script-hjälp"
---
# Script hjälp...
## #1 — ReloadMaster, 2001-09-16T21:10Z
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 %>
BildRöstning - _ _ _ _ _ _.nu
<%
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
%>
Rösta på bilder:
<%
For loopcount = 1 to 15
If RecSet.EOF then
%>
<%
Else
ID = RecSet("ID")
bild = RecSet("bild"")
RB = RecSet("Roster")
%>
| <% =loopcount %> |
 |
|
<%
RecSet.movenext
end if
next
%>
<%End If%>
<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
Logga in Admin
```
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"
Permalänk: https://www.webforum.nu/p/11647
## #2 — ReloadMaster, 2001-09-16T21:13Z
jag glömde tillägga att roster ska vara högre än \> 0
Permalänk: https://www.webforum.nu/p/286726
## #3 — ReloadMaster, 2001-09-16T21:15Z
Det funkar så det var inget (ännu)
utom högre än 0:an
Permalänk: https://www.webforum.nu/p/286727
## #4 — jorgen, 2001-09-16T21:18Z
Hej!
Om det är samma problem så har du redan påbörjat en tråd här:
mvh Jörgen
Permalänk: https://www.webforum.nu/p/286728
## #5 — pirro, 2001-09-17T06:32Z
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")
%\>
\
\
\| \<% =loopcount %\>\
\ | \\ \\
\ | \
\
\
\<%
RecSet.movenext
Permalänk: https://www.webforum.nu/p/286729
---
Tråden på webben: https://www.webforum.nu/amne/asp/11647-script-hjälp
|