Prøv med response.redirect msg
Hej! Har følgende 2 filer :add_report.asp som skriver i db og
indtastrap.asp som er formen til ovenstående fil
For at gøre indtastningsfeltet 'beretning' lidt federe så bruger jeg noget java-kode som jeg har fundet. Det gør at man kan formatere teksten uden at html-tags osv... Men nu har jeg sgu fået et problem. Hvis der nu ikke er tastet noget ind i et af felterne så returnerer jeg til indtastrap.asp side med de felter der allerede er indtastet, så man ikke skal starte forfra. MEN beretningsfeltet kan jeg ikke returnere i det rigtige område pga det java-knald. Kan nogle af jer gennemskue om jeg kan få det rigtigt ind ? Ligenu returnerer den det bare på siden så jeg kan se at der er noget i feltet, men det er jo ikke godt nok !! Herunder koden fra de 2 filer. add_report.asp først
<!-- #include file="db.inc" -->
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsAddComments 'Holds the recordset for the new record to be added
Dim strSQL 'Holds the SQL query to query the database
strOverskrift = Trim(Replace(replace(Request.Form("Overskrift"),"'",""),"<","<"))
strForfatter = Trim(Replace(replace(Request.Form("Forfatter"),"'",""),"<","<"))
strfangstmnd = Trim(Replace(replace(Request.Form("fangstmnd"),"'",""),"<","<"))
strfangst = Trim(Replace(replace(Request.Form("fangst"),"'",""),"<","<"))
stragn = Trim(Replace(replace(Request.Form("agn"),"'",""),"<","<"))
strvaegt = Trim(Replace(replace(Request.Form("vaegt"),"'",""),"<","<"))
strkategori = Trim(Replace(replace(Request.Form("metode"),"'",""),"<","<"))
strsted = Trim(Replace(replace(Request.Form("sted"),"'",""),"<","<"))
strberetning = Trim(Replace(replace(Request.Form("indhold"),"'",""),"<","<"))
if len(strOverskrift) < 1 or strOverskrift ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en overskrift.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strForfatter) < 1 or strForfatter ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en forfatter.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strfangstmnd) < 1 or strfangstmnd ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en fangstdato.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
'elseif isDate(strfangstmnd) = false then
' Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Dato skal være i formatet dd-mm-yyyy") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
maned = Mid((Strfangstmnd),4,2)
elseif maned > 12 or isDate(Strfangstmnd) = false then
' maned = Mid((strfangstmnd),3,2)
'elseif maned > 12 or isDate(strfangstmnd) = false then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Ikke over 12 måneder!") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strfangst) < 1 or strfangst ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en fangst.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(stragn) < 1 or stragn ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste et agn.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strvaegt) < 1 or strvaegt ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste vægten.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strkategori) < 1 or strkategori ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en kategori.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strsted) < 1 or strsted ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste et sted.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif len(strberetning) < 1 or strberetning ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en beretning.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&kategori=" & Server.URLEncode(strkategori)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
end if
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/krcdb.mdb")
'Create an ADO recordset object
Set rsAddComments = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT testtabel.forfatter, testtabel.overskrift, testtabel.agn, testtabel.fangstmnd, testtabel.fangst, testtabel.vaegt, testtabel.sted, testtabel.metode, testtabel.beretning FROM testtabel;"
'Set the cursor type we are using so we can navigate through the recordset
rsAddComments.CursorType = 2
'Set the lock type so that the record is locked by ADO when it is updated
rsAddComments.LockType = 3
'Open the recordset with the SQL query
rsAddComments.Open strSQL, adoCon
'strberetning = Replace(strtemp, vbCrLf, "<br>")
'strberetning = Replace(strtemp, vbCrLf, "<b>")
'Tell the recordset we are adding a new record to it
rsAddComments.AddNew
'Add a new record to the recordset
rsAddComments.Fields("forfatter") = Request.Form("forfatter")
rsAddComments.Fields("overskrift") = Request.Form("overskrift")
rsAddComments.Fields("agn") = Request.Form("agn")
rsAddComments.Fields("fangstmnd") = Request.Form("fangstmnd")
rsAddComments.Fields("fangst") = Request.Form("fangst")
rsAddComments.Fields("vaegt") = Request.Form("vaegt")
rsAddComments.Fields("sted") = Request.Form("sted")
rsAddComments.Fields("metode") = Request.Form("metode")
rsAddComments.Fields("beretning") = Replace(Replace(Request.Form("indhold"),"""","'"),"'","''")
'Write the updated recordset to the database
rsAddComments.Update
'Reset server objects
rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
'find id som vi lige har sat ind.
sqlo = "SELECT max(ID_no) FROM testtabel"
Set rso = dbc.Execute(sqlo)
oid = Cint(rso(0))
if Request.Form("billede") = "on" then
Response.Redirect "admin_indlaes_fil.asp?id=" & Server.URLEncode(oid)
else
Response.Redirect "view_selected.asp?id=" & Server.URLEncode(oid)
end if
%>
*****************
<% Session.LCID=1030 %>
<%
if isEmpty(session("UserID")) then
Response.Redirect "../../bruger/asp/logadmin.asp?msg=" & Server.URLEncode ("Du skal være logget ind for at indtaste fangstrapporter.")
end if
%>
<%
msg= request.querystring("msg")
overskrift= request.querystring("overskrift")
forfatter= request.querystring("forfatter")
fangstmnd= request.querystring("fangstmnd")
fangst= request.querystring("fangst")
agn= request.querystring("agn")
vaegt= request.querystring("vaegt")
kategori= request.querystring("kategori")
sted= request.querystring("sted")
beretning= request.querystring("beretning")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Cache-Control" content="no-store">
<meta http-equiv="Pragma" content="no-cache">
<link rel="stylesheet" type="text/css" href="fiskestil.css">
<style TYPE="text/css">
TABLE#tblCoolbar
{
background-color:threedface; padding:1px; color:menutext;
border-width:1px; border-style:solid;
border-color:threedhighlight threedshadow threedshadow threedhighlight;
}
.cbtn
{
height:18;
BORDER-LEFT: threedface 1px solid;
BORDER-RIGHT: threedface 1px solid;
BORDER-TOP: threedface 1px solid;
BORDER-BOTTOM: threedface 1px solid;
}
.txtbtn {font-family:tahoma; font-size:70%; color:menutext;}
</style>
<script LANGUAGE="JavaScript">
function button_over(eButton)
{
eButton.style.backgroundColor = "#B5BDD6";
eButton.style.borderColor = "darkblue darkblue darkblue darkblue";
}
function button_out(eButton)
{
eButton.style.backgroundColor = "threedface";
eButton.style.borderColor = "threedface";
}
function button_down(eButton)
{
eButton.style.backgroundColor = "#8494B5";
eButton.style.borderColor = "darkblue darkblue darkblue darkblue";
}
function button_up(eButton)
{
eButton.style.backgroundColor = "#B5BDD6";
eButton.style.borderColor = "darkblue darkblue darkblue darkblue";
eButton = null;
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var isHTMLMode=false
function document.onreadystatechange()
{
idContent.document.designMode="On"
}
function cmdExec(cmd,opt)
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
idContent.document.execCommand(cmd,"",opt);idContent.focus();
}
function setMode(bMode)
{
var sTmp;
isHTMLMode = bMode;
if (isHTMLMode){sTmp=idContent.document.body.innerHTML;idContent.document.body.innerText=sTmp;}
else {sTmp=idContent.document.body.innerText;idContent.document.body.innerHTML=sTmp;}
idContent.focus();
}
function createLink()
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
cmdExec("CreateLink");
}
function insertImage()
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
var sImgSrc=prompt("Insert Image File (You can use your local image file) : ", "http://www.aspalliance.com/Yusuf/sample.jpg");
if(sImgSrc!=null) cmdExec("InsertImage",sImgSrc);
}
function Save()
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
var sImgTag = idContent.document.body.all.tags("IMG");
var oImg;
for (var i = sImgTag.length - 1; i >= 0; i--)
{
oImg = sImgTag[i];
alert("Add your code to Upload Local Image file here. Image inserted : " + oImg.src );
}
alert("Add your code to Save Document here");
alert("Your Document : " + idContent.document.body.innerHTML);
}
function foreColor()
{
var arr = showModalDialog("selcolor.htm","","font-family:Verdana; font-size:12; dialogWidth:30em; dialogHeight:34em" );
if (arr != null) cmdExec("ForeColor",arr);
}
function flytIndhold()
{
document.minform.indhold.value = idContent.document.body.innerHTML
return true
}
</script>
</head>
<body bgcolor="#F9F9F9">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber2">
<tr>
<td width="100%">
<p align="center">
<font face="Verdana" size="2">
<strong>
Indtast fangstrapport
</strong>
</font>
</p>
</td>
</tr>
<tr>
<td width="100%">
<hr width="530px">
</td>
</tr>
<tr>
<td width="100%" align=center>
<%
Response.write "<FONT size=1 face=verdana><b>" & (msg) & "</b></FONT>"
%>
</td>
</tr>
</table>
</center>
</div>
<br>
<form method="POST" name="minform" action="add_report.asp" onSubmit="return flytIndhold()">
<INPUT TYPE="hidden" name="indhold">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber2">
<tr>
<td width="100%">
<p align="left">
<font face="Verdana" size="1">
<strong>
<a href="view_select_bg.asp">
Tilbage
</a>
</strong>
</font>
</p>
</td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="530" id="table2" bordercolor="#000000" style="border-left-width: 0px; border-right-width: 0px; border-top-width: 0px">
<tr>
<td class="fangsttekst" rowspan="5" width="20%" style="border-left: medium none #000000; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom: medium none #000000">
</td>
<td class="fangsttekst" width="20%" style="border-style: none; border-width: medium">
<b>Overskrift:</b></td>
<td class="fangsttekst" style="border-style: none; border-width: medium" >:<input type="text" name="overskrift" size="30" value="<%=overskrift%>" style="border-left: medium none; border-right: medium none; border-top: medium none; border-style: dotted; border-width: 1; background-color: #F9F9F9"></td>
</tr>
<tr>
<td class="fangsttekst" width="20%" style="border-style: none; border-width: medium">Navn</td>
<td class="fangsttekst" style="border-style: none; border-width: medium" >:<input type="text" name="Forfatter" size="30" value="<%=forfatter%>" style="border-style: dotted; border-width: 1; background-color: #F9F9F9"></td>
</tr>
<tr>
<td class="fangsttekst" width="20%" style="border-style: none; border-width: medium">Dato for fangst</td>
<td class="fangsttekst" style="border-style: none; border-width: medium" >:<input type="text" name="fangstmnd" value="<%=fangstmnd%>" size="10" style="border-style: dotted; border-width: 1; background-color: #F9F9F9">dd-mm-aaaa
</td>
</tr>
<tr>
<td class="fangsttekst" width="20%" style="border-style: none; border-width: medium">Fangst</td>
<td class="fangsttekst" style="border-style: none; border-width: medium" >:<select name="fangst" size="1" style="border-style: dotted; border-width: 1; background-color: #F9F9F9">>
<option><%=fangst%></option>
<option>Aborre</option>
<option>Barracuda</option>
<option>Brasen</option>
<option>Brosme</option>
<option>Bækørred</option>
<option>Gedde</option>
<option>Grouper</option>
<option>Græskarpe</option>
<option>Havkat</option>
<option>Havørred</option>
<option>Helt</option>
<option>Hornfisk</option>
<option>Issing</option>
<option>Kildeørred</option>
<option>Kuller</option>
<option>Ladyfish</option>
<option>Laks</option>
<option>Lange</option>
<option>Makrel</option>
<option>Marlin</option>
<option>Multe</option>
<option>Pighvar</option>
<option>Redsnapper</option>
<option>Regnbueørred</option>
<option>Rokke</option>
<option>Rødfisk</option>
<option>Sailfish</option>
<option>Sej</option>
<option>Sild</option>
<option>Skalle</option>
<option>Skælkarpe</option>
<option>Slethvar</option>
<option>Spejlkarpe</option>
<option>Stenbidder</option>
<option>Suder</option>
<option>Sværdfisk</option>
<option>Søørred</option>
<option>Torsk</option>
<option>Tun</option>
<option>Ål</option>
</select>
</td>
</tr>
<tr>
<td class="fangsttekst" width="20%" style="border-style: none; border-width: medium">Agn</td>
<td class="fangsttekst" style="border-style: none; border-width: medium" >:<input type="text" name="agn" size="10" value="<%=agn%>" style="border-style: dotted; border-width: 1; background-color: #F9F9F9"></td>
</tr>
</table>
</div>
<br>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0px; border-collapse: collapse; " width="530" id="table2" bordercolor="#000000">
<tr>
<td class="fangsttekst" width="33%" style="border-style:none; border-width:medium; ">
Vægt i kg:<br><input type="text" name="vaegt" size="7" value="<%=vaegt%>" style="border-style: dotted; border-width: 1; background-color: #F9F9F9">
</td>
<td class="fangsttekst" width="33%" style="border-top:medium none #000000; border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium">
Kategori:<br>
<select name="metode" size="1" style="border-style: dotted; border-width: 1; background-color: #F9F9F9">
<option><%=kategori%></option>
<option>Havfiskeri</option>
<option>Kystfiskeri</option>
<option>Medefiskeri</option>
<option>Søfiskeri</option>
<option>Mosefiskeri</option>
<option>Åfiskeri</option>
<option>Put & Take</option>
<option>Trolling</option>
<option>Elv</option>
<option>Udlandet</option>
<option>Fjord</option>
</select>
</td>
<td class="fangsttekst" width="33%" style="border-top:medium none #000000; border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium">
Sted:<br>
<input type="text" name="sted" size="20" value="<%=sted%>" style="border-style: dotted; border-width: 1; background-color: #F9F9F9">
</td>
</tr>
<tr>
<td class="fangsttekst" style="border-left:1px none #000000; border-right:1px none #000000; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" colspan="3">
Beretning:
</td>
</tr>
</table>
</center>
</div>
<TABLE align=center bgcolor="#f0f8ff" style="border:0px solid darkblue; FONT-FAMILY: verdana" >
<table id="tblCoolbar" width="530" cellpadding="0" cellspacing="0" align=center>
<tr valign="middle">
<td colspan="16">
<select onchange="cmdExec('fontname',this[this.selectedIndex].value);">
<option selected>Font</option>
<option value="Arial">Arial</option>
<option value="Arial Black">Arial Black</option>
<option value="Arial Narrow">Arial Narrow</option>
<option value="Comic Sans MS">Comic Sans MS</option>
<option value="Courier New">Courier New</option>
<option value="System">System</option>
<option value="Tahoma">Tahoma</option>
<option value="Times New Roman">Times New Roman</option>
<option value="Verdana">Verdana</option>
<option value="Wingdings">Wingdings</option>
</select>
<select onchange="cmdExec('fontsize',this[this.selectedIndex].value);">
<option selected>Size</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="10">10</option>
<option value="12">12</option>
<option value="14">14</option>
</select>
</td>
</tr>
<tr>
<td><div class="cbtn" onClick="cmdExec('cut')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Cut.gif" alt="Cut" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('copy')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Copy.gif" alt="Copy" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('paste')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Paste.gif" alt="Paste" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('bold')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Bold.gif" alt="Bold" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('italic')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Italic.gif" alt="Italic" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('underline')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Under.gif" alt="Underline" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('justifyleft')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Left.gif" alt="Justify Left" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('justifycenter')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Center.gif" alt="Center" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('justifyright')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="1" vspace="1" align="absmiddle" src="images/Right.gif" alt="Justify Right" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('insertorderedlist')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="2" vspace="1" align="absmiddle" src="images/numlist.GIF" alt="Ordered List" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('insertunorderedlist')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="2" vspace="1" align="absmiddle" src="images/bullist.GIF" alt="Unordered List" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('outdent')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="2" vspace="1" align="absmiddle" src="images/deindent.gif" alt="Decrease Indent" WIDTH="23" HEIGHT="22">
</div></td>
<td><div class="cbtn" onClick="cmdExec('indent')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
<img hspace="2" vspace="1" align="absmiddle" src="images/inindent.gif" alt="Increase Indent" WIDTH="23" HEIGHT="22">
</div></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" align=center>
<tr>
<td align=center><iframe width="530" id="idContent" height="150"></iframe>
</td>
</tr>
<tr>
<td align=center><%=beretning%>
</td>
</tr>
</table>
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="530" id="table3" bordercolor="#000000">
<tr>
<td colspan="5" style="border-bottom-style: none; border-bottom-width: medium">
</td>
</tr>
<tr>
<td colspan="5" class="fangsttekst" style="border-style: none; border-width: medium">
<p align="center">
Sæt hak hvis du vil se HTML-tags<input type="checkbox" onclick="setMode(this.checked)">
</td>
</tr>
<tr>
<td colspan="5" class="fangsttekst" style="border-style: none; border-width: medium">
<p align="center">
<b>Hvis du vil uploade billede til denne rapport skal du sætte hak her:</b><input type="checkbox" name="billede" >
</td>
</tr>
<tr>
<td colspan="5" style="border-bottom-style: none; border-bottom-width: medium">
</td>
</tr>
<tr>
<td colspan="5" class="fangsttekst" style="border-style: none; border-width: medium">
<p align="center">
<p align=center><input type="submit" value="Gem rapport" name="B1"></p>
</td>
</tr>
</table>
</div>
<script>
//idContent.document.write ("")
//idContent.document.body.innerHTML = "123"
idContent.document.close()
</script>
</p>
</FORM>
</TD>
</TR>
</TABLE>
</body>
</html>
