Jag har gjort en sida där man kan lägga in text, sen kan man klicka i ett antal checkboxes för att visa små ikoner på sidan, tex "billig", "dyr", "Snabb"

Jag kan lägga in detta i databasen (det blir checkboxes med bockar) men hur hämtar jag informationen till hemsidan?

<code>

<%

Set Connect = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/min_demo/admin/databas/wizard.mdb")
SQL = "SELECT * FROM meat ORDER BY ID DESC"
rs.Open SQL, Connect, 1, 2

If rs("billig") = "on" Then
billigbild = "<img src=tid.gif>"
End If

iBgColor = 1
Do While Not rs.EOF
if sBgColor = "#FFFFFF" then
sBgColor = "#E7BAD7"
else
sBgColor = "#FFFFFF"
end if
%>

<table width="100%" border="0" cellpadding="1">
<tr bgcolor="<%=sBgColor%>">
<td class="brod" width="45%"><%=rs("namn")%>
<td class="brod" width="45%"><%=billigbild%>
<td class="brod" align="right" width="10%"> " target="_blank" class="brod">visa      
</td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

</code>

TacK på förhand

/Christofer

* Lägg koden i Loopen. <br>
* Värdet för ett boolean fältet är True(-1), False(0) Eller Null.<br>
<code>

<%
Dim Connect
Dim rs
Dim iBgColor
Dim sBgColor
Dim Colors
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/min_demo/admin/databas/wizard.mdb")

SQL = "SELECT * FROM meat ORDER BY ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Connect

Colors = Array("#FFFFFF", "#E7BAD7")
Do While Not rs.EOF
sBgColor = Colors(iBgColor)
iBgColor = (iBgColor + 1) Mod 2
%>
<table width="100%" border="0" cellpadding="1">
<tr bgcolor="<%=sBgColor%>">
<td class="brod" width="45%"><%=rs("namn")%>
<td class="brod" width="45%"><% If rs("billig") Then Respons.Write "<img src=tid.gif>" %>
<td class="brod" align="right" width="10%"> " target="_blank" class="brod">visa
</td>
</tr>
</table>
<%
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Connect.Close
Set Connect = Nothing
%>
</code>

Tack det fixade sig

Mvh Christofer