Avatar billede steckel Nybegynder
11. februar 2005 - 12:13 Der er 8 kommentarer og
1 løsning

opdel data udtræk fra mysql i table-rækker ?

Hejsa, jeg har et lille problem.
Jeg ved ikke hvordan man kan gøre så ens database bliver delt op i tabeler, sådan at når jeg laver et udtræk fra min mysql database at de f.eks bliver delt op i 3 rækker på langs.

eks.

1  2  3  4  5
6  7  8  9 10
11 12 13 14 15
16 17 18 19 20

sådan her ser min side nogenlunde ud:

<%   
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL}; server=localhost; database=test; uid=; pwd=;"

Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM tabel;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing

intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
  intPage = int(1)
else
  intPage = int(intPage)
end if
intPageSize = int(10)
intStart = intPage*intPageSize
intStart = intStart-intPageSize

IF CBool(intRecords MOD intPageSize) = FALSE THEN
intPages = int(intRecords/intPageSize)
ELSE
intPages = int((intRecords/intPageSize)+1)
END IF

Set objRs = Conn.Execute("SELECT * FROM tabel LIMIT " & intStart & ", " & intPageSize & ";")
 
  if objRs.EOF or objRs.BOF then

Response.Write "<p><b>!Error!</b></p>"

  else

For i = 1 to intPages
  if i = intPage then
    Response.Write "<b><u>" & i & "</u></b> "
  else
    Response.Write "<a href=""?Flashnr=" & i & """>"
    Response.Write i
    Response.Write "</a> "
  end if

       
        brColor = "#0033CC"
       
      Do until objRs.EOF
     
    x_id = objRs("ID")

        Response.Write " - " & x_id & " - "       
       
      objRs.MoveNext
     
      Loop

  end if

objRs.Close
Set objRs = Nothing

Conn.Close
Set Conn = Nothing
%>

Hvad skal jeg gøre??
Avatar billede anhansen Nybegynder
11. februar 2005 - 12:56 #1
Hvis jeg forstår det ret - så skal du bare udskrive dine links i en tabel istedet.
dvs. lav en Response.Write "<table>" inden du starter med at løbe dit recordset igennem og en Response.Write "</table>" efter.

Så laver du en tællevariabel - og så laver du celler og rækker.

Response.Write "<table>"
count = 0;
For i = 1 to intPages
  if count%3 = 0
    Response.Write "<tr>"
  endif
  Response.Write "<td>"
  if i = intPage then
    Response.Write "<b><u>" & i & "</u></b> "
  else
    Response.Write "<a href=""?Flashnr=" & i & """>"
    Response.Write i
    Response.Write "</a> "
  end if
        brColor = "#0033CC"
     
      Do until objRs.EOF
   
    x_id = objRs("ID")

        Response.Write " - " & x_id & " - "     
      Response.Write "</td>"
        if count%3 = 0
          Response.Write "</tr>"
        endif 
      count = count+1
      objRs.MoveNext
   
      Loop
Response.Write "</table>"

Kan ikke helt gennemskue med indryk osv. Men giver det mening?
Avatar billede steckel Nybegynder
11. februar 2005 - 20:31 #2
Hmmm.... jeg kan ikke få den til at virke.. :(
Avatar billede steckel Nybegynder
11. februar 2005 - 20:35 #3
Den skriver:

Error Type:
Sun ONE ASP VBScript compilation (0x800A0408)
Unsupported character ';'
/test.asp, line 206, column 10
Avatar billede anhansen Nybegynder
14. februar 2005 - 08:40 #4
ups.. det er linien :
count = 0;
der skal være uden ; til sidst
Avatar billede steckel Nybegynder
14. februar 2005 - 17:52 #5
Okay, nu har jeg rette det, med den siger stadig der er fejl..
Og dem har jeg også prøvet at rette lidt rundt, men virker stadig ikke..
nu er det bare

Error Type:
Sun ONE ASP VBScript compilation (0x800A0408)
Unsupported character '%'
/test.asp, line 36, column 9
Avatar billede anhansen Nybegynder
15. februar 2005 - 08:28 #6
ok.. er ikke den store vb haj - men du skal bruge "mod" funktion.
Så prøv at skrive
if count mod 3 = 0
Avatar billede steckel Nybegynder
15. februar 2005 - 12:17 #7
Det er også lige meget, jeg et sted hvor de havde opdelt en table række.... ;)
Så den brugte jeg i stedefor.. ;)
Avatar billede anhansen Nybegynder
15. februar 2005 - 12:45 #8
ok... husk lige at lukke spørgsmålet..

Bare for god ordens skyld.. ;-)
Avatar billede steckel Nybegynder
09. februar 2006 - 01:24 #9
lukket
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester