Tjohopp! <code>Tabellfråga
Jag vill ha 2st på rad och sedan att den fortsätter 2 på rad tills databasen är slut...
Nån som har nån bra lösning? :)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" " http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<title>Fyrhjulingar (ATV)</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("objekt")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM atv ORDER BY id"
rs.Open sql, conn
%>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open Application("objekt")
SQL = "SELECT Count(*) From atv"
Set counting = db.Execute(SQL)
%>
<table>
<tr>
<td style="font-family:Verdana; color:#990000; font-size:12px; font-weight:bold; text-align:center">Cougar 250</td>
</tr>
<tr>
<td><img src="bilder/mini/art_210_mini.jpg" alt="" /></td>
</tr>
<tr>
<td style="font-family:Verdana; color:#000000; font-size:10px;">Lager: Ja, 2st<br />Pris: 38000:-</td>
</tr>
</table>
<p>
</p>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</body>
</html>
har ni några andra synpunkter på koden så säg till, vill ha den så snabb som möjligt
tack på förhand!Sv: Tabellfråga
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" " http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<?xml version="1.0" encoding="UTF-8"?>
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<title>Fyrhjulingar (ATV)</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style type="text/css">
TD
{
color:#000000;
font-size:10px;
font-family:Verdana;
}
TD.Head
{
color:#990000;
font-size:12px;
font-weight:bold;
text-align:center
font-family:Verdana;
}
</style>
</head>
<body>
<table>
<tr>
<%
Dim rs
Dim conn
Dim fldName
Dim fldImage
Dim fldPris
Dim fldLagerSaldo
Dim strSQL
Dim lngPos
Dim lngAntal
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("objekt")
strSQL = "SELECT Count(*) AS Antal FROM atv"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conn
lngAntal = rs("Antal")
rs.Close
strSQL = "SELECT * FROM atv ORDER BY id"
rs.Open strSQL, conn
Set fldName = rs("Ditt Fältnamn För Titel på Fyrhjuling")
Set fldImage = rs("Ditt Fältnamn För Bild URL på Fyrhjuling")
Set fldPris = rs("Ditt Fältnamn För Pris på Fyrhjuling")
Set fldLagerSaldo = rs("Ditt Fältnamn För Lagersaldo")
Do Until rs.EOF
If lngPos >= 2 Then
lngPos = 1
Response.Write "</tr><tr>"
Else
lngPos = lngPos + 1
End If
%>
<td>
<table>
<tr>
<td class="Head"><%=Server.HTMLEncode(fldName.Value)%></td>
</tr>
<tr>
<td><img src="<%=fldImage.Value%>" alt="" /></td>
</tr>
<tr>
<td><%
If fldLagerSaldo.Value > 0 Then
Response.Write "Lager: Ja, " & fldLagerSaldo.Value & "st"
Else
Response.Write "Lager: Nej, " & fldLagerSaldo.Value & "st"
End If
Response.Write "<br />Pris: " & fldPris.Value & ":-"%></td>
</tr>
</table>
</td>
<%
rs.MoveNext
Loop
Set fldName = Nothing
Set fldImage = Nothing
Set fldPris = Nothing
Set fldLagerSaldo = Nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</tr>
</table>
<p>
</p>
</body>
</html>
</code>