Ja frem kommer billedet, ganske vist under ... og skubber tabellen i stykker ... kan man ikke få det ind over den eksisterende tekst ..?
Har sat min kludrede kode ind ...
<!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 - Det eneste rigtige sted at købe Fyrværkeri</title>
<link rel="stylesheet" type="text/css" href="style.css" />
<base target="_top" />
<script type="text/javascript">
function ShowLarge(src){
var id=document.getElementById("stortbilled");
id.setAttribute("src",src);
id.style.display="inline"
}
function HideLarge(){
document.getElementById("stortbilled").style.display="none"
}
</script>
</head>
<body style:"colour: black";>
<div id="site">
<div id="top">
</div>
<div id="menu">
<div id="menuind">
<!-- #include file="menu.inc" -->
</div>
</div>
<div id="main">
<div id="vandretmenu">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" 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">
<table border="0" cellpadding="0" cellspacing="0" width="630px" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
<%
Do While Not rs.EOF
%>
<tr>
<td align="left" valign="top">
<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 %> </td>
<td align="right" valign="bottom">
<img src="billed/skyts/small/<%=rs("nr")%>.png" onmouseover="ShowLarge('billed/skyts/<%=rs("nr")%>.png')" onmouseout="HideLarge()">
<img id="stortbilled" style="display:none">
</td>
</tr>
<tr>
<td></a><hr color="#CC0000" size="1"></td>
</td>
<td></a><hr color="#CC0000" size="1"></td>
</td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</table>
</td>
</tr>
</table>
</div>
</div>
</div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
