Lista alla ligor..

Hej!

Jag har gjort en liten kod här som skriver ut lite kort statistik om varje liga, som t.ex.:

Lerumsligan
12 av 15
Nästa omg: 23/5 2003

Går man in på pagar.asp?id=1 så visas statistik för liga med id 1, går man in på pagar.asp?id=2 så visas statistik för liga med id 2 o.s.v.

Men nu är det såhär att jag vill lista alla ligor under pagar.asp, hoppas ni förstår. Här har nu i alla fall min kod:

<%

If Request.QueryString("id") = "" Then
  intID = 1
Else
  intID = CInt(Request.QueryString("id"))
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")

strSQL = "SELECT * FROM tblLiga WHERE ligaid = " & intID & ""
Set objRS = Conn.Execute(strSQL)

strSQL = "SELECT * FROM tblSpel"
Set objRSS = Conn.Execute(strSQL)

strSQL = "SELECT omg FROM tblSpel WHERE hmal <> null AND ligaid = " & intID & " ORDER BY omg DESC"
Set objRSN = Conn.Execute(strSQL)

strSQL = "SELECT Max(omg) FROM tblSpel WHERE ligaid = " & intID
Set objRST = Conn.Execute(strSQL)

strSQL = "SELECT (SELECT Max(omg) + 1 FROM tblSpel) AS next, datum, tid FROM tblSpel WHERE ligaid = " & intID & " ORDER BY datum, tid, 1"
Set objRSV = Conn.Execute(strSQL)

Response.Write("<i>PÅGÅENDE LIGOR:</i><br>=====================<br>")

Do Until objRS.EOF
  If objRS("status") = "on" Then
    Response.Write("<b>Tabell " & objRS("liganamn") & "</b><br>")

If not objRSN.EOF Then
   Response.Write("Omgång " & objRSN("omg") & " av " & objRST(0) & "<br>")
   Response.Write("Nästa omg: " & datepart("d",objRSV("datum")) & "/" & month(objRSV("datum")) & " " & objRSV("tid") & "<br><br>")
Else
 Response.Write("Omgång 0 av " & objRST(0) & "<br>")
 Response.Write("Premiär " & datepart("d",objRSS("datum")) & "/" & month(objRSS("datum")) & " " & objRSS("tid") & "<br><br>")
End if
  End If
  objRS.MoveNext
Loop

objRs.Close : Set objRs = Nothing
Conn.Close : Set Conn = Nothing

%>

Så här

intID = CInt(Request.QueryString("id"))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")

if  intId <> "" then
strSQL = "SELECT * FROM tblLiga WHERE ligaid = " & intID
else 
strSQL = "SELECT * FROM tblLiga"
Set objRS = Conn.Execute(strSQL)

?

I så fall får du göra på samma sätt med resten av frågorna där du har med id i något villkor.

hmm, förstår inte riktigt.. kan du visa mig hela koden då?