Scroll i tabell vha mouseover på billeder
Vi har lavet en tabel med en scroll, men den er ikke særlig pæn. Det vi gerne vil er at der bliver scrollet ved hjælp af mouseover på billeder (pil op /pil ned).Vi er ved at være lidt i tidsnød, så derfor sender vi koden med og håber på at der sidder en venlig sjæl der har lyst til at hjælpe.
Det skal siges vi er nybegynder, så hvis vi får et rigtigt godt svar, evt hele koden, får du 100 point .
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>moccAroma</title>
<style type="text/css">
div.ting {
height: 345px;
width: 515px;
overflow-x : hidden;
overflow-y : scroll;
overflow : -moz-scrollbars-vertical;
scrollbar-arrow-color : #502d0a;
scrollbar-base-color : #f0f5db;
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">
<table width="100%" height="100%" border="0" cellspacing="0" background="../baggrunde/lillekate%20copy.gif" >
<tr>
<td valign="top" CELLPADDING="0">
<table width="649" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="90"><div align="right">
<p> </p>
<p> </p>
</div></td>
<td height="90" valign="bottom"><div align="right"><img src="../baggrunde/top_rog.gif" width="521" height="61"></div></td>
</tr>
<tr>
<td height="30"> </td>
<td height="30"><img src="../menuer/menubar_shoppen%20copy.gif" width="521" height="36" border="0" usemap="#Map"></td>
</tr>
<tr>
<td width="128" valign="top" background="../baggrunde/venstrebar_100 copy.gif" CELLPADDING="0">
<p> </p>
<p> </p>
<p align="center"><strong><font color="#663333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Kaffe</font></strong></p>
<p align="center"><font size="1"><strong><font color="#663333" face="Verdana, Arial, Helvetica, sans-serif">Søde
tand</font></strong></font></p>
<p align="center"><font size="1"><strong><font color="#663333" face="Verdana, Arial, Helvetica, sans-serif">Til
kassen</font></strong></font></p>
<p align="center"><font size="1"><strong><font color="#663333" face="Verdana, Arial, Helvetica, sans-serif">Indkøbskurv</font></strong></font></p>
<p align="center"><strong></strong></p>
<p align="center"> </p>
</td>
<td width="521" height="350" valign="top" background="../baggrunde/main_baggrund copy.gif" CELLPADDING="0">
<div align="left">
<!-- tabel der er sat ind i en anden tabel
<table border="1" width="750">
<tr>
<td width="500" height="200">
<div class="ting">-->
<table width="100%" height="100%" border="0" >
<tr>
<td valign="top"><div class="ting">
<p align="center">Vælg din vare fra listen, klik på
kurv og din <br>
<p align="center">vare vil blive laget i indkøbskurven.
<p align="center"><%
'opretter forbindelse til database moccaroma.mdb
Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("moccaroma.mdb")
sql = "SELECT * FROM produkter order by id"
Set objrec = Rs.Execute(sql)
%>
<table width="455" height="200" border="1" >
<%'test
If Not objrec.EOF Then
Response.Write"<table width=470 height=220 border=0 cellpadding=15 cellspacing=0 align=center background=shop_ramme2%20copy.gif>"
LinkCount = 0
Do Until objrec.EOF
produktnavn = objrec("produktnavn")
pris = objrec("pris")
beskrivelse = objrec("beskrivelse")
'Her kan du bestemme hvor mange sideløbende poster der skal udskrives...
If LinkCount Mod 2 = 0 Then
If LinkCount <> 0 Then Response.Write "</tr>"%>
<tr valign="top">
<td width="140" height="210" valign="top" ><b><%=produktnavn%></b><br>
<br><%=beskrivelse%><br><br><a href="base.asp">kurv</a></td>
<td width="95" height="200" valign="top" ><br>
<img src="<%= objrec("image")%>"><br><br><br>Pris <%=pris%> kr</td>
<%
Else%>
<td width="140" height="210" valign="top" ><b><%=produktnavn%></b><br>
<br><%=beskrivelse%><br><br><a href="base.asp">kurv</a></td>
<td width="95" height="200" valign="top" ><br>
<img src="<%= objrec("image")%>"><br><br><br>Pris <%=pris%> kr</td>
<%
End If
LinkCount = LinkCount + 1
objrec.MoveNext
Loop
Response.Write "</tr></table>"
objrec.Close
Set objrec = Nothing
'Else Response.Write "Der blev ingen poster fundet...!"
End If
%>
</table></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="27,22,72,38" href="../default.html">
<area shape="rect" coords="112,22,155,36" href="../andreSider/kaffe.html">
<area shape="rect" coords="192,23,264,38" href="../andreSider/menukort.html">
<area shape="rect" coords="302,23,396,37" href="online.asp">
<area shape="rect" coords="438,22,490,36" href="../andreSider/nyheder.html">
</map>
</body>
</html>
