Søg
Avatar billede ejay Novice
02. marts 2003 - 05:11 Der er 13 kommentarer og
1 løsning

3 rækker

Hvordan får jeg 3 rækker i denne kode ( lige nu viser den kun 1 række)

' Database connection
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kategorier ORDER BY kategori"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("links.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    Response.Write "<table width='500' cellspacing='1' cellpadding='3'>"
                Response.Write "<tr><td width='100%' bgcolor=""#ffffff""><font size=""1""><b>Kategorier</b></font></td></tr>"
  Do until rs.EOF = True


        Response.Write "<table><tr><td width='100%' bgcolor=""" & bg & """><font size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") & "&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td></tr></table>"
  rs.MoveNext
  Loop
End If
        Response.Write "<tr><td align=""right"" bgcolor=""#ffffff""><font size=""1""><b><a href='links.asp?mode=søg' class=""menu"">» Søg i Forretninger</a>&nbsp;&nbsp;&nbsp;<a href='links.asp?mode=add' class=""menu"">» Tilføj Forretning</a></b>&nbsp;&nbsp;</font></td></tr>"
    Response.Write "</table>"
rs.Close
Set rs = Nothing


end select %>
Avatar billede ejay Novice
02. marts 2003 - 05:12 #1
det er så denne her der skal vises i 3 ræker

Response.Write "<table><tr><td width='100%' bgcolor=""" & bg & """><font size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") & "&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td></tr></table>"
  rs.MoveNext
  Loop
End If
Avatar billede hossein Nybegynder
02. marts 2003 - 10:03 #2
Den sætning kan ikke laves i 3 rækker. Eller mener du, at per side skal indeholde eller vises med 3 rækker, også en side paging hvor man går frem eller tilbage?
Avatar billede keysersoze Ekspert
02. marts 2003 - 10:06 #3
utestet - prøv lige dette;

counter = 0
Do until rs.EOF = True

if count = 3 then
    Response.Write "</tr>" & VbCrLf
      Response.Write "<tr>" & VbCrLf
      count = 0
end if

Response.Write "<table><tr><td width='100%' bgcolor=""" & bg & """><font size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") & "&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td></tr></table>"

counter = counter + 1
rs.MoveNext
Loop
Avatar billede ejay Novice
02. marts 2003 - 16:15 #4
Keysersoze/ den viser stadig kun en række :-(

men hvis du har mail eller icq eller msn så kan jeg lige sende hele koden til dig?
Avatar billede keysersoze Ekspert
02. marts 2003 - 16:21 #5
min fejl - prøv i stedet dette;

Response.Write "<table>"
Response.Write "<tr>"
counter = 0
Do until rs.EOF = True

if count = 3 then
    Response.Write "</tr>" & VbCrLf
      Response.Write "<tr>" & VbCrLf
      count = 0
end if

Response.Write "<td bgcolor=""" & bg & """><font size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") & "&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td>"

counter = counter + 1
rs.MoveNext
Loop
Response.write "</tr>"
Response.Write "</table>"
Avatar billede ejay Novice
02. marts 2003 - 16:42 #6
øhh ved ikke om det er mig der laver ged i den men se her: http://80.199.161.220/david/links/links.asp
Avatar billede ejay Novice
02. marts 2003 - 16:43 #7
sådan her ser koden ud nu:

' Database connection
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kategorier ORDER BY kategori"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("links.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  Response.Write "<table>"
Response.Write "<tr>"
counter = 0
Do until rs.EOF = True

if count = 3 then
    Response.Write "</tr>" & VbCrLf
      Response.Write "<tr>" & VbCrLf
      count = 0
end if

Response.Write "<td bgcolor=""" & bg & """><font size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") & "&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td>"

counter = counter + 1
rs.MoveNext
Loop
Response.write "</tr>"
Response.Write "</table>" 
Response.Write "<tr><td align=""right"" bgcolor=""#ffffff""><font size=""1""><b><a href='links.asp?mode=søg' class=""menu"">» Søg i Forretninger</a>&nbsp;&nbsp;&nbsp;<a href='links.asp?mode=add' class=""menu"">» Tilføj Forretning</a></b>&nbsp;&nbsp;</font></td></tr>"
   
End If
rs.Close
Set rs = Nothing

end select %>
Avatar billede keysersoze Ekspert
02. marts 2003 - 16:51 #8
ok - helt vågen er jeg vist ikke... prøv;

Database connection
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kategorier ORDER BY kategori"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("links.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  Response.Write "<table>"
Response.Write "<tr>"
counter = 0
Do until rs.EOF = True

if counter = 3 then
    Response.Write "</tr>" & VbCrLf
      Response.Write "<tr>" & VbCrLf
      counter = 0
end if

Response.Write "<td bgcolor=""" & bg & """><font size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") & "&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td>"

counter = counter + 1
rs.MoveNext
Loop
Response.write "</tr>"
Response.Write "</table>" 
Response.Write "<tr><td align=""right"" bgcolor=""#ffffff""><font size=""1""><b><a href='links.asp?mode=søg' class=""menu"">» Søg i Forretninger</a>&nbsp;&nbsp;&nbsp;<a href='links.asp?mode=add' class=""menu"">» Tilføj Forretning</a></b>&nbsp;&nbsp;</font></td></tr>"
   
End If
rs.Close
Set rs = Nothing

end select %>
Avatar billede ejay Novice
02. marts 2003 - 16:55 #9
oki nu virker det :-) så lige et tillægs spg. kan man gøre sådan at det står i alfabetisk orden ned a istedet for til højre?
Avatar billede ejay Novice
02. marts 2003 - 16:58 #10
men ud over det så er du en seriøs hardcore coder keysersoze :-) det er ikke første gang du har hjuæpet mig.
Avatar billede ejay Novice
02. marts 2003 - 16:59 #11
hjulpet even
Avatar billede keysersoze Ekspert
02. marts 2003 - 17:15 #12
det kan man godt, men det kræver noget helt helt andet - fx noget hvor man først tæller antallet af records, dividerer med 3 og så ellers looper i én kolonne indtil 1/3 er løbet igennem... derefter indsætter man så </tr><tr> og igen looper 1/3 igennem...

fx...
Avatar billede ejay Novice
02. marts 2003 - 17:22 #13
oki for avanceret til mig :-) men eller tak keysersoze :-)
Avatar billede keysersoze Ekspert
02. marts 2003 - 17:23 #14
np
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »