Hvad fejler på denne side?
<%Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news2.mdb") & ";UID=admin;PWD=;"
If Request.Form("Gem") <> "" Then
strNavn = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM news WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Overskrift") = strNavn
rs("Kommentar") = strKommentar
rs("Dato") =Date()
rs.Update
End If
rs.Close
Set rs = Nothing
End If
%>
<html>
<head>
<title>AIDA Intranet</title>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
NS4 = (document.layers);
IE4 = (document.all);
ver4 = (NS4 || IE4);
isMac = (navigator.appVersion.indexOf("Mac") != -1);
isMenu = (NS4 || (IE4 && !isMac));
function popUp(){return};
function popDown(){return};
if (!ver4) event = null;
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
<!--
if (isMenu) {
menuVersion = 3;
menuWidth = 130;
childOverlap = 50;
childOffset = 5;
perCentOver = null;
secondsVisible = .5;
fntCol = "#000000";
fntSiz = "10";
fntBold = false;
fntItal = false;
fntFam = "sans-serif";
backCol = "#DDDDDD";
overCol = "#FFCCCC";
overFnt = "#FFFFFF";
borWid = 0;
borCol = "black";
borSty = "solid";
itemPad = 3;
imgSrc = "images/pil.gif";
imgSiz = 10;
separator = 1;
separatorCol = "red";
isFrames = false; // <-- IMPORTANT
navFrLoc = "left";
keepHilite = true;
NSfontOver = true;
clickStart = false;
clickKill = true;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
<!--
if (isMenu) {
document.write("<SCRIPT LANGUAGE='JavaScript1.2' SRC='hierArrays.js'><\/SCRIPT>");
document.write("<SCRIPT LANGUAGE='JavaScript1.2' SRC='hierMenus.js'><\/SCRIPT>");
}
//-->
</SCRIPT>
<style type="text/css">
<!--
.tabeltext { font-family: Arial, Helvetica, sans-serif; font-size: 11px; line-height: normal}
-->
</style></head>
<body bgcolor="#000000">
<table width="700" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" align="center">
<tr>
<td><img src="images/top_logo1.jpg" width="251" height="61"><img src="images/top_logo2.gif" width="304" height="61"><img src="images/top_logo3.gif" width="145" height="61"><br>
<table width="700" border="0" cellpadding="0" cellspacing="0" name="Help line" height="18">
<tr>
<td width="259" bgcolor="#C2B26A" height="18">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2">Den
Sociale Ankestyrelses Intranet</font></div>
</td>
<td width="224"><img src="images/rh_corner.gif" width="5" height="19" align="absbottom"></td>
<td width="22"> </td>
<td width="37" bgcolor="#C2B26A"><img src="images/lh_corner.gif" width="5" height="18"></td>
<td width="49" bgcolor="#C2B26A">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2">Hjem</font></div>
</td>
<td width="61" bgcolor="#C2B26A">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2">Links</font></div>
</td>
<td width="48" bgcolor="#C2B26A">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2">Hjælp</font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td height="182">
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="128" bgcolor="#EFEAD6" valign="top">
<p><a href="#" onMouseOver="popUp('elMenu2',event)"
onMouseOut="popDown('elMenu2')"><img src="images/menu_but1.jpg" width="128" height="44" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu1',event)"
onMouseOut="popDown('elMenu1')"><img src="images/menu_but2.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu3',event)"
onMouseOut="popDown('elMenu3')"><img src="images/menu_but3.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu4',event)"
onMouseOut="popDown('elMenu4')"><img src="images/menu_but4.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu5',event)"
onMouseOut="popDown('elMenu5')"><img src="images/menu_but5.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu6',event)"
onMouseOut="popDown('elMenu6')"><img src="images/menu_but6.jpg" width="128" height="17" border="0"></a></p>
<form method="post" action="">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2" color="#C2B26A">
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2" color="#C2B26A"><b><font color="#000000">Simpel
søgning</font></b></font></div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="text" name="textfield" size="14">
</div>
</td>
</tr>
</table>
</div>
</form>
</td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" height="35">
<p><img src="images/terner.jpg" width="30" height="30"></p>
<p> </p>
</td>
</tr>
<tr>
<td width="141" valign="top">
<table width="120" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="5"><img src="images/lh_corner.gif" width="5" height="18"></td>
<td bgcolor="#C2B26A" width="110" height="15">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><b>Nyt
på AIDA</b></font></div>
</td>
<td width="5"><img src="images/rh_corner.gif" width="5" height="18"></td>
</tr>
<tr bgcolor="#EFEAD6">
<td width="110" colspan="3"><font face="Arial, Helvetica, sans-serif">
</font><font size="1" face="Arial, Helvetica, sans-serif" class="tabeltext">
Herunder kan du se de seneste opdateringer på AIDA </font></td>
</tr>
<tr bgcolor="#EFEAD6">
<td colspan="3"><img src="images/tabel_bottom.gif" width="120" height="19"></td>
</tr>
</table>
<p> </p>
<table width="120" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="5" height="16"><img src="images/lh_corner.gif" width="5" height="18"></td>
<td height="16" bgcolor="#C2B26A" width="110">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><b>Nyt
på AIDA</b></font></div>
</td>
<td width="5" height="16"><img src="images/rh_corner.gif" width="5" height="18"></td>
</tr>
<tr bgcolor="#EFEAD6">
<td width="10" colspan="3"> </td>
</tr>
<tr>
<td width="10" colspan="3"><img src="images/tabel_bottom.gif" width="120" height="19"></td>
</tr>
</table>
<p> </p>
</td>
<td width="198" valign="top">
<table width="185" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" bgcolor="#C2B26A"><img src="images/lh_corner.gif" width="5" height="18"></td>
<td bgcolor="#C2B26A">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><b>Aktuelt</b></font></div>
</td>
<td width="5" bgcolor="#C2B26A"><img src="images/rh_corner.gif" width="5" height="18"></td>
</tr>
<tr bgcolor="#EFEAD6">
<td width="5" height="73" bgcolor="#EFEAD6"> </td>
<td width="175" height="73" valign="top"><font face="Arial, Helvetica, sans-serif" size="2"><b>Kritik
af styrelsen</b></font><br>
<font size="1" face="Arial, Helvetica, sans-serif"><img src="images/teaser_pic1.jpg" width="73" height="91" align="right"><font size="2" class="tabeltext">Karen
Sejersdal Christensen orienterer i dag styrelsens medarbejdere
om de seneste ugers kritik af den sociale ankestyrelse.
</font> </font></td>
<td height="73" width="5" bgcolor="#EFEAD6"> </td>
</tr>
<tr bgcolor="#EFEAD6">
<td width="5" colspan="3"><img src="images/tabel_bund2.jpg" width="185" height="17"></td>
</tr>
</table>
<br>
<table width="185" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="5"><img src="images/lh_corner.gif" width="5" height="18"></td>
<td bgcolor="#C2B26A" width="175">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><b>Support</b></font></div>
</td>
<td width="5"><img src="images/rh_corner.gif" width="5" height="18"></td>
</tr>
<tr>
<td width="5" bgcolor="#EFEAD6"> </td>
<td bgcolor="#EFEAD6" width="175"><font size="2" face="Arial, Helvetica, sans-serif"><b>555
- hotline</b></font><br>
<span class="tabeltext"><img src="images/teaser_pic2.jpg" width="63" height="62" align="right">Husk
at ringe 555 når du har knas med din PC.</span></td>
<td width="5" bgcolor="#EFEAD6"> </td>
</tr>
<tr>
<td width="10" colspan="3"><img src="images/tabel_bund2.jpg" width="185" height="17"></td>
</tr>
</table>
<p> </p>
</td>
<td width="14" valign="top">
<table width="2" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#C2B26A">
<td height="250"></td>
</tr>
</table>
<div align="center"></div>
</td>
<td width="216" valign="top"><img src="images/kalender_p1.jpg" width="25" height="41"><img src="images/kalender_p2.jpg" width="45" height="41"><br>
<img src="images/kalender_p3.jpg" width="18" height="137"></td>
</tr>
</table>
</td>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#C2B26A">
<td height="16">
<p align="center></p>
</td>
</tr>
</table>
<table width="120" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="120" height="10" bgcolor="#EFEAD6"><font face="Arial" size="2" color="Black">Aktivitetskalender</font></td></tr>
<tr><td width="120">
<font face="Arial" style=font-size:11px color="Black">Herunder kan du se de seneste opdateringer på AIDA </font></td>
</tr>
<tr align="center">
<td width="100%"><%
Select Case strMode
Case "add"
%>
<%
Case Else
Set myConn = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT top 5 * FROM news ORDER BY Dato DESC;"
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table border=0 cellpadding=3 cellspacing=0>"
Do While Not rs.EOF
Select Case weekday(rs("Dato"))
case 1 dag = "Søndag"
case 2 dag = "Mandag"
case 3 dag = "Tirsdag"
case 4 dag = "Onsdag"
case 5 dag = "Torsdag"
case 6 dag = "Fredag"
case 7 dag = "Lørdag"
End Select
Select Case month(rs("Dato"))
case 1 maaned = " /1 "
case 2 maaned = " /2 "
case 3 maaned = " /3 "
case 4 maaned = " /4 "
case 5 maaned = " /5 "
case 6 maaned = " /6 "
case 7 maaned = " /7 "
case 8 maaned = " /8 "
case 9 maaned = " /9 "
case 10 maaned = " /10 "
case 11 maaned = " /11 "
case 12 maaned = " /12 "
End Select
Response.Write "<tr><td><font face=arial size=2><B>" & dag & " d. " & day(rs("Dato")) & maaned & "</B></td></tr>"
'response.write year(rs("Dato"))
Response.Write "<tr><td><font face=arial style=font-size:11px>" & rs("kommentar") & "<br> </td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p><font face=arial size=2>Der er endnu ikke nogle nyheder i databasen endnu</font></p>"
End If
myConn.Close
Set myConn = Nothing
End Select
%>
</td>
</tr>
</table></body>
</html>
