Styring af indsætning af kode i tabel

Du kan lave en If ... Then kommando, for hver gang data gennemløbes. Og så tilføje variabel t, som der bliver lagt én til, for hvert gennemløb. Når t når 3 skal den starte forfra.

Så noget i retning af:

<%
...

t=t+1
If t=3 Then
  [opret ny række]
  t=0
Else
  [opret ny celle]
End If

RS.MoveNext
Loop

...
%>

  // Steeven

Det lyder jo som en god og fornuftig idé... men det kan jeg ikke se mig ud af hvordan jeg skal lave.
Hvis jeg nu sætter pointne op til 60, vil du så hjælpe mig?

Du for mig jo til at lyde helt gnieragtig! :( Jeg skal nok hjælpe for de 30 point du tilbyder ;)


...
<table><tr>

<%
Do While Not RS.EOF

Response.Write "<td>...</td>"

t=t+1
If t=3 Then
  Response.Write "</tr><tr>"
  t=0
End If

RS.MoveNext
Loop

%>
...

Bare husk at definere t og sætte den til 0 fra start, altså allerøverst:

<%
Dim t
t=0
...

Og husk at afslutte den sidste række samt tabellen uden for asp-koden til slut, altså:

...
%>

</tr></table>

Du kan indsætte indhold mellem <td>...</td>-tag'ene - altså du kan hente dit billede og tekst ind på den måde du ønsker.
Når ASP-en gennemløber løkken, oprettes en ny række, hver gang der er sat 3 celler i den nuværende række (fordi t så er lig med 3 - der lægges jo netop 1 til t hver gang, en celle oprettes)

  // Steeven

Øv, jeg kan ikke få det til at virke.
Jeg har prøvet med
Response.Write "<td>...</td>"
og sætte koden ind der, men får en masse fejl som sikkert hænger sammen med apostroferne. Det kan jeg ikke lige se mig ud af.

Alle "-tegnene skal du bare udskifte med '-tegn, så kan det lade sig gøre. Fx: Response.Write "'", skriver resultatet: '.
Jeg prøver herunder, at skrive din kode lidt om. Jeg har ændret en del i strukturen, for du oprettede faktisk en ny tabel, for hvert gennemløb af et datasæt.


<%
Dim t
t=0
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "Select * From Images"
Set RS = Conn.Execute(strSQL)

countSQL = "Select Count(ID) As Count From Images"
RS2 = Conn.Execute(countSQL)
%>
<table border="0" cellpadding="0" cellspacing="0" width="40%">
    <tr>
        <td width="100%" align="center"><font size="1" face="Verdana"><strong><%= RS2("Count")%> </strong>images in database</font></td>
    </tr>
</table>
<br>

<tabel border="0" cellpadding="0" cellspacing="4" width="100%" bgcolor="#C0C0C0">
<tr>

<%
Do While Not rs.EOF

Response.Write "<td rowspan='3'>"
Response.Write "<A HREF='java script:displayWindow('showimg.asp?id=" & RS("ID") & "'," & RS("Width") & "," & RS("Height") & ")'>"
Response.Write "<img src='images/" & RS("Images") & "." & RS("Filtype") & " height=100 width=70 border=0></a></td>"

Response.Write "<td>
Response.Write "<font size='1' face='Tahoma'>Filtype: <strong>" & RS("Filtype") & "</strong></font><br />"
Response.Write "<font size='1' face='Tahoma'>Højde: <strong>" & RS("Height") & "</strong>px, Bredde: <strong>" & RS("Width") & "</strong>px</font>
Response.Write "<font size='1' face='Tahoma'>Description: <strong>" & RS("Description") & "</strong></font>
Response.Write</td>

t=t+1
If t=3 Then
  Response.Write "</tr><tr>"
  t=0
End If

RS.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>
    </tr>
</table>


Der kommer helt sikkert nogle fejlmeddelelser, for det var lidt besværligt at overskue. Giv besked om, hvad der sker, når du forsøger at få det til at virke.

I virkeligheden får du her oprettet to celler ved siden af hinanden for hvert billede + tekst, der skal indsættes.

  // Steeven

I den nederste grupper af Response.Write kommandoer mangler der nogle "-tegn. Det skal se således ud:

Response.Write "<td>"
Response.Write "<font size='1' face='Tahoma'>Filtype: <strong>" & RS("Filtype") & "</strong></font><br />"
Response.Write "<font size='1' face='Tahoma'>Højde: <strong>" & RS("Height") & "</strong>px, Bredde: <strong>" & RS("Width") & "</strong>px</font>"
Response.Write "<font size='1' face='Tahoma'>Description: <strong>" & RS("Description") & "</strong></font>"
Response.Write "</td>"

  // Steeven

Så nu begynder det at se rigtigt fint ud - super. Det drillede lige lidt med nogle tastefejl.

Eneste problem jeg lige kan finde er at javascriptet ikke får værdierne ind. Kun java script:displayWindow( bliver returneret. Så der mangler dette: 'showimg.asp?id=1',280,400)

Jeg har prøvet at lege lidt med " og ', men det har ikke hjulpet. Stort set kun givet fejl.
Håber du kan finde fejlen.


Response.Write "<A HREF='java script:displayWindow('showimg.asp?id=" & RS("ID") & "'," & RS("Width") & "," & RS("Height") & ")'>"

Nå ja...

I linjen:
<A HREF="java script:displayWindow('showimg.asp?id=<%=RS("ID")%>',<% ...

har jeg jo ændret alle "-tegn til '-tegn. Men så kan den ikke adskille det fra de '-tegn, der allerede står i linjen. Vi må vel bare trække den uden for ASP-koden.

Kodestykket her:

Response.Write "<td rowspan='3'>"
Response.Write "<A HREF='java script:displayWindow('showimg.asp?id=" & RS("ID") & "'," & RS("Width") & "," & RS("Height") & ")'>"
Response.Write "<img src='images/" & RS("Images") & "." & RS("Filtype") & " height=100 width=70 border=0></a></td>"

bliver til:

Response.Write "<td rowspan='3'>"
%>
<A HREF="java script:displayWindow('showimg.asp?id=<%=RS("ID")%>',<%=RS("Width")%>,<%=RS("Height")%>)">
<%
Response.Write "<img src='images/" & RS("Images") & "." & RS("Filtype") & " height=100 width=70 border=0></a></td>"

hvor jeg har indsat din oprindelige javascript-kode igen uden for ASP-området. Prøv nu.

  // Steeven

Det er jo helt perfekt. Det er super godt.

Jeg takker mange gange. Fedt.

Ligger du ikke et svar.

Jo :)

Det er godt det virkede.

  // Steeven