Printe flere sider ud
Når jeg prøver at printe denne her ud kommer der kun den første side, jeg har en css fil der fjerner nogle af tingene for at det kan komme til at se enklere ud.vis_alle.asp:
<%
' database connection
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database/db1.mdb")
Conn.Open DSN
'set rs
strSQL = "Select * from fejl Order By ID desc"
Set rs = Conn.Execute(strSQL)
%>
<html>
<head>
<title>Vis alle </title>
</head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta name="generator" content="HAPedit 3.1">
<style type="text/css">
body{font: 76% Arial, sans-serif;padding: 20px;background: #FFF}
form{width:600px;background-color: #C0CDF2}
fieldset{border: 0px solid #000}
legend{font: bold 140%/1.6 Arial,sans-serif;color: #27518A}
fieldset label{float:left;display:inline;width:150px;
line-height:16px;margin: 3px 10px;text-align:center;background: #FFF url("arrow.jpg") no-repeat right center}
input,textarea{margin:3px 0 8px;border-style:solid;border-color: #778AA2 #7EA4D8 #7EA4D8 #778AA2;
border-width:2px 1px 1px 2px;width: 200px}
input{height: 20px}
br{clear:left}
input#go{margin: 10px 0 0 130px;border-style:solid;border-color: #FFF #333 #333 #FFF;
border-width:1px 2px 2px 1px;background: #CCC;width:auto;height: auto}
div.news{width: 250px;background: #F0F0E7;margin-bottom: 20px}
h3{font-size: 100%;margin:0;padding: 0 0 3px;background: #FFC5FF;color: #000;text-align: center}
</style>
<link rel="stylesheet" type="text/css" href="roundedPage.css">
<link rel="stylesheet" type="text/css" href="niftyCorners.css">
<link rel="stylesheet" type="text/css" href="niftyPrint.css" media="print">
<script type="text/javascript" src="nifty.js"></script>
<script type="text/javascript" src="final.js"></script>
</head>
<body bgcolor="white" vlink=black alink=black link=black>
<div id="container" style='width:625px;'><div id="header"><h1>Vis alle - Fejlindmeldelse</h1></div>
<div id="menu">
<ul id="nav">
<li id="home" class="active"><a href="/fejlindmeldelse/default.asp">Forside</a></li>
<li id="who"><a href="/fejlindmeldelse/upload_formular.asp">Vedhæft filer</a></li>
<li id="prod"><a href="/fejlindmeldelse/tilfoej_varenummer.asp">Tilføj varenummer</a></li>
<li id="prod"><a href="/fejlindmeldelse/soeg.asp">Rapport</a></li>
<li id="prod"><a href="/fejlindmeldelse/rediger.asp">Rediger</a></li>
</ul>
</div>
<%
Do
response.write "<div id='container'><p></p>"
response.write "<div class='box'>"
response.write "<table border=0 cellspacing=0 style=' font-size:14px;'>"
response.write "<tr>"
response.write "<td border=1>ID nr.:</td>"
response.write "<td >"
Response.Write rs("id") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1 >Kunde:</td>"
response.write "<td >"
Response.Write rs("kundenummer") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1 >Varenr.:</td>"
response.write "<td >"
set rs3 = conn.execute("select * from varenummer where varenr="& rs("varenummer"))
Response.Write rs("varenummer") & " - " & rs3("varenavn") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1 valign='top'>Beskrivelse:</td>"
response.write "<td >"
Response.Write rs("beskrivelse") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1 valign='top'>Løsning:</td>"
response.write "<td >"
Response.Write rs("loesning") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Udført af:</td>"
response.write "<td >"
Response.Write rs("ansvarlig") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Færdigmeldt:</td>"
response.write "<td>"
Response.Write rs("fuldfort") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Dato:</td>"
response.write "<td >"
Response.Write rs("dato") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "</table></div><br>"
set rs2 = conn.execute("select * from filer where idnummer="& rs("id"))
Set reg = New RegExp
reg.Pattern = "filer\\[^\_]*\_"
reg.IgnoreCase = True
while not rs2.eof
response.write "<a href="""& rs2("url") &""">"& reg.Replace(rs2("url"), "") &"</a>"
response.write " | "
rs2.movenext
wend
rs.MoveNext
Loop While Not rs.EOF
%>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
