Sideopdeling funker ikke?
Hey,En der hurtigt kan sætte sideopdeling ind så det funker med 15 udskrifter per side?
Se hvad der skal "gå igen" mellem de to: -----------
<%
Response.Buffer = True
'Åbner forbindelse til databsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\referater.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from individuelle order by id desc"
rs.Open sql, conn, 1, 3
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Individuelle referater</title>
<script language="JavaScript">
<!-- Hide from older browsers...
// Function to add the code for bold italic and underline, to the message
function AddMessageCode(code,promptText, InsertText) {
if (code != "") {
insertCode = prompt(promptText + "\n<" + code + ">xxx</" + code + ">", InsertText);
if ((insertCode != null) && (insertCode != "")){
document.form1.tag.value += "<" + code + ">" + insertCode + "</"+ code + "> ";
}
}
document.form1.tag.focus();
}
// -->
</script>
<style>
INPUT {
border: 2px solid #B8C4DE;
font-size:12;
color:#000000;
font-family: verdana, arial;
background-color:#FFFFFF
}
TEXTAREA {
border: 2px solid #B8C4DE;
font-size:13;
color:#000000;
font-family: verdana, arial;
background-color:#FFFFFF
}
</style>
<style>
<!--
.color1 {background-color:#000000}
.color2 {background-color:#0000FF}
.color3 {background-color:#FF0000}
.color4 {background-color:#00FF00}
.color5 {background-color:#FF00FF}
.color6 {background-color:#008800}
.color7 {background-color:#000088}
.color8 {background-color:#880000}
.color9 {background-color:#008888}
.color10 {background-color:#880088}
.color11 {background-color:#8A2BE2}
.color12 {background-color:#D2691E}
.color13 {background-color:#FF8C00}
.color14 {background-color:#808000}
.color15 {background-color:#FFA500}
.color16 {background-color:#00BFFF}
.color17 {background-color:#00FF7F}
.color18 {background-color:#EE82EE}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" text="#000000">
<div align="center">
<center>
<table border="2" style="border-collapse: collapse; border-top-width:0; border-bottom-width:0" bordercolor="#5975AE" width="530" id="AutoNumber1" cellpadding="2" bgcolor="#FFFFFF" height="417">
<tr>
<td width="518" height="15" style="border-top-style: none; border-top-width: medium">
<p align="center"><b><font face="Verdana" size="2">Individueller sejre -
Referater</font></b></td>
</tr>
<tr>
<td width="518" height="218" style="border-bottom-style: none; border-bottom-width: medium">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber2" height="75">
<tr>
<td width="100%" height="30">
<tr>
<td align="center">
<%
'Hvis der ingen tags er
if rs.eof or rs.bof then
%>
Der er desværre ingen referater endnu.
<% else
'Lopper alle tags igennem med en løkke
Do until rs.eof
email = rs("email")
navn = rs("navn")
fontcolor = rs("fontcolor")
fonttype = rs("fonttype")
tag = rs("tag")
ip = rs("ip")
id = rs("id")
str = Request.form("besked")
%>
----------------------------------------------------------
<div align="center"><a name="<%=id%>"> </a>
<center>
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber1" height="32">
<tr>
<td width="10" style="border-right-style: none; border-right-width: medium" rowspan="3"></td>
<td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style:none; border-bottom-width:medium" height="25">
<p align="center"><b><font face="Verdana" size="2"><%=navn%></font></b></p>
<font size="2" color="<%=fontcolor%>" face="Tahoma, Verdana"><%=Replace(rs("tag"), vbCrLf, "<br>")%><br><br></font>
</td>
<td width="10" style="border-left-style: none; border-left-width: medium" rowspan="3"></td>
</tr>
<tr>
<td width="460" style="border-style:none; border-width:medium">
</td>
</tr>
<tr>
<td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style:none; border-top-width:medium" height="25">
<p align="center">
<font size="1" color="000000" face="Verdana">//<b> <%=email%></b></font><font size="1" face="Verdana"><b>
</b></font></td>
</tr>
</table>
</center>
</div>
<br><br><br>
---------------------------------------------------------------
<% rs.movenext
loop
end if %>
<br><br>
<hr color="#5975AE" size="4">
<br>
</td>
</tr>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td align="center" height="156" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber3" height="128">
<tr>
<td width="478" height="24" style="border-bottom-style: none; border-bottom-width: medium" colspan="2">
<p align="center"><b><font size="2" face="Verdana" color="#000000">
Tilføj et referat</font></b></td>
</tr>
<form method="post" action="referat.asp" id=form1 name=form1>
<%
'Hvis brugeren har submittet formen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Smider værdierne ned i variabler
navn = Request.form("navn")
email = Request.form("email")
tag = Request.form("tag")
ip = Request.form("ip")
skrifttype = Request.form("skrifttype")
skriftfarve = Request.form("skriftfarve")
'Tjecker om navn og tag er udfyldt
if navn = "" then
Response.Write("Skriv en overskrift<br>")
end if
if tag = "" then
Response.Write("Skriv et referat.<br>")
end if
'Tilføjer til databasen hvis navn og tag er udfyldt
if navn <> "" AND tag <> "" then
rs.AddNew
rs("navn") = navn
rs("email") = email
rs("tag") = tag
rs("ip") = ip
rs("fontcolor") = skriftfarve
rs("fonttype") = skrifttype
rs("dato") = Now()
rs.update
'Opdaterer vinduet
Response.Redirect("referat.asp")
end if
end if %>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Overskrift:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<input autocomplete="no" type="text" name="navn" value="<%=Request("navn")%>" size="52">
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Forfatter:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<input autocomplete="no" type="text" name="email" value="<%=Request("email")%>" size="52">
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Referat:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<textarea rows="6" cols="43" name="tag"><%=Request.form("tag")%></textarea>
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Tekstfarve:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font face="Verdana" size="1"><b>
<select name="skriftfarve">
<option class="color1" value="000000"> </option>
<option class="color2" value="0000FF"> </option>
<option class="color3" value="FF0000"> </option>
<option class="color4" value="00FF00"> </option>
<option class="color5" value="FF00FF"> </option>
<option class="color6" value="008800"> </option>
<option class="color7" value="000088"> </option>
<option class="color8" value="880000"> </option>
<option class="color9" value="008888"> </option>
<option class="color10" value="880088"> </option>
<option class="color11" value="8A2BE2"> </option>
<option class="color12" value="D2691E"> </option>
<option class="color13" value="FF8C00"> </option>
<option class="color14" value="808000"> </option>
<option class="color15" value="FFA500"> </option>
<option class="color16" value="00BFFF"> </option>
<option class="color17" value="00FF7F"> </option>
<option class="color18" value="EE82EE"> </option>
</select></b> <- Brug helst sort.</font></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Typografi:</font>
</td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font face="Verdana" size="1"><b>
<input type=button value=" Fed " onClick="AddMessageCode('B','Skriv den tekst som skal gøres fed', '')" name="button">
<input type=button value=" Kursiv " onClick="AddMessageCode('I','Skriv den tekst som skal gøres kursiv', '')" name="button">
<input type=button value="Understreget" onClick="AddMessageCode('U','Skriv den tekst som skal understreges', '')" name="button">
</b></font></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Din IP:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<input autocomplete="no" type="text" readonly name="ip" value="<%=Request.ServerVariables("REMOTE_ADDR")%>" size="27"></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium"> </td>
<td width="372" height="60" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="1" face="Verdana">Alle skrevne ting, som ikke har noget med
et holds referater at gøre vil blive slettet og forfatterens IP vil
blive banlyst her på siden. Det betyder kun referater ellers er det
sidste gang du ser denne side. Din IP vil ikke være anført på siden.</font><p><font size="1" face="Verdana">
Der er mulighed for at få eventuelle billeder med i et referat. Hvis det
er tilfældet send det til
<a href="mailto:webmaster@tphu-bif.dk?subject=Billede til holdreferat" style="text-decoration: none">
<font color="#000000">webmaster</font></a>.</font></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium"> </td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium"> </td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium"> </td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium">
<input type="submit" value="Tilføj referat">
</td>
</tr>
</form>
</table>
<tr>
<td width="518" height="47" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">
</td>
</tr>
<tr>
<td width="518" height="1" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" bgcolor="#5975AE">
</td>
</tr>
<tr>
<td width="518" height="14" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">
<p align="center"><font size="1" face="Verdana">
<a target="_top" style="text-decoration: none" href="www.tphu-bif.dk"><b>
<font color="#000000"><---</font></b><font color="#000000"> Tilbage til
forsiden</font></a></font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
'Lukker recordset
rs.close
set rs = nothing
'Lukker connection
conn.close
set conn = nothing
%>
