Exception occurred.
Hej jeg ved slet ikke hvad der er galt i denne lange kode, som nok kunne optimeres ved at dele den op i flere filer, men nu er den lige i énfejlen er:
error '80020009'
Exception occurred.
/open.asp, line 65
tjek det på www.forstkandidat.info
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/skov_conn.asp" -->
<!--#include file="addlinks.asp" -->
<%
Dim rsDok__MMColParam
rsDok__MMColParam = "1"
if (Request.QueryString("id") <> "") then rsDok__MMColParam = Request.QueryString("id")
%>
<%
set rsDok = Server.CreateObject("ADODB.Recordset")
rsDok.ActiveConnection = MM_skov_conn_STRING
rsDok.Source = "SELECT tblDok.*, tblDokType.*, tblBaggrund.*, tblDiv.* FROM tblDok, tblDokType, tblBaggrund, tblBillede, tblDiv WHERE DokID = " + Replace(rsDok__MMColParam, "'", "''") + " AND tblDok.DokBaggrund = tblBaggrund.BaggrundID AND tblDok.DokType = tblDokType.DokTypeID"
rsDok.CursorType = 0
rsDok.CursorLocation = 2
rsDok.LockType = 3
rsDok.Open()
rsDok_numRows = 0
%>
<%
SESSION.LCID = 1030
%>
<html>
<head>
<title>Open</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="layout2.css" type="text/css">
<style type="text/css">
body {
overflow-y: hidden;
overflow-x: hidden;
background-repeat: no-repeat;
}
#myTBL {
position: relative;
z-index: 2;
}
</style>
<script type="text/JavaScript">
var d=document;
function getPos(elm) {
for(var zx=zy=0;elm!=null;zx+=elm.offsetLeft,zy+=elm.offsetTop,elm=elm.offsetParent);
return {x:zx,y:zy}
}
window.onload = window.onresize = function() {
var pos;
var myTBL;
myTBL = d.getElementById("myTBL");
}
function popup(url,name,win_height,win_width) {
pos_horizon = ((screen.width/2)-(win_width/2));
pos_vertical = ((screen.height/2)-(win_height/2));
window.open(url,name,"scrollbars=yes,width="+win_width+",height="+win_height+",top="+pos_vertical+",left="+pos_horizon);
}
</script>
<link rel="stylesheet" href="scroll.css" type="text/css">
</head>
<%
IF rsDok("DokType") = 1 THEN
%>
<%
set rsKal = Server.CreateObject("ADODB.Recordset")
rsKal.ActiveConnection = MM_skov_conn_STRING
rsKal.Source = "SELECT tblKal.*, tblKalKat.* FROM tblKal, tblKalKat WHERE tblKal.KalKat = tblKalKat.KalKatID AND KalShow=1 ORDER BY KalDato DESC"
rsKal.CursorType = 0
rsKal.CursorLocation = 2
rsKal.LockType = 3
rsKal.Open()
rsKal_numRows = 0
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = 5
Dim Repeat3__index
Repeat3__index = 0
rsKal_numRows = rsKal_numRows + Repeat3__numRows
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF">
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr bgcolor="#990000">
<td height="29" width="3"> </td>
<td height="40" colspan="2" valign="bottom"><% IF Len((rsDok.Fields.Item("DokTekst1Pic").Value)) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="3"></td>
<td width="249" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="3"></td>
<td width="5" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="3"></td>
</tr>
<tr style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" >
<td width="3" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="117"> </td>
<td width="249" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?<%= Request.QueryString("id")%>" height="174" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td width="5" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="117"> </td>
</tr>
<tr style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="3"></td>
<td width="249" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="3"></td>
<td width="5" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"><br><br><span class="2pixel"><br> </span>
<% IF rsDok("DokTekst2Show") = 1 THEN %><br>
<% IF NOT rsKal.EOF THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="187">
<tr>
<td style="background-color:#8EB715;" rowspan="3" width="56" valign="top" align="right"><% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<a href="open.asp?id=<%= rsDok("DivKalender")%>"><img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" border="0" ></a>
<% END IF %></td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr id="myTBL" >
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" class="10_normal">
<table border="0" cellspacing="0" cellpadding="0" height="140" >
<tr id="myTBL">
<td valign="top" class="10_normal" height="163">
<%
While ((Repeat3__numRows <> 0) AND (NOT rsKal.EOF))
IF Len(rsKal("KalDato")) <> 0 THEN
dato = rsKal("KalDato")
dagdato = Cint(weekday(dato))
END IF
%>
<font color="#FFFFFF" class="10_normal"><%= weekdayname(dagdato,true)%><%= " " & (rsKal.Fields.Item("KalDato").Value)%> <%= FormatDateTime((rsKal.Fields.Item("KalTid").Value), 4) %></font><br>
<a title="<%=(rsKal.Fields.Item("KalKatTitel").Value)%> »<%= " " &(rsKal.Fields.Item("KalTitel").Value)%>" href="java script:popup('kalpop.asp?id=<%=(rsKal.Fields.Item("KalID").Value)%>','kal_<%=(rsKal.Fields.Item("KalID").Value)%>','245','245');"><font color="#FFFFFF" class="11_fed"><%=(rsKal.Fields.Item("KalTitel").Value)%></font></a><span class="2pixel"><br>
</span><span class="2pixel"><br>
</span>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
rsKal.MoveNext()
Wend
%>
<br>
</td>
</tr>
<tr id="myTBL">
<td valign="top" class="10_normal"><a href="open.asp?id=<%= rsDok("DivKalender")%>"><span class="11_fed">»</span>
se alle arrangementer</a></td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40" bgcolor="#8EB715"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF
eND if %>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" height="6" colspan="2">
</td>
</tr>
</table>
</body>
<%
rsKal.Close()
%>
<%
END IF
IF rsDok("DokType") = 2 THEN %>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF" >
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr height="40" bgcolor="#607139">
<td width="3" bgcolor="#607139"> </td>
<td colspan="2" valign="bottom" bgcolor="#607139">
<% IF Len(rsDok.Fields.Item("DokTekst1Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" height="3"style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="249" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="5" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="117"> </td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" class="10_normal" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?id=<%= (rsDok.Fields.Item("DokID").Value)%>" height="180" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="117"> </td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"> <br>
<br>
<br><span class="2pixel"><br></span>
<% IF rsDok("DokTekst2Show") = 1 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#8EB715" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal">
<% IF Len(rsDok("DokTekst2")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst2").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span>")
END IF %>
</font> </td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF %>
<br>
<br>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" olspan="2"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" valign="top" height="6" colspan="2"></td>
</tr>
</table>
</body>
<%
END IF
IF rsDok("DokType") = 3 THEN
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF" >
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr height="40" bgcolor="#607139">
<td width="3" bgcolor="#607139"> </td>
<td colspan="2" valign="bottom" bgcolor="#607139">
<% IF Len(rsDok.Fields.Item("DokTekst1Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" height="3"style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="249" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="5" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="117"> </td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" class="10_normal" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?id=<%= (rsDok.Fields.Item("DokID").Value)%>" height="180" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="117"> </td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"> <br>
<% IF rsDok("DokTekst2Show") = 1 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#8EB715" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal">
<% IF Len(rsDok("DokTekst2")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst2").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span>")
END IF %>
</font><br><br><% IF Len(rsDok("DokFoto")) <> 0 THEN %>
<img id="myTBL" align="left" src="_billeder/<%= rsDok("DokFoto") %>" >
<% END IF %>
</td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF %>
<br>
<br>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" olspan="2"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" valign="top" height="6" colspan="2"></td>
</tr>
</table>
</body>
<%
END IF
IF rsDok("DokType") = 4 THEN %>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF" onLoad="InitialiseScrollableArea()" >
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr height="40" bgcolor="#990000">
<td width="3" bgcolor="#607139"> </td>
<td colspan="2" valign="bottom" bgcolor="#607139">
<% IF Len(rsDok.Fields.Item("DokTekst1Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" height="3"style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="249" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="5" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="117"> </td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" class="10_normal" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?id=<%= (rsDok.Fields.Item("DokID").Value)%>" height="180" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="117"> </td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"><br>
<br>
<br><span class="2pixel"><br></span>
<% IF rsDok("DokTekst2Show") = 1 THEN
IF Len(rsDok.Fields.Item("DokPDFFIL").Value) <> 0 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#8EB715" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><a href="_dok/<%= (rsDok.Fields.Item("DokPDFFIL").Value) %>" target="_blank"><img src="_images/pdf.gif" align="left" border="0">
<font color="#FFFFFF" class="10_normal"><%=(rsDok.Fields.Item("DokPDFTitel").Value)%></font></a><font color="#FFFFFF" class="10_normal"><br>
(
<% strMbDiv = (rsDok.Fields.Item("DokPDFMb").Value)/1000
Response.Write FormatNumber(strMbDiv, 2)
%>
kb)</font><br>
<br>
<br>
<a href="http://www.adobe.com/products/acrobat/readstep2.html" target="_blank"><img border="0" src="_images/get_adobe_reader.gif" alt="get acrobat reader"></a>
</td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF
eND if %>
<br>
<br>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" olspan="2"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" valign="top" height="6" colspan="2"></td>
</tr>
</table>
</body>
<%
END IF
IF rsDok("DokType") = 7 THEN
%>
<%
Dim rsRef__MMColParam
rsRef__MMColParam = "1"
if (Request.QueryString("id") <> "") then rsRef__MMColParam = Request.QueryString("id")
%>
<%
set rsRef = Server.CreateObject("ADODB.Recordset")
rsRef.ActiveConnection = MM_skov_conn_STRING
rsRef.Source = "SELECT * FROM tblRef WHERE RefDok = " + Replace(rsRef__MMColParam, "'", "''") + " ORDER BY RefDato DESC"
rsRef.CursorType = 0
rsRef.CursorLocation = 2
rsRef.LockType = 3
rsRef.Open()
rsRef_numRows = 0
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = 5
Dim Repeat2__index
Repeat2__index = 0
rsKal_numRows = rsKal_numRows + Repeat2__numRows
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF" onLoad="InitialiseScrollableArea()" >
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr height="40" bgcolor="#990000">
<td width="3" bgcolor="#607139"> </td>
<td colspan="2" valign="bottom" bgcolor="#607139">
<% IF Len(rsDok.Fields.Item("DokTekst1Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" height="3"style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="249" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="5" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="117"> </td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" class="10_normal" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?id=<%= (rsDok.Fields.Item("DokID").Value)%>" height="180" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="117"> </td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"> <br>
<br>
<br><span class="2pixel"><br></span>
<% IF NOT rsRef.EOF THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#990000" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="ref.asp?id=<%= Request.QueryString("id")%>" height="71" width="176" name="ref" frameborder="0" border="0" allowTransparency="true">
</iframe>
</td>
</tr>
</table>
</td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<span class="2pixel">
<br><br>
<br>
<br>
</span>
<% END IF
IF Len(rsDok.Fields.Item("DokTekst3Show").Value) <> 0 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#8EB715" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst3Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst3Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst3Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal"><% IF Len(rsDok("DokTekst3")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst3").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span>") & "<br>"
END IF %></font>
<% IF Len(rsDok("DokMedlem")) <> 0 THEN %><a href="<%= rsDok("DokMedlem") %>" target="_blank"><span class="11_fed">>> se medlemmer</span></a>
<% END IF %>
</td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF %>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" olspan="2"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" valign="top" height="6" colspan="2"></td>
</tr>
</table>
</body>
<%
rsRef.Close()
%>
<% END IF
IF rsDok("DokType") = 5 THEN
%>
<%
set FSNYT = Server.CreateObject("ADODB.Recordset")
FSNYT.ActiveConnection = MM_skov_conn_STRING
FSNYT.Source = "SELECT * FROM tblFSNyt ORDER BY FSNytDato DESC"
FSNYT.CursorType = 0
FSNYT.CursorLocation = 2
FSNYT.LockType = 3
FSNYT.Open()
FSNYT_numRows = 0
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF">
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr height="40" bgcolor="#990000">
<td width="3" bgcolor="#607139"> </td>
<td colspan="2" valign="bottom" bgcolor="#607139">
<% IF Len(rsDok.Fields.Item("DokTekst1Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" height="3"style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="249" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="5" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="117"> </td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" class="10_normal" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?id=<%= (rsDok.Fields.Item("DokID").Value)%>" height="180" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="117"> </td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"> <br>
<br>
<br><span class="2pixel"><br></span>
<% IF Len(rsDok.Fields.Item("DokTekst2Show").Value) <> 0 THEN %>
<% IF NOT FSNYT.EOF THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#990000" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top">
<iframe src="fsnyt.asp" height="71" width="176" name="fsnyt" frameborder="0" border="0" allowTransparency="true">
</iframe>
</td>
</tr>
</table>
</td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF
END IF %>
<br>
<br>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" olspan="2"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" valign="top" height="6" colspan="2"></td>
</tr>
</table>
</body>
<%
FSNYT.Close()
%>
<% END IF
IF rsDok("DokType") = 6 THEN %>
<%
IF Len(rsDok("DokFotoKat")) <> 0 THEN
set FotoKat = Server.CreateObject("ADODB.Recordset")
FotoKat.ActiveConnection = MM_skov_conn_STRING
FotoKat.Source = "SELECT * FROM tblFotoKat WHERE FotoKatID=" & (rsDok("DokFotoKat"))
FotoKat.CursorType = 0
FotoKat.CursorLocation = 2
FotoKat.LockType = 3
FotoKat.Open()
FotoKat_numRows = 0
END IF
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF" >
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td width="541" height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td width="270" height="294" valign="top"> <br>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="257" border="0" cellspacing="0" cellpadding="0" height="230">
<tr height="40" bgcolor="#607139">
<td width="3" bgcolor="#607139"> </td>
<td colspan="2" valign="bottom" bgcolor="#607139">
<% IF Len(rsDok.Fields.Item("DokTekst1Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>">
<% END IF %>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="3"></td>
<td height="1" width="249"></td>
<td height="1" width="5"></td>
</tr>
<tr style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<td width="3" height="3"style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="249" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
<td width="5" height="3" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"></td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="117"> </td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" class="10_normal" height="117" valign="top">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><iframe src="tekst1.asp?id=<%= (rsDok.Fields.Item("DokID").Value)%>" height="180" width="246" name="tekst1" frameborder="0" border="0" allowTransparency="true">
</iframe></td>
</tr>
</table>
</td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="117"> </td>
</tr>
<tr >
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="3" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="249" height="3"></td>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="5" height="3"></td>
</tr>
</table>
<% END IF %>
</td>
<td width="271" height="294" valign="top"> <br>
<br>
<br><span class="2pixel"><br></span>
<%
IF Len(rsDok("DokFotoKat")) <> 0 THEN
IF rsDok("DokTekst2Show") = 1 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#8EB715" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<% IF Len(rsDok("DokFotoKat")) <> 0 THEN %>
<a href="java script:popup('foto.asp?kat=<%= rsDok("DokFotoKat") %>','kal_<%= rsDok("DokFotoKat")%>','450','632');">
<% END IF %><img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" border="0" >
<% IF Len(rsDok("DokFotoKat")) <> 0 THEN %>
</a>
<% END IF %>
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal"><% IF Len(rsDok("DokTekst2")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst2").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span><br>")
END IF %> <a href="java script:popup('foto.asp?kat=<%= rsDok("DokFotoKat") %>','kal_<%= rsDok("DokFotoKat")%>','450','632');"><span class="11_fed">>> åben fotoalbum</span></a></font> </td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<br>
<% END IF
END IF %>
<%
IF rsDok("DokTekst3Show") = 1 THEN
IF Len(rsDok("DokFotoKat")) <> 0 THEN
%>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#990000" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst3Pic").Value) <> 0 THEN %>
<a href="foto/<%= FotoKat("FotoKatMappe") %>/<%= FotoKat("FotoKatRapportFil") %>" target="_blank"><img src="_tekster/<%=(rsDok.Fields.Item("DokTekst3Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst3Titel").Value)%>" border="0"></a>
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal">
<% IF Len(rsDok("DokTekst3")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst3").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span><br>")
END IF %>
<% IF LEn(FotoKat("FotoKatRapportFil")) <> 0 THEN %>
<span class="11_fed_l_gron"><a href="_foto/<%= FotoKat("FotoKatMappe") %>/<%= FotoKat("FotoKatRapportFil") %>" target="_blank"><span class="11_fed">>> download
rapport</span></a> </span><span class="10_normal">(<% strMbDiv = (FotoKat.Fields.Item("FotoKatRapportMb").Value)/1000
Response.Write FormatNumber(strMbDiv, 2)
%>
kb)</span>
<% END IF %></font> </td>
</tr>
</table>
</td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<%
END IF
END IF %>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" olspan="2"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<tr>
<td width="18" height="6"> </td>
<td width="541" valign="top" height="6" colspan="2"></td>
</tr>
</table>
</body>
<%
END IF
IF rsDok("DokType") = 8 THEN
%>
<%
set rsKal = Server.CreateObject("ADODB.Recordset")
rsKal.ActiveConnection = MM_skov_conn_STRING
rsKal.Source = "SELECT tblKal.*, tblKalKat.* FROM tblKal, tblKalKat WHERE tblKal.KalKat = tblKalKat.KalKatID AND KalShow=1 ORDER BY KalDato DESC"
rsKal.CursorType = 0
rsKal.CursorLocation = 2
rsKal.LockType = 3
rsKal.Open()
rsKal_numRows = 0
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin="0" bgcolor="#FFFFFF">
<table width="564" border="0" cellspacing="0" cellpadding="0" height="439">
<tr>
<td width="18" height="14"> </td>
<td height="14" valign="bottom" colspan="2"> </td>
</tr>
<tr>
<td width="18" height="294"> </td>
<td height="294" valign="top" width="266"> <br>
<span class="2pixel"><br>
</span>
<% IF rsDok("DokTekst1Show") = 1 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="187">
<tr>
<td style="background-color:#8EB715;" rowspan="3" width="56" valign="top" align="right"> <% IF Len(rsDok("DokTekst1Pic")) <> 0 THEN %>
<a href="open.asp?id=<%=(rsDok.Fields.Item("DivKalender").Value)%>"><img src="_tekster/<%=(rsDok.Fields.Item("DokTekst1Pic").Value)%>" alt="<%=(rsDok.Fields.Item("DokTekst1Titel").Value)%>" border="0" ></a>
<% END IF %></td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr id="myTBL" >
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" class="10_normal">
<table border="0" cellspacing="0" cellpadding="0" height="180" >
<tr id="myTBL">
<td valign="top" class="10_normal" height="163">
<% IF rsKal.EOF THEN %>
ingen arrangementer
<% ELSE %>
<iframe src="kallist.asp" height="173" width="178" name="kallist" frameborder="0" border="0" allowTransparency="true">
</iframe>
<% END IF %>
<br>
</td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40" bgcolor="#8EB715"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF %>
</td>
<td height="294" valign="top" width="280" class="2pixel"><br>
<br>
<br>
<br>
<br>
<br>
<% IF rsDok("DokTekst2Show") = 1 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#990000" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst2Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst2Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst2Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal">
<% IF Len(rsDok("DokTekst2")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst2").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span>")
END IF %>
</font> </td>
</tr>
</table>
</td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#990000;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<br>
<br>
<br><span class="2pixel"><br></span>
<% END IF
IF rsDok("DokTekst3Show") = 1 THEN %>
<table width="245" border="0" cellspacing="0" cellpadding="0" height="85">
<tr>
<td bgcolor="#8EB715" rowspan="3" width="56" valign="top" align="right">
<% IF Len(rsDok.Fields.Item("DokTekst3Pic").Value) <> 0 THEN %>
<img src="_tekster/<%=(rsDok.Fields.Item("DokTekst3Pic").Value)%>" width="56" height="43" alt="<%=(rsDok.Fields.Item("DokTekst3Titel").Value)%>" >
<% END IF %>
</td>
<td bgcolor="#FFFFFF" width="1" height="4"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1" height="40"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
<td height="40" valign="top" style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;">
<table border="0" cellspacing="0" cellpadding="0" >
<tr id="myTBL">
<td valign="top"><font color="#FFFFFF" class="10_normal">
<% IF Len(rsDok("DokTekst3")) <> 0 THEN
Response.Write replace(replace(replace(addlinks((rsDok.Fields.Item("DokTekst3").Value), "<br>"), vbcrlf, "<br>"), "£", "<span class='11_fed'>"), "$", "</span>")
END IF %>
</font> </td>
</tr>
</table>
</td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" width="4" height="40"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="1"></td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="4" colspan="3" ></td>
</tr>
</table>
<% END IF %>
</td>
</tr>
<tr>
<td width="18" height="21"> </td>
<td width="541" height="21" colspan="2"> </td>
</tr>
<tr>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="30"> </td>
<td style="background-color:#8EB715;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="47" valign="bottom" colspan="2"><% IF LEn(rsDok("DivLangLogo")) <> 0 THEN %><img id="myTBL" align="left" src="_images/<%= rsDok("DivLangLogo") %>" ><% END IF %>
<% IF Len(rsDok.Fields.Item("DivKVL").Value)<> 0 THEN %><a href="<%=(rsDok.Fields.Item("DivKVLLink").Value)%>" target="_blank"><img src="_images/<%=(rsDok.Fields.Item("DivKVL").Value)%>" align="left" id="myTBL" alt="<%=(rsDok.Fields.Item("DivKVLTitel").Value)%>" border="0"></a>
<% END IF %></td>
</tr>
<tr>
<td style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;" height="14"> </td>
<td height="14" colspan="2" style="background-color:#607139;filter:alpha(Opacity=60);-moz-opacity:0.600;"> </td>
</tr>
<tr>
<td width="18" height="24"> </td>
<td width="541" height="24" valign="bottom" colspan="2"><% IF Len(rsDok.Fields.Item("BaggrundFotograf").Value) <> 0 THEN %>
<div align="right"><span class="10_normal">foto: <%=(rsDok.Fields.Item("BaggrundFotograf").Value)%></span> </div>
<% END IF %></td>
</tr>
<tr>
<td width="18" height="6"> </td>
<td height="6" valign="top" colspan="2"></td>
</tr>
</table>
</body>
<%
rsKal.Close()
%>
<% END IF
IF rsDok("DokType") = 10 THEN
%>
<body leftmargin="0" background="_baggrund/<%= rsDok("BaggrundFil") %>" topmargin=
