mackanz Medlem sedan sep. 2003 443 inlägg Frågan 17 dec. 2009 13:08 #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\>
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.
mackanz Medlem sedan sep. 2003 443 inlägg Tabellen vill jag ha kvar.
Då är det bara att ersätta det rakt av.
mackanz Medlem sedan sep. 2003 443 inlägg Nu ersatte jag rakt av men det vill sig inte
Nu hamnar alla på en lång rad.
http://chokladkorgar.se/test.asp
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
mackanz Medlem sedan sep. 2003 443 inlägg 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)
---------------------------------------------------^
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.
mackanz Medlem sedan sep. 2003 443 inlägg 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)
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.
mackanz Medlem sedan sep. 2003 443 inlägg
<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>
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.
mackanz Medlem sedan sep. 2003 443 inlägg Nu fungerar det. Tack för att hjälp.