Ttilføj en "højre bjælke" på eksisterende kode
Hey venner,jeg har en helt uoverskuelig kode som jeg prøver på at oprette en "højre bjælke" på så det kan bruges som en ekstra menu..
er der lige en der kan hjælpe lidt nu hvor jeg er kørt fast?
koden:
<%
'Option Explicit
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-control", "private"
Response.AddHeader "Expires", "Fri, 31 May 1996 18:30:14 GMT"
Session.LCID = 1036
Dim db, rs, rs2, rs3
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set db = Server.CreateObject("ADODB.Connection")
db.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/xx.mdb"))
'db.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/xx.mdb"))
%>
<HTML>
<head>
<link rel="shortcut icon" href="/images/icon.ico" />
<title></title>
<link rel="stylesheet" href="default.css" type="text/css">
</head>
<body style='margin:0px;'>
<script language="JavaScript">
<!--
document.body.style.scrollbarBaseColor='#ffffff'
document.body.style.scrollbarArrowColor='#7C9577'
document.body.style.scrollbarDarkShadowColor='#AEC1AD'
document.body.style.scrollbarFaceColor='#b3c6b2'
document.body.style.scrollbarHighlightColor='#eeeeee'
document.body.style.scrollbarShadowColor='#A2B5A1'
document.body.style.scrollbar3dlightColor='#ffffff'
-->
</script>
<base target='_self'>
<!-- ********************************* START PÅ DROPDOWN-MENUER ************************************* -->
<%
'For i = 1 To menuCount
' Response.Write("<DIV id='drop" & i & "' class='dropdown' style='center:1px;' onmouseMove='f7_showdrop(" & (i-1) & ")'>")
' For j = 1 To 5
' Response.Write("• <A href='forside.html' class='dropitem'> Undermenupunkt " & i & "," & j & "</A><BR>")
' Next
' Response.Write("</DIV>")
'Next
%>
<!-- *********************************** SLUT PÅ DROPDOWN-MENUER ************************************ -->
<script language='javascript'>
function openMenu(menu, menucount)
{
var tmpstr = "";
for(i=1; i<=menucount;i++)
{
if(i==menu)
{
if(eval("submenu_" + i + ".style.display == \"block\";"))
tmpstr = "submenu_" + i + ".style.display = \"none\";";
else
tmpstr = "submenu_" + i + ".style.display = \"block\";";
}
else
{
tmpstr = "submenu_" + i + ".style.display = \"none\";";
}
eval(tmpstr);
}
}
function zoom(unit)
{
if(document.body.style.zoom != 0)
document.body.style.zoom *= unit;
else
document.body.style.zoom = unit;
}
window.status = 'xxxxxx.dk';
</script>
<div class='hovedside' style="width:100%;">
<center>
<table width=100% cellpadding='0' cellspacing='0' style='height:100%;' border=0>
<tr>
<td valign=top style='border-left:1px solid #111111;border-right:1px solid #111111;'>
<table width='100%' height='100%' cellpadding='2' cellspacing='0'>
<tr>
<!--70816E 7F9F76 -->
<td bgcolor='#9DC193' colspan='3' style='background-image:url('albg.jpg');background-repeat:no-repeat;height:120px' valign='top' align='center'>
<!--****** BANNER START******-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td width="41%">
<br>
<h1 style='margin-bottom:0px;'><font size=16 face='Verdana'>xxxxx.dk</font></h1>
<div style='color:#587350;padding-left:100px;font-weight:bold;'><font size=5 face='Verdana'>Navn Efternavn</font></div>
</td>
<td width="200">
<!--#include file="databaseforbindelse.asp"-->
<%
strSQL = "Select * from slideshow where id = 7 "
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs_synlig_tjek = Conn.Execute(strSQL)
if rs_synlig_tjek("synlig") = "1" then
%><!--#include file="slideshow.asp"--><%
end if
%>
</td>
</tr>
</table>
<!-- ******BANNER SLUT******-->
</td>
</tr>
<!--****** MARQUEE & BILLED TEKSRT START******-->
<tr>
<td class="marquee" colspan=3 height=15>
<!--#include file="marquee.asp" -->
</td>
</tr>
<!--****** MARQUEE & BILLED TEKSRT SLUT ******-->
<!-- ******* START PÅ DIN MENU ******* -->
<tr>
<td valign='top' width='135' style='padding:0px;'>
<br><br>
<style>
.menustyle{filter:alpha(opacity=75);border:1px solid #555555;}
.menuitemstyle{padding:2px;font-size:8pt;font-family:Verdana;font-weight:bold;background-color:#7F9F76;border-bottom:1px solid #555555;color:#000000;cursor:hand;filter:alpha(opacity=70);}
.menuitemstyleover{padding:2px;font-size:8pt;font-family:Verdana;font-weight:bold;background-color:#C6D7C5;border-bottom:1px solid #555555;border-right:1px solid #555555;color:#000000;cursor:hand;filter:alpha(opacity=100);}
</style>
<table style='border:0px solid #333333;background-image:url('albg_menu.jpg');' width='130' cellpadding='0' cellspacing='0'>
<tr><td style='padding:0px;'>
<div class='menustyle' style='width:130px;'>
<%
'Response.Write("<table width='100%' cellpadding='0' cellspacing='0'>")
'For i = 1 To menuCount
'Response.Write("<tr><td class='menuitemstyle' onMouseMove=""this.className='menuitemstyleover';f7_showdrop(" & (i-1) & ")"" onMouseOut=""this.className='menuitemstyle';f7_hidedrop()"" width='100%'>")
' Response.Write("<tr><td class='menuitemstyle' onMouseMove=""f7_showdrop(" & (i-1) & ")"" width='100%'>")
' Response.Write("<img src='menuarrow.gif' align='absmiddle' border='0'> Menupunkt " & i)
' Response.Write("</td>")
' Response.Write("<td align='right' class='menuitemstyle' valign='bottom'><img src='menudot.gif'></td>")
' Response.Write("</tr>")
'If i < menuCount Then
' Response.Write("<div style='height:2px;font-size:0px;'></div>")
'End If
'Next
'Response.Write("</table>")
Set rs = db.Execute("SELECT ID,Menupunkt,(SELECT Count(*) FROM Menu) AS menuCount FROM Menu ORDER BY Placering ASC;")
Response.Write("<table width='100%' cellpadding='0' cellspacing='0'>")
Dim i, target, klik
i = 0
Do While Not rs.EOF
i = i + 1
Set rs2 = db.Execute("SELECT Undermenupunkt,Link FROM Undermenu WHERE MenupunktId=" & rs("ID") & " ORDER BY Placering ASC;")
'If rs2.BOF Then
klik = "onClick=''"
'Else
klik = "OnClick='openMenu(" & i & "," & rs("menuCount") & ")'"
'End If
Response.Write("<tr><td class='menuitemstyle' " & klik & " onMouseOver=""this.className='menuitemstyleover';"" onMouseOut=""this.className='menuitemstyle';"" width='100%'>")
Response.Write("<img src='menuarrow.gif' align='absmiddle' border='0'> " & rs("Menupunkt"))
Response.Write("</td>")
Response.Write("<td align='right' class='menuitemstyle' valign='bottom'>")
If rs2.BOF Then
Response.Write(" ")
Else
Response.Write("<img src='menudot.gif'>")
End If
Response.Write("</td>")
Response.Write("</tr><tr><td colspan='2'><div id='submenu_" & i & "' style='font-family:tahoma;font-size:7pt;padding:3px;padding-right:0px;display:none;'>")
Do While Not rs2.EOF
If InStr(1, LCase(rs2("Link")), "http://") Then
target = "target='_blank'"
Else
target = ""
End If
Response.Write("• <a href='" & rs2("Link") & "' " & target & ">" & rs2("Undermenupunkt") & "</a><br>")
rs2.MoveNext()
Loop
Response.Write("</div>")
Response.Write("</td></tr>")
rs.MoveNext()
Loop
Response.Write("</table>")
%>
</div>
</td>
<td></td>
</tr>
</table>
<!-- ******* SLUT PÅ DIN MENU ******* -->
<br>
<div style='width:130px;padding:5px;padding-bottom:3px;background-color:#E4EEE1;border:1px solid #D0DBCD;border-left:0px;'>
<%
if session("login") = "JA" then
response.write "<table align='left' border='0' cellspacing='0' cellpadding='1'>"
response.write "<tr><td width='100'><p>Logget ind:</td></tr><tr><td align='center'><b>" & session("bruger") & "</b></td></tr><form method='post' action='logind.asp?side=logud'>"
response.write "<tr><td align='center'><br><input type='submit' value='Log ud' style='border:1px solid #484846;font-family: verdana; font-size: 8pt; font-weight: bold'></form></td></tr><tr><td><a class='links1' href='profil.asp?side=velkommen'>Profilsiden</a></td></tr></table><br><br>"
else
%>
<table align='left' border='0' cellspacing='0' cellpadding='1'><form method='post' action='logind.asp?side=logind_tjek'>
<tr><td width='100' align='left' valign='middle'><p>Brugernavn:</p></td></tr>
<tr><td><input type='text' name='bruger' size='15' style='border:1px solid #484846; font-family: verdana; font-size: 8pt;'></td></tr>
<tr><td align='leftt'><p>Kode:</p></td></tr>
<tr><td><input type='password' name='kode' size='15' style='border:1px solid #484846; font-family: verdana; font-size: 8pt;'></td></tr>
<tr><td align='center' valign='middle'><input type='submit' value='Log ind' style='border:1px solid #484846;font-family: verdana; font-size: 8pt; font-weight: bold'></form></td></tr>
<tr><td><a class='links1' href='logind.asp?side=nybruger'>Ny bruger?</a></td></tr><tr><td><a class='links1' href='logind.asp?side=glemt_kode'>Glemt din kode?</a></td></tr></table><br><br><br>
<%
end if
%>
</div>
<br><div style='width:130px;padding:5px;padding-bottom:5px;background-color:#E4EEE1;border:1px solid #D0DBCD;border-left:0px;'>
<a class='links1' href='mailto:knud@collies.dk?subjekt=Vedr. Collies.dk'> Kontakt Collies.dk</a>
</div><br>
<div style='width:130px;padding:5px;padding-bottom:5px;background-color:#E4EEE1;border:1px solid #D0DBCD;border-left:0px;'>
<a class='links1' href='gbog.asp'>Gæstebog</a>
</div><br>
<div style='width:130px;padding:5px;padding-bottom:5px;background-color:#E4EEE1;border:1px solid #D0DBCD;border-left:0px;'>
<a class='links1' href='anbefal_siden.asp?side=anbefal'>Anbefal siden</a>
</div><br>
<div style='width:130px;padding:5px;padding-bottom:5px;background-color:#E4EEE1;border:1px solid #D0DBCD;border-left:0px;'>
<p align='center'>Sidst opdateret:<br>
<!--include virtual="databaseforbindelse.asp"-->
<!--#include file="databaseforbindelse.asp"-->
<%
strSQL = "Select TOP 1 * from opdateret order by id desc "
Set rs_opd = Conn.Execute(strSQL)
response.write rs_opd("dag") & "." & rs_opd("maned") & "." & rs_opd("aar") & " <br>Kl. " & rs_opd("tid_time") & ":" & rs_opd("tid_minut")
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<br><br>
<!-- Chart Basis HTML kode start v003 -->
<script language="javascript" type="text/javascript">
<!--
document.write('<a href="http://www.chart.dk/ref.asp?ct=v003&id=98260" target="_blank">');
var myref; myref=document.referrer; if(top.document.referrer!=null) myref=top.document.referrer;
document.write('<img src="http://cluster.chart.dk/chart.asp?id=98260&style=11&secID=' + Math.random()*10000000 + '&ref=' + escape(myref) + '" border="0" alt="Chart.dk"><');
document.write('/a>');
//-->
</script>
<noscript>
<a href="http://www.chart.dk/ref.asp?ct=v003&id=98260" target="_blank"><img src="http://cluster.chart.dk/chart.asp?id=98260&style=11&secID=1" border="0" alt="Chart.dk"></a>
</noscript>
<!-- Chart Basis HTML kode slut v003 -->
</p>
</div>
<br>
</td>
<td valign='top' style='padding:0px;height:100%;'>
<div class='underside'>
