webForumDet fria alternativet

Loopa ut i tabell/kollumn

ASP

12 svar · 606 visningar · startad av mackanz

Medlem sedan sep. 2003443 inlägg
Frågan#1

Hejsan!
Jag har ett problem som jag inte kan lösa.

Nedanstånde information vill jag loopa ut i en tabell med kolummer
Det ska vara 4 st på varje rad.

<%=rs("RUBRIK")%><br>
<img src="bilder/produkter/stora/<%=rs("bild")%>" alt="<%=rs("RUBRIK")%>"><br>
<%=rs("ARTIKEL")%><br>
<a href="produktinfo.asp"><img src="bilder/button.gif"><br>

Jag använde mig av en kod jag haft forut men får inte till det att lägga till fler saker som skall loopas ut.

Så här ser koden ut jag har idag
Men jag vill ju göra om så den loopar ut mer än bara rubriken


<table border="1" cellpadding="2" cellspacing="0" width="700" align="center">

	
<tr>

<%
sql = "SELECT * FROM sortiment"
rs.Open sql, mincon, 0, 1
Do until rs.EOF

 

Response.Write(strRow & "<td align=center>  &  rs("rubrik")  &  "</td>" & vbCrLf)
nummer = nummer + 1	
    If nummer Mod 4 = 0 Then
                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf
            Else
                        strRow = ""
            End If

rs.MoveNext
Loop
rs.Close
 
%>

</tr>

</table\>
Medlem sedan juni 20019 519 inlägg
#2

Skall du ha det i en tabell eller skall tabellen också bort?

Response.Write(strRow & "<td align=center>  &  rs("rubrik")  &  "</td>" & vbCrLf)

=>

Response.Write("<td align=""center"">")
Response.Write(rs("RUBRIK") & "<br><img src=""bilder/produkter/stora/" & rs("bild") & """ alt=""" & rs("RUBRIK") & """><br>" & rs("ARTIKEL") & "<br><a href=""produktinfo.asp""><img src=""bilder/button.gif""><br>")
Response.Write("</td>" & vbCrLf)

Om du nu inte skall ha td så ta bara bort response.write på <td> och </td> elementen.

Medlem sedan sep. 2003443 inlägg
#3

Tabellen vill jag ha kvar.

Medlem sedan juni 20019 519 inlägg
#4

Då är det bara att ersätta det rakt av.

Medlem sedan sep. 2003443 inlägg
#5

Nu ersatte jag rakt av men det vill sig inte
Nu hamnar alla på en lång rad.

http://chokladkorgar.se/test.asp

Medlem sedan juni 20019 519 inlägg
#6
Response.Write([b]strRow &[/b] "<td align=""center"">")
Response.Write(rs("RUBRIK") & "<br><img src=""bilder/produkter/stora/" & rs("bild") & """ alt=""" & rs("RUBRIK") & """><br>" & rs("ARTIKEL") & "<br><a href=""produktinfo.asp""><img src=""bilder/button.gif""><br>")
Response.Write("</td>" & vbCrLf)

Dock så hade jag inte gjort detta i tabeller alls, finns ingen anledning att köra det i tabeller + felaktig HTML

Medlem sedan sep. 2003443 inlägg
#7

Jo jag vet att tabeller är lite ålderdomligt. Men Men.. Nu får jag error fel

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/test.asp, line 112

Response.Write(strRow & "<td align=center> & rs("rubrik") & "</td>" & vbCrLf)
---------------------------------------------------^

Medlem sedan juni 20019 519 inlägg
#8

Om du kör exakt samma kod som jag bifogade så får du inte det felet, du har plockart bort " ifrån min kod. Du bryter din sträng helt galet.

Jo jag vet att tabeller är lite ålderdomligt. Men Men.. Nu får jag error fel

"Lite" är nog ett mycket snällt ord, och det är inte ålderdomligt, tabeller använder du fortfarande idag, men inte för att göra design, byt ut det till div:ar så bli det rätt mycket enklare med den design du är ute efter.

Medlem sedan sep. 2003443 inlägg
#9

När jag kopierar följande kod så blir det errorfel

Response.Write(strRow & "<td align=""center"">")
Response.Write(rs("RUBRIK") & "<br><img src=""bilder/produkter/stora/" & rs("bild") & """ alt=""" & rs("RUBRIK") & """><br>" & rs("ARTIKEL") & "<br><a href=""produktinfo.asp""><img src=""bilder/button.gif""><br>")
Response.Write("</td>" & vbCrLf)
Medlem sedan juni 20019 519 inlägg
#10

Då hade den inte skrivit fel på:

Response.Write(strRow & "<td align=center> & rs("rubrik") & "</td>" & vbCrLf)

För där ser du att den inte har " runt center och att <td align=center> inte har ett " i slutet.

Visar all kod du försöker köra.

Medlem sedan sep. 2003443 inlägg
#11
	
<table border="1" cellpadding="2" cellspacing="0" width="700" align="center">
	
<tr>

<%
sql = "SELECT * FROM sortiment"

rs.Open sql, mincon, 0, 1

 

 

Do until rs.EOF

 
Response.Write("<td align=""center"">")
Response.Write(rs("RUBRIK") & "<br><img src=""bilder/produkter/stora/" & rs("bild") & """ alt=""" & rs("RUBRIK") & """><br>" & rs("ARTIKEL") & "<br><a href=""produktinfo.asp""><img src=""bilder/button.gif""><br>")
Response.Write("</td>" & vbCrLf)

nummer = nummer + 1	

    If nummer Mod 4 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rs.MoveNext

Loop

rs.Close

 

%>

</tr>

</table>
Medlem sedan juni 20019 519 inlägg
#12

Min kod har inget som ser ut som:

Response.Write(strRow & "<td align=center> & rs("rubrik") & "</td>" & vbCrLf)

Det är ju din baskod... du skulle ju ersätta den raden med det jag postade. Ladda upp rätt fil till din server.

Medlem sedan sep. 2003443 inlägg
#13

Nu fungerar det. Tack för att hjälp.

292 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
154 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
148 ms — ändringar (db)