3 svar · 124 visningar · startad av tapani
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...
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
------------------
Assumption is mother of all fuckups.
[Redigerat av dap den 02 aug 2000]
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
%>
Ingen som kan hjälpa mig här???