Smider lige koden til liste.asp :)
<html>
<head>
<title>liste</title>
</head>
<body link="#6666FF" vlink="#6666FF" alink="#6666FF" style="text-align: left; background-attachment:fixed">
<table border="0" width="100%" bordercolor="#0000CC" style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px" bordercolorlight="#000080" bordercolordark="#000080">
<tr>
<td valign="top" background="images/venstre_top.jpg"><p align="left">
<b><font face="Verdana" size="2"> <%=request.querystring("kategori") %></font></b></p>
</td>
</tr>
</table>
<div align="center">
<table border="0" width="95%" height="100%">
<tr>
<td valign="top">
</p>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\web\localuser\pivskid.dk\database\fuglegaarden.mdb"
strSQL = "SELECT * FROM dyr where Kategori='" & request.querystring("kategori") & "' order by Navn"
Set rs = conn.Execute(strSQL)
%>
<div align="center">
<table border="0" width="100%">
<tr>
<td><b><font face="Verdana" size="1">Dansk Navn</font></b><hr width="50%" size="1" align="left" color="#000080"></td>
<td><b><font face="Verdana" size="1">Latinsk Navn</font></b><hr width="50%" size="1" align="left" color="#000080"></td>
<td><b><font face="Verdana" size="1">Lager Status</font></b><hr width="50%" size="1" align="left" color="#000080"></td>
</tr>
<tr><%
If Not rs.EOF Then
Do
%>
<td onmouseover="this.style.background='#c0c0c0'" onmouseout="this.style.background=''"><font face="Verdana" size="1"><% Response.Write "<a href='default.asp?side=vis&mode=&kategori=" & rs("kategori") & "&id=" & rs("id") & "' onmouseover='doTooltip(event,0)' onmouseout='hideTip()'>" & rs("navn") & "</a>" %></font> </td>
<td><font face="Verdana" size="1"><% Response.Write "" & rs("Latinsk") & "" %></font> </td>
<td><font face="Verdana" size="1"> <% lagercount = rs("lager")
if (lagercount = 0) then
response.write("<img src='images/roed.gif'>")
else
response.write("<img src='images/groen.gif'>")
end if
%> </font></td>
</tr><%
rs.MoveNext
Loop While Not rs.EOF
End If
%>
<%
Conn.Close
Set Conn = Nothing
%>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>
Slettet bruger
Slettet bruger
Opret
Preview
