Lidt kode ...
Her er lidt ...
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<!-- #include file="ADOVBS.inc" --><%
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/tossen/data/skyts.mdb")
strsql = "SELECT * FROM skyts where type=('"& Request("type") &"') ORDER BY intnr ASC"
rs.Open strSQL, strDSN, 1
Set typers = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/tossen/data/skyts.mdb")
strsql = "SELECT DISTINCT type FROM skyts ORDER BY type ASC"
typers.Open strSQL, strDSN, 1
%>
<head>
<title>Krudttossen</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script type="text/javascript">
function handleOver(src){
document.getElementById("popbox").firstChild.setAttribute("src",src);
document.getElementById("popbox").style.display="inline";
}
function handleOut(){
document.getElementById("popbox").style.display="none"
}
</script>
</head>
<body>
<div id="site">
<div id="top">
</div>
<div id="menu">
<!-- #include file="menu.inc" -->
</div>
<div id="main">
<div id="vandretmenu">
<table border="0" cellpadding="3" cellspacing="0" id="AutoNumber1">
<tr>
<%
Do While Not typers.EOF
%>
<td>
<h4><a href="vissortiment.asp?type=<%=typers("type")%>"><%Response.write typers("type")%></a>
</h4>
</td>
<%
typers.MoveNext
Loop
typers.Close
Set typers = Nothing
%>
</tr>
</table>
</div>
<div id="mainind">
<%
Step = 0
Do While Not rs.EOF
%>
<div id="prodtxt" style="top:<%=step*200+10%>px;">
<h2><%Response.Write "Varenr: " & rs("intnr") & " - " & rs("type")%></h2>
<h1><%Response.Write rs("navn")%></h1>
<% if len(rs("beskrivelse"))>0 then %>
<p><%response.write replace(rs("beskrivelse"), vbcrlf, "<br>")%></p>
<% end if %>
</div>
<div id="prodimg" style="top:<%=step*200+10%>px;">
<a title="krudttossen.dk" href="
http://www.krudttossen.dk" onMouseOver="handleOver('billed/skyts/<%=rs("nr")%>.jpg')"
onMouseOut="handleOut()"><img name="img" border="0"
src="billed/skyts/small/<%=rs("nr")%>.png" width="70%"></a>
</div>
<%
Step=step+1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%></div>
<div id="popbox" align="center" style="display:none">
<img></div>
</div>
</div>
</body>
</html>
