Søg
Avatar billede stussy Nybegynder
15. maj 2004 - 23:50 Der er 9 kommentarer og
1 løsning

lav tabel af resultat med 2 celler

hejsa
hvordan laver jeg lettest en tabel af mit database udtræk.

Tabellen skal laves i 2 vandrette celler, dvs. at tabelen skal bygges sådan op:

1 2
3 4
5 6
7 8

osv. men den skal selv finde ud af at efter 2 celler skal der være rækkeskift.
Avatar billede eagleeye Praktikant
15. maj 2004 - 23:55 #1
Det kan laves som dette:


colPrRow = 2
noCols = 0
response.Write "<table>"
do while not rs.EOF
  if noCols = 0 then Response.Write "<tr>"
  Response.Write "<td>"
  Response.Write rs("kolonne")

  Response.Write "</td>"
  if noCols = colPrRow then
    Response.Write "</tr>"
    noCols = 0
  end if
  rs.Movenext
loop
if noCols > 0 then Response.Write "</tr>"
response.Write "<table>"
Avatar billede stussy Nybegynder
16. maj 2004 - 00:13 #2
jeg forhøjer til 200 point, hvis du kan hjælpe mig med at lave dette så det virker som jeg har beskrevet.
nu laver den en tabel, og går videre og laver en ny nedenunder.
Jeg vil gerne have denne tabel bygget ind i en tabel der er 480px bred, opdelt i 2 vandrette celler, hvori der skal være denne tabel indeni. (2 ved siden af hinanden- jeg håber du forstår)
---
<%
' SQL forespørgsel
strSQL = "Select * from varer order by varegruppe"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<% if rs.eof OR rs.bof then
Response.Write "<br><br><b><center>Der er ingen varer tilføjet endnu.<br><br>"
else

' Gennemløb Recordset (rs) med en løkke
Do
%>


<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="240" id="AutoNumber1" height="134">
  <tr>
    <td width="100%">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="100%" background="file:///C:/Documents%20and%20Settings/www/123projekt/leggodt.dk/images/varebox.jpg">
      <tr>
        <td width="50%">
        <p align="center">
<img border="0" src="<% = rs("lillefoto")%>" width="93" height="62" ></td>
        <td width="50%">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="100%">
          <tr>
            <td width="100%" height="33"><b>
              <font face="Verdana" size="1"><% = rs("overskrift")%></font></b></td>
          </tr>
          <tr>
            <td width="100%" height="33"><font face="Verdana" size="1"><% = rs("kortbeskrivelse")%></font></td>
          </tr>
          <tr>
            <td width="100%" height="33"><font face="Verdana" size="1">Vejl.
              <strike><% = rs("forpris")%></strike>&nbsp; <b><font color="#FF0000">Nu <% = rs("pris")%></font></b></font></td>
          </tr>
          <tr>
            <td width="100%" height="33">LINK</td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>

<%
' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
end if
%>
Avatar billede eagleeye Praktikant
16. maj 2004 - 00:19 #3
Ikke helt ;)
men det må blive noget i stil med dette:



<%
' SQL forespørgsel
strSQL = "Select * from varer order by varegruppe"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<% if rs.eof OR rs.bof then
Response.Write "<br><br><b><center>Der er ingen varer tilføjet endnu.<br><br>"
else

colPrRow = 2
noCols = 0
%>
<table border="0" width="480">
<%
' Gennemløb Recordset (rs) med en løkke
Do
  if noCols = 0 then Response.Write "<tr>"
  Response.Write "<td>"
%>


<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="240" id="AutoNumber1" height="134">
  <tr>
    <td width="100%">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="100%" background="file:///C:/Documents%20and%20Settings/www/123projekt/leggodt.dk/images/varebox.jpg">
      <tr>
        <td width="50%">
        <p align="center">
<img border="0" src="<% = rs("lillefoto")%>" width="93" height="62" ></td>
        <td width="50%">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="100%">
          <tr>
            <td width="100%" height="33"><b>
              <font face="Verdana" size="1"><% = rs("overskrift")%></font></b></td>
          </tr>
          <tr>
            <td width="100%" height="33"><font face="Verdana" size="1"><% = rs("kortbeskrivelse")%></font></td>
          </tr>
          <tr>
            <td width="100%" height="33"><font face="Verdana" size="1">Vejl.
              <strike><% = rs("forpris")%></strike>&nbsp; <b><font color="#FF0000">Nu <% = rs("pris")%></font></b></font></td>
          </tr>
          <tr>
            <td width="100%" height="33">LINK</td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>

<%
  Response.Write "</td>"
  if noCols = colPrRow then
    Response.Write "</tr>"
    noCols = 0
  end if

' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
if noCols > 0 then Response.Write "</tr>"
response.Write "<table>"

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
end if
%>
Avatar billede stussy Nybegynder
16. maj 2004 - 00:26 #4
hmm jeg synes stadig de kommer til at stå nednunder hinanden ?
Avatar billede eagleeye Praktikant
16. maj 2004 - 00:28 #5
har du uploaded/reloaded siden?
Avatar billede stussy Nybegynder
16. maj 2004 - 00:29 #6
jep
Avatar billede eagleeye Praktikant
16. maj 2004 - 00:35 #7
jeg har også glemt linje :)

Prøv at rette disse linjer:

  Response.Write "</td>"
  if noCols = colPrRow then
    Response.Write "</tr>"
    noCols = 0
  end if


Til dettte:

  Response.Write "</td>"
  noCols = noCols +1
  if noCols = colPrRow then
    Response.Write "</tr>"
    noCols = 0
  end if
Avatar billede stussy Nybegynder
16. maj 2004 - 00:37 #8
jamen jamen jamen

perfekt ..... 1000 tak for hjælpen
Avatar billede stussy Nybegynder
16. maj 2004 - 00:38 #9
hmmmm hvordan ændrer jeg point?
man plejer da at kunne klikke på point og ændre dem ?
Avatar billede eagleeye Praktikant
16. maj 2004 - 00:42 #10
Prøv i menu-boksen Funktioner, er det ikke en "Afsæt flere point"?
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
White papers
Flere white papers »