---
title: "Behöver akut hjälp!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6259-behöver-akut-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tapani"
published: "2000-08-02T13:30:00.000Z"
updated: "2000-08-10T14:27:00.000Z"
replies: 3
views: 152
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/6259-behöver-akut-hjälp"
---

# Behöver akut hjälp!!

## #1 — tapani, 2000-08-02T13:30Z

Har ställt frågan förut men ej fått något svar på mitt problem..

Har en databas där ASP-sidan listar
deltagare med minsta diff..(tider)
Sidan sorterar deltagarna med minsta
diff överst..

Kolumnerna ser ut som följande (ASP-SIDAN)

Datum Namn MinstaDiff

Nu undrar jag:

Vill i en kolumn (ny kolumn före Datum)
ha in Pos (position) alltså vilken
placering deltagaren är på..

Hur kan en kod se ut som generar dessa
siffror automatiskt i kolumnen??

Någon som kan?

Tack på förhand...

Permalänk: https://www.webforum.nu/p/6259

## #2 — dap, 2000-08-02T18:24Z

Kanske det går att lägga in en räknare i den loop som skriver ut listan.

```
RS.MoveFirst 
Do While Not RS.EOF 'Din loop, byt RS mot ditt RecordSet.
counter = counter + 1 'Räknaren

...

<TD><%=counter%></TD>

...

RS.MoveNext
Loop
```

Eftersom du ordnade gubbarna efter minsta diff redan i recordset:et så borde rätt gubbe få rätt siffra. Glöm inte att Dim counter.

::dap

Permalänk: https://www.webforum.nu/p/245132

## #3 — tapani, 2000-08-03T07:26Z

Jag får inte till det. Upptäckte att
jag redan kör en counter.. Vet inte
om den ställer till problem..
Koden är här nedan..

```

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 50

SQL = "Select * From Res Order by Diff, ENamn"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("resultat.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

If rstemp.EOF then
   Response.write "Inga träffar vid sökning av ordet " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "FBFFDD"
   Else       color = "E7E7D6"
  End If

   %>

   <tr bgcolor="<%=color%>"><td><%= rstemp("Datum")%></td><td><%= rstemp("Namn") & " " & rstemp("ENamn")%></td><td align="center"><%= rstemp("Diff")%> s</tr>
   <%
   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %>
   <tr><td></td><td><hr></td></tr>
   <tr><td></td><td><b>
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 50 then
      pad = ""
   End If
   ref = "<b><a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 50 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
```

Permalänk: https://www.webforum.nu/p/245133

## #4 — tapani, 2000-08-10T14:27Z

Ingen som kan hjälpa mig här???

Permalänk: https://www.webforum.nu/p/245134

---

Tråden på webben: https://www.webforum.nu/amne/asp/6259-behöver-akut-hjälp