Søg
Avatar billede srhe02 Nybegynder
18. september 2003 - 13:23 Der er 6 kommentarer

placering af billeder hentet via database

Når jeg henter billeder via database med det nedenstående asp-script, så placerer den automatisk billederne i en kolonne.

Billede1
Billede2
Billede3
Billede4

Hvordan kan jeg eksempelvis placere dem i to kolonner, således

Billede1 Billede2
Billede3 Billede4


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

   
countSQL = "Select Count(ID) As Count From Images"
RS2 = Conn.Execute(countSQL)
%>


<% Do While Not rs.EOF %>



<table border="0" cellpadding="0" cellspacing="4" width="0%">
    <tr>
        <td rowspan="3" width="25%">
        <A HREF="opret.asp?page=<%=RS("ID")%>">
        <img src="images/<%=RS("ID")%>.<%=RS("Filtype")%>" height=144 width=220 border=0></a>

<br>
<font size="2" face="Trebuchet MS"> <%= RS("Forfatter")%></font><br></td>

</tr>

</table>

<%
RS.MoveNext
Loop

Conn.Close
Set Conn = Nothing
       

%>
Avatar billede eagleeye Praktikant
18. september 2003 - 16:11 #1
PRøv at rete dette:

<% Do While Not rs.EOF %>



<table border="0" cellpadding="0" cellspacing="4" width="0%">
    <tr>
        <td rowspan="3" width="25%">
        <A HREF="opret.asp?page=<%=RS("ID")%>">
        <img src="images/<%=RS("ID")%>.<%=RS("Filtype")%>" height=144 width=220 border=0></a>

<br>
<font size="2" face="Trebuchet MS"> <%= RS("Forfatter")%></font><br></td>

</tr>

</table>

<%
RS.MoveNext
Loop

Conn.Close
Set Conn = Nothing




------- TIL DETTE:


<table border="0" cellpadding="0" cellspacing="4" width="0%">
<%
kolPrRow = 0
maxKolPrRow = 2
  Do While Not rs.EOF
    if kolPrRow = 0 then Response.Write "<tr>"
%>
    <td rowspan="3" width="25%">
        <A HREF="opret.asp?page=<%=RS("ID")%>">
        <img src="images/<%=RS("ID")%>.<%=RS("Filtype")%>" height=144 width=220 border=0></a>

<br>
<font size="2" face="Trebuchet MS"> <%= RS("Forfatter")%></font><br></td>

<%
  kolPrRow = kolPrRow + 1
  if kolPrRow = maxKolPrRow then
    Response.Write "</tr>"
    kolPrRow = 0
  end if

  RS.MoveNext
Loop
if kolPrRow > 0 then Response.Write "</tr>"
%>
</table>
<%
Conn.Close
Set Conn = Nothing
Avatar billede srhe02 Nybegynder
18. september 2003 - 16:23 #2
Fedt...nu ligger de på række - men kun på en række.
Altså
billede1 billede2 billede3 billede4 osv

Hvordan kan man lave et "break" efter billede2, således at opsætningen ser således ud:

billede1 billede2
billede3 billede4
osv
Avatar billede eagleeye Praktikant
18. september 2003 - 16:28 #3
Det skulle koden selv gøre. Du kan angive hvor mange der skal være pr rækker me denne variable:
maxKolPrRow = 2
Avatar billede eagleeye Praktikant
18. september 2003 - 16:31 #4
Prøv at vise koden som den er nu.
Avatar billede srhe02 Nybegynder
18. september 2003 - 16:42 #5
<%
kolPrRow = 0
maxKolPrRow = 2
  Do While Not rs.EOF
    if kolPrRow = 0 then Response.Write "<tr>"
%>
    <td rowspan="3" width="25%">
        <A HREF="opretopskrift.asp?page=<%=RS("ID")%>">
        <img src="images/<%=RS("ID")%>.<%=RS("Filtype")%>" height=144 width=220 border=0></a>


<font size="2" face="Trebuchet MS"> <%= RS("Forfatter")%></font><br></td>

<%
  kolPrRow = kolPrRow + 1
  if kolPrRow = maxKolPrRow then
    Response.Write "</tr>"
    kolPrRow = 0
  end if

  RS.MoveNext
Loop
if kolPrRow > 0 then Response.Write "</tr>"
%>
</table>

<%
Conn.Close
Set Conn = Nothing

%>
Avatar billede eagleeye Praktikant
18. september 2003 - 16:46 #6
det ved jeg ikke helt så, det ser rigtig ud..
Har du denne linje med ??

<table border="0" cellpadding="0" cellspacing="4" width="0%">


lig før disse:

<%
kolPrRow = 0
maxKolPrRow = 2
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 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
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 dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
White papers
Flere white papers »