Database opretter det samme 2 gang. Hvorfor?
Jeg har en formular hvor jeg kan gå ind og oprette sider. Når denne sender informationerne og skriver til databasen gør den det 2 gange.Nu er jeg hel grøn i hovedet af at sidder og kigge koderne igemmen, uden at finde fejlen.
Det er lavet sådanne at der er en formular der sender de udfylte informationer til en asp side der håndter dem og denne sender dem til databsen.
Her er koderne til formularen, asp siden der modtager og sender til databasen. Der er godt nok en del kode, men det er lidt nødvendigt at indsætte her.
FORFULAREN:
<%
Randomize
Dim folders()
quantFiles = 0
dummy = HowManyFiles(Server.Mappath("images"))
Call Main
Sub Main()
Call PasswordTest()
End Sub
Sub PasswordTest()
if Session("secure") <> "ok" AND request("test") <> 1 Then
response.redirect("logon.asp")
end if
if Session("secure") <> "ok" AND request("test") = 1 Then
Set con = Server.CreateObject("ADODB.Connection")
con.Open strconn, "", ""
strSQL = "SELECT * FROM control WHERE id = 1"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, con, adOpenStatic, adLockReadOnly, adCmdText
If Not rst.EOF Then
pword = rst("pword")
End If
rst.Close
set rst = nothing
con.Close
set con = nothing
If NOT ( Trim(request("password")) = pword ) Then
response.redirect("logon.asp")
end if
Session("secure") = "ok"
end if
if Session("secure") <> "ok" Then
response.redirect("logon.asp")
end if
End Sub
Sub GetFileNames(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
Redim folders(quantfiles,4)
quantFolders = 0
For Each f1 in fc
quantFolders = quantFolders + 1
Folders(quantFolders,1) = f1.name
Folders(quantFolders,2) = f1.DateLastModified
bits = Split(Folders(quantFolders,1),"_")
Folders(quantFolders,3) = bits(0)
Folders(quantFolders,4) = f1.Size
Next
End Sub
Function HowmanyFiles(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
quantFiles = 0
For Each f1 in fc
quantFiles = quantFiles + 1
Next
HowmanyFiles = quantFiles
End Function
Function NoCache()
NoCache = Int(9999 * Rnd) + 1
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Control Panel</title>
<script language="javascript">
<!--
function rusure(value) {
if (confirm("Advarsel. Sletter du dette vil du ikke kunne få det tilbage."))
{ document.location.href = value;
}
}
// -->
</script>
<style fprolloverstyle>A:hover {color: #FF0000}
</style>
<script>
function modelesswin(url,mwidth,mheight){
if (document.all&&window.print) //if ie5
eval('window.showModelessDialog(url,"","help:0;resizable:0;dialogWidth:'+mwidth+'px;dialogHeight:'+mheight+'px")')
else
eval('window.open(url,"","width='+mwidth+'px,height='+mheight+'px,resizable=1,scrollbars=1")')
}
</script>
<link href="admin/design.css" rel="stylesheet" type="text/css">
</head>
<div align="center">
<center>
</center>
</div>
<div align="center">
<center>
</center>
</div>
<div align="center">
<center>
<table width="584" border="2" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5">
<tr>
<td height="16" align="center" class="billedet_top"><br> <br> <br> <br>
<br> <br>
<br> <table width="600" border="0" align="center" bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<tr bgcolor="#F5F5F5">
<th width="21" scope="col"><a href="java script:history.go(-1)" ><img src="admin/adminimages/tilbage.gif" width="16" height="16" border="0"></a></th>
<th width="41" scope="col"><a href="java script:history.go(-1)" >Tilbage</a></th>
<th width="290" valign="bottom" bordercolor="#F5F5F5" scope="col"><div align="right">
<% If request("tl") = "1" Then %>
Hovedet Siden
<% End If %>
</div></th>
<th width="198" valign="bottom" bordercolor="#F5F5F5" scope="col"><div align="right"><a href="admin/control.asp" >Administration</a></div></th>
<th width="28" scope="col"><a href="control.asp" ><img src="admin/adminimages/hjem.gif" width="16" height="16" border="0"></a>
</table></td>
</tr>
<tr>
<td align="left" height="10"> </td>
</tr>
<tr>
<td height="673" align="left" bordercolor="#F5F5F5" bgcolor="#F5F5F5"> <div align="center">
<form method="POST" action="admin/AddSubPageAction.asp" name="form1">
<table width="584" border="1" cellpadding="4" cellspacing="5" bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<tr>
<td colspan="2" height="6"></td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="241">Siden´s Navn </td>
<td width="306" valign="middle"><input type="text" name="pagename" size="51" tabindex="1" >
</td>
</tr>
<tr bordercolor="#999999" bgcolor="#FCFCFC">
<td height="2" colspan="2"><script language="Javascript">
var format="HTML"
iBk = new Image();
iBk.src = "admin/bk.gif";
iUp = new Image();
iUp.src = "admin/up.gif";
iDw = new Image();
iDw.src = "admin/down.gif";
function exImg(imgObject, imgName){
imgObject.src = imgName.src
}
function getRange(){
selection = theHTML.document.selection.createRange();
if(selection.text == ""){selection = theHTML.document}
return selection;
}
function setStyle(imgObject){
exImg(imgObject, iDw);
selection = getRange();
selection.execCommand(imgObject.name);
}
function setFont(formObject){
fontValue = formObject.options[formObject.selectedIndex].value;
selection = getRange();
selection.execCommand(formObject.name, false, fontValue);
}
</script> <div align="left">
<table border="0" width="500" bgcolor="#cccccc" cellpadding="0" cellspacing="0" background="admin/toolbar.gif" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td><img src="admin/bk.gif" width="25" height="20" name="Bold" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="Italic" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="Underline" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="JustifyLeft" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="JustifyCenter" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="JustifyRight" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="JustifyFull" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="InsertUnorderedList" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="InsertOrderedList" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="Indent" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="Outdent" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td><img src="admin/bk.gif" width="25" height="20" name="CreateLink" onMouseOver="exImg(this, iUp)" onMouseOut="exImg(this, iBk)" onMouseDown="setStyle(this)" onMouseUp="exImg(this, iUp)"></td>
<td width="200"><select name="FontName" onchange="setFont(this)">
<option value="Arial, Helvetica, sans serif">Arial</option>
<option value="Times New Roman, serif" selected>Times</option>
<option value="Courier, Century">Courier</option>
</select> <select name="FontSize" onchange="setFont(this)">
<option value="1">8pt</option>
<option value="2">10pt</option>
<option value="3" selected>12pt</option>
<option value="4">14pt</option>
<option value="5">18pt</option>
<option value="6">24pt</option>
<option value="7">36pt</option>
</select></td>
</tr>
</table>
</div>
<iframe name="theHTML" src width="561" height="353"></iframe>
<input type="hidden" name="theHTML" value> <script language="JavaScript">
frames.theHTML.document.designMode = "On";
var isHTMLMode=false
function submitForm() {
if (format=="Text") {
alert("Please 'Flip' Du kan ikke gemme i html. Skrift til WYSIWYG");
return false;
}
else {
document.form1.theHTML.value = theHTML.document.body.innerHTML;
document.form1.submit();
}
}
function swapModes() {
if (format=="HTML") {
frames.theHTML.document.body.innerText = frames.theHTML.document.body.innerHTML
frames.theHTML.document.body.style.fontFamily = "monospace"
frames.theHTML.document.body.style.fontSize = "8pt"
format="Text"
isHTMLMode=false
document.form1.flip.value = "Skrift til WYSIWYG";
}
else {
frames.theHTML.document.body.innerHTML = frames.theHTML.document.body.innerText
frames.theHTML.document.body.style.fontFamily = ""
frames.theHTML.document.body.style.fontSize =""
format="HTML"
isHTMLMode=true
document.form1.flip.value = "Skrift til HTML";
}
theHTML.focus()
var s = frames.theHTML.document.body.createTextRange()
s.collapse(false)
s.select()
}
function cmdExec(cmd,opt)
{
frames.theHTML.document.execCommand(cmd,"",opt);frames.theHTML.focus();
}
function insertImage()
{
var sImgSrc=form1.imagelist.value;
if(sImgSrc!=null) cmdExec("InsertImage",sImgSrc);
form1.imagelist.options[0].selected = true;
}
function insertFile()
{
var sFileSrc=form1.filelist.value;
if(sFileSrc!=null) cmdExec("CreateLink",sFileSrc);
form1.filelist.options[0].selected = true;
}
</script> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%" colspan="2"><img border="0" src="admin/adminimages/pad.gif" WIDTH="5" HEIGHT="5"></td>
</tr>
<tr bgcolor="#FCFCFC">
<td width="50%">Skrift mellen HTML og Normal visning >>></td>
<td width="50%" align="right"> <input name="flip" TYPE="button" STYLE="width: 15em" VALUE="Skrift til HTML" ONCLICK="swapModes(this)"></td>
</tr>
<tr>
<td width="100%" colspan="2"><img border="0" src="admin/adminimages/pad.gif" WIDTH="5" HEIGHT="5"></td>
</tr>
<tr bgcolor="#FCFCFC">
<td width="50%">Indsæt billedet >>></td>
<td width="50%" align="right"> <select size="1" name="imagelist" OnChange="insertImage(this)">
<option>Vælge</option>
<%
Call GetFileNames(Server.Mappath("images"))
For folderloop = 1 to UBound(Folders,1)
timedate = Split( Folders(folderloop,2)," ")
%>
<option value="<% = Server.HTMLEncode("images/" & Folders(folderloop,1)) %>">
<% = Server.HTMLEncode(Folders(folderloop,1)) %>
</option>
<%
Next
%>
</select></td>
</tr>
<tr>
<td width="100%" colspan="2"><img border="0" src="admin/adminimages/pad.gif" WIDTH="5" HEIGHT="5"></td>
</tr>
<tr bgcolor="#FCFCFC">
<td width="50%">Indsæt fil link >>><br>
Maker et billedet eller et stykke tekst og vælge
fil bagefter.</td>
<td width="50%" align="right"> <select size="1" name="filelist" OnChange="insertFile(this)">
<option>Vælge</option>
<%
dummy2 = HowManyFiles(Server.Mappath("files"))
Call GetFileNames(Server.Mappath("files"))
For folderloop = 1 to UBound(Folders,1)
timedate = Split( Folders(folderloop,2)," ")
%>
<option value="<% = Server.HTMLEncode("files/" & Folders(folderloop,1)) %>">
<% = Server.HTMLEncode(Folders(folderloop,1)) %>
</option>
<%
Next
%>
</select></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="241" valign="top">Tilføj sider til denne side.
<a href="#" onClick="window.open('admin/ListSubLinks.asp', 'WindowA', 'width=300,height=570,scrollbars=no');"><br>
<br>
Gemmense link</a> </td>
<td valign="middle"><textarea rows="3" name="sublinks" cols="45" wrap="virtual" tabindex="3" ></textarea>
<br> <i> Find side der ønskes ved at trykke "Gemmense
link" og tryk på siden der ønskes, den er
nu tilføjet. Ønsker du flere link på samme
side laves der mellemrum for hvad nummer eller der vælges
flere sider i "Gemmense link".</i></font></td>
</tr>
<% If request("tl") <> "1" Then %>
<tr bgcolor="#F5F5F5">
<td width="241">Indsæt denne side i hovedet 'Menu´en'
<br> </td>
<td valign="middle"><select size="1" name="toplevel" tabindex="4" >
<option value="no">Nej</option>
<option value="yes">Ja</option>
</select></td>
</tr>
<% Else %>
<input type="hidden" name="toplevel" value="yes">
<% End If %>
<tr bgcolor="#F5F5F5">
<td width="241">Vælge hvor side skal være. </td>
<td valign="middle"><select size="1" name="menubarposition" tabindex="5" >
<option value="998">UnSpecified</option>
<option value="1">Top</option>
<option value="999">Bottom</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="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
<option value="32">32</option>
<option value="33">33</option>
<option value="34">34</option>
<option value="35">35</option>
<option value="36">36</option>
<option value="37">37</option>
<option value="38">38</option>
<option value="39">39</option>
<option value="40">40</option>
<option value="41">41</option>
<option value="42">42</option>
<option value="43">43</option>
<option value="44">44</option>
<option value="45">45</option>
<option value="46">46</option>
<option value="47">47</option>
<option value="48">48</option>
<option value="49">49</option>
<option value="50">50</option>
</select></td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="241">Skal siden vente med at blive udgivet på
nettet?</td>
<td valign="top"><select size="1" name="onhold" tabindex="7" >
<option value="no">Nej</option>
<option value="yes">Ja</option>
</select></td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="241">Side Password</td>
<td valign="top"><input type="text" name="password" size="20" tabindex="8">
<br>
Giver du siden et "Password" kan du også give
en anden bruger du ønsker adgang til denne side (kun
den side) og den person kan rediger og tilføje til
til denne side. Denne side kunne muligvis være "Nyheder"</td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="241"> </td>
<td valign="top"><input type="submit" value="Gem" name="B1" tabindex="9" onClick="return submitForm()"></td>
</tr>
</table>
<input type="hidden" name="id" value="<% = request("id") %>">
<input type="hidden" name="linkfrom" value="<% = request("linkfrom") %>">
</form>
</div><table width="100%" border="0">
<tr>
<td class="billedet_bund"> </td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
</center>
</div>
<div align="center">
<center>
</center>
</div>
<div align="center">
<center>
</center>
</div>
</body>
</html>
MODTAGER FILEN:
<%
ImageFix = ""
Call Main
Sub Main()
Call PasswordTest()
End Sub
Sub PasswordTest()
if Session("secure") <> "ok" AND request("test") <> 1 Then
response.redirect("../logon.asp")
end if
if Session("secure") <> "ok" AND request("test") = 1 Then
Set con = Server.CreateObject("ADODB.Connection")
con.Open Adminstrconn, "", ""
strSQL = "SELECT * FROM control WHERE id = 1"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, con, adOpenStatic, adLockReadOnly, adCmdText
If Not rst.EOF Then
pword = rst("pword")
End If
rst.Close
set rst = nothing
con.Close
set con = nothing
If NOT ( Trim(request("password")) = pword ) Then
response.redirect("../logon.asp")
end if
Session("secure") = "ok"
end if
if Session("secure") <> "ok" Then
response.redirect("../logon.asp")
end if
End Sub
Function HandleErrors(varNum, varDesc)
On Error Resume Next
If varNum <> 0 Then
Response.Write varDesc
HandleErrors = 1
Else
HandleErrors = 0
End If
End Function
Sub Save()
On Error Resume Next
aeURL = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
aeURL = Replace(aeURL,"admin/AddSubPageAction.asp","")
Set con = Server.CreateObject("ADODB.Connection")
con.Open Adminstrconn, "", ""
Set rst = Server.CreateObject("ADODB.Recordset")
varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
rst.Open "SELECT * FROM pages", con, adOpenKeyset, adLockOptimistic
varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
ImageFix = Replace(Trim(request("theHTML")),aeURL,"")
arrayFields = Array("pagename","sublinks","menubarposition","onhold","toplevel","password","bodytext")
arrayValues = Array(Trim(request("pagename")),Trim(request("sublinks")),request("menubarposition"),request("onhold"),request("toplevel"),Trim(request("password")),ImageFix)
rst.AddNew arrayFields, arrayValues
rst.Update
id = rst("id")
varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
rst.Close
set rst = nothing
con.Close
set con = nothing
Call SaveLink(id)
End Sub
Sub SaveLink(tempID)
If Trim(request("linkfrom")) <> "" AND IsNumeric(Trim(request("linkfrom"))) Then
On Error Resume Next
Set con = Server.CreateObject("ADODB.Connection")
con.Open Adminstrconn, "", ""
Set rst = Server.CreateObject("ADODB.Recordset")
varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
rst.Open "SELECT * FROM pages WHERE id = " & Trim(request("linkfrom")), con, adOpenKeyset, adLockOptimistic
varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
If NOT rst.EOF Then
rst("sublinks") = rst("sublinks") & " " & tempID & " "
rst.Update
End If
varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
rst.Close
set rst = nothing
con.Close
set con = nothing
End If
End Sub
Function CrTrim(tempString)
CrTrim = Replace(Replace(Trim(Replace(Replace(Trim(tempString)," ","£$%"),vbCrLf," "))," ",vbCrLf),"£$%"," ")
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Control Panel</title>
<link href="design.css" rel="stylesheet" type="text/css">
</head>
<table width="602" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6622" height="100%" align="left" valign="top">
<table width="602" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666">
<%
If trim(request("pagename")) = "" Then
%>
<td width="678" height="100%" align="center" valign="top" bgcolor="#F5F5F5">
<table width="100%" border="0">
<tr>
<th class="billedet_top" scope="col"><br><br><br><br><br><br><br>
<table width="100%" border="0" bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<tr bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<th width="20" scope="col"><a href="java script:history.go(-1)" ><img src="adminimages/tilbage.gif" width="16" height="16" border="0"></a></th>
<th width="42" scope="col"><a href="java script:history.go(-1)" >Tilbage</a></th>
<th width="496" scope="col"><div align="right"><a href="control.asp" >Administration</a></div></th>
<th width="20" scope="col"><a href="control.asp" ><img src="adminimages/hjem.gif" width="16" height="16" border="0"></a></th>
</tr>
</table></th>
</tr>
</table><table width="100%" border="0" bgcolor="#F5F5F5">
<tr>
<th height="157" scope="col"><p align="center"><img src="adminimages/virkerikke.gif"></p>
<p align="center">Der er ikke nok informationer på siden</p>
<p align="center"><a href="java script:history.go(-1)" target="_self">Tryk tilbage for at prøve igen.</a><br><br></p></th>
</tr>
</table>
<table width="100%" border="0">
<tr>
<th height="63" class="billedet_bund" scope="col"> </th>
</tr>
</table> </td>
</tr>
<%
Else
Call Save()
%>
<tr>
<td height="760" align="left" valign="top" bgcolor="#F5F5F5">
<%
If varErrors = 0 Then
%>
<table width="100%" border="0">
<tr>
<th height="135" class="billedet_top" scope="col"><br>
<br><br><br><br><br><br>
<table width="600" border="0" bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<tr bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<th width="20" scope="col"><a href="java script:history.go(-1)" ><img src="adminimages/tilbage.gif" width="16" height="16" border="0"></a></th>
<th width="42" scope="col"><a href="java script:history.go(-1)" >Tilbage</a></th>
<th width="496" scope="col"><div align="right"><a href="control.asp" >Administration</a></div></th>
<th width="20" scope="col"><a href="control.asp" ><img src="adminimages/hjem.gif" width="16" height="16" border="0"></a></th>
</tr>
</table></th>
</tr>
</table>
<table width="100%" border="0">
<tr>
<th scope="col"><p align="center"><img src="adminimages/ret.gif">
<p align="center">Siden er gemt</p>
<div align="center">
<center>
<br>
</center>
</div></th>
</tr>
</table>
<table width="100%" border="0">
<tr>
<th height="63" class="billedet_bund" scope="col"> </th>
</tr>
</table>
<%Else%>
<table width="100%" border="0">
<tr>
<th class="billedet_top" scope="col"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<table width="100%" border="0" bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<tr bordercolor="#F5F5F5" bgcolor="#F5F5F5">
<th width="20" height="18" scope="col"><a href="java script:history.go(-1)" ><img src="adminimages/tilbage.gif" width="16" height="16" border="0"></a></th>
<th width="42" scope="col"><a href="java script:history.go(-1)" >Tilbage</a></th>
<th width="496" scope="col"><div align="right"><a href="control.asp" >Administration</a></div></th>
<th width="20" scope="col"><a href="control.asp" ><img src="adminimages/hjem.gif" width="16" height="16" border="0"></a></th>
</tr>
</table></th>
</tr>
</table>
<table width="100%" border="0" align="center">
<tr>
<th height="157" bgcolor="#F5F5F5" scope="col"><p align="center"><img border="0" src="adminimages/virkerikke.gif" align="absmiddle" width="60" height="57"></p>
<p align="center">Der er sket en fejl</p>
<p align="center">Tryk tilbage tilbage for at prøve igen.<br>
<br>
</p></th>
</tr>
</table>
<table width="100%" border="0" bgcolor="#F5F5F5">
<tr>
<th height="63" class="billedet_bund" scope="col"> </th>
</tr>
</table>
<%
End If
%></td>
</tr>
<%
End If
%>
</table>
</body>
