billede gallery igen
hey nu troede jeg lige det hele virkede men næh nej :/ jeg har lavet en hjemmeside for min storebror www.herre-klub.dk det er ikke hele siden der er oppe da der jo er fejl... det virker fint med at gå ind i et af de album der er under gallery men det er straks sværere at gå videre til et andet album for da siger den fejl når jeg viser siden på min egen computer under iis og klikker på gallery og fx skitur og så holder musen over det næste album uden at klikke så er stien dobbelt :/ nogle der kan hælpekoden: gallery.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="en">
<head>
<style type="text/css">
.menutitle{
cursor:pointer;
margin-bottom: 5px;
width:140px;
padding:0px;
text-align:center;
font-weight:bold;
/*/*/border:0px solid #000000;/* */
}
.submenu{
}
</style>
<script type="text/javascript">
/***********************************************
* Switch Menu script- by Martial B of http://getElementById.com/
* Modified by Dynamic Drive for format & NS4/IE4 compatibility
* Visit http://www.dynamicdrive.com/ for full source code
***********************************************/
var persistmenu="yes" //"yes" or "no". Make sure each SPAN content contains an incrementing ID starting at 1 (id="sub1", id="sub2", etc)
var persisttype="sitewide" //enter "sitewide" for menu to persist across site, "local" for this page only
if (document.getElementById){ //DynamicDrive.com change
document.write('<style type="text/css">\n')
document.write('.submenu{display: none;}\n')
document.write('</style>\n')
}
function SwitchMenu(obj){
if(document.getElementById){
var el = document.getElementById(obj);
var ar = document.getElementById("masterdiv").getElementsByTagName("span"); //DynamicDrive.com change
if(el.style.display != "block"){ //DynamicDrive.com change
for (var i=0; i<ar.length; i++){
if (ar[i].className=="submenu") //DynamicDrive.com change
ar[i].style.display = "none";
}
el.style.display = "block";
}else{
el.style.display = "none";
}
}
}
function get_cookie(Name) {
var search = Name + "="
var returnvalue = "";
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset);
if (end == -1) end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset, end))
}
}
return returnvalue;
}
function onloadfunction(){
if (persistmenu=="yes"){
var cookiename=(persisttype=="sitewide")? "switchmenu" : window.location.pathname
var cookievalue=get_cookie(cookiename)
if (cookievalue!="")
document.getElementById(cookievalue).style.display="block"
}
}
function savemenustate(){
var inc=1, blockid=""
while (document.getElementById("sub"+inc)){
if (document.getElementById("sub"+inc).style.display=="block"){
blockid="sub"+inc
break
}
inc++
}
var cookiename=(persisttype=="sitewide")? "switchmenu" : window.location.pathname
var cookievalue=(persisttype=="sitewide")? blockid+";path=/" : blockid
document.cookie=cookiename+"="+cookievalue
}
if (window.addEventListener)
window.addEventListener("load", onloadfunction, false)
else if (window.attachEvent)
window.attachEvent("onload", onloadfunction)
else if (document.getElementById)
window.onload=onloadfunction
if (persistmenu=="yes" && document.getElementById)
window.onunload=savemenustate
</script>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>Herreklubben - Kun for rigtige mænd !</title>
<link rel="STYLESHEET" href="/style.css" type="text/css">
</head>
<body bgcolor="FFFFFF">
<div align="center">
<table width="750" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" width="750">
<table width="750" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="750" colspan="3">
<span style="font-size: 28px; color: #FFBA27">Herreklubben</span><span style="font-size:28px;color:FFBA27">
</span>
</td>
</tr>
<tr>
<td width="330">
<span style="font-size: 20px; color: #CCCCCC"> Kun
for rigtige mænd !</span></td>
<td width="400" align="right">
<table width="400" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right" height="20">
</td>
</tr>
</table>
</td>
<td width="20"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="15" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="CCCCCC"></td>
</tr>
<tr>
<td colspan="3" height="10" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td width="170" bgcolor="FFFFFF" valign="top">
<span style="font-size:6px"><br></span>
<div align="center">
<table width="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href="/Index.asp">Home</a></td>
</tr>
<tr>
<td>Om os</td>
</tr>
<tr>
<td height="5" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td><a href="#">
<div id="masterdiv">
<div class="menutitle" onclick="SwitchMenu('sub1')" style="width: 0px; height: 0px"><span style="font-weight: 400">Gallery</span></div>
<span class="submenu" id="sub1">
<a href="album/skitur/gallery.asp"><font size="2">Skitur 05-08-07</font></a><br>
<a href="album/fastelavn/gallery.asp"><font size="2">Fastelavn</font></a><br>
<a href="album/go-cart/gallery.asp"><font size="2">Go-cart tur</font></a><br>
<a href="album/kanotur/gallery.asp"><font size="2">kanotur</font></a><br>
</span>
</div>
</a></td>
</tr>
<tr>
<td>Billeder</td>
</tr>
<tr>
<td height="5" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td><a href="#">
<div id="masterdiv">
<div class="menutitle" onclick="SwitchMenu('sub3')" style="width: 0px; height: 18px"><span style="font-weight: 400">arragementer</span></div>
<span class="submenu" id="sub3">
<a href="/kommende.asp"><font size="2">Kommende arrangementer</font></a><br>
<a href="/gamle.asp"><font size="2">Gamle arrangementer</font></a><br>
</span>
</div>
</a></td>
</tr>
<tr>
<td>Nye og gamle arrangementer</td>
</tr>
<tr>
<td height="5" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td><a href="#">
<div id="masterdiv">
<div class="menutitle" onclick="SwitchMenu('sub2')" style="width: 0px; height: 18px"><span style="font-weight: 400">Profiler</span></div>
<span class="submenu" id="sub2">
</div>
</div>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/database.mdb")
Conn.Open DSN
strSQL = "Select * From personer Order by Fornavn Desc"
Set rs = Conn.Execute(strSQL)
Do
strLink = strLink & "<a style=""font-family:sans-serif; font-size: 13px""href='/person.asp?id=" & rs("Id") & "'>" & rs("Fornavn") & " " & rs("Efternavn") & "</a><br>"'>
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<%=strLink %>
</tr>
<tr>
<td>Om os</td>
</tr>
<tr>
<td height="5" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td><a href="/regler.asp">Regler</a></td>
</tr>
<tr>
<td>Regler i klubben</td>
</tr>
<tr>
<td height="5" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td><a href="/kontakt.asp">Kontakt</a></td>
</tr>
<tr>
<td>Hvordan du kan kontakte os</td>
</tr>
</table>
<br><span style="font-size:6px"><br></span>
<table width="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" height="1" bgcolor="AAAAAA"></td>
</tr>
<tr>
<td width="1" bgcolor="AAAAAA" rowspan="5"></td>
<td width="138" height="26" bgcolor="F9F9F9" style="color:FFBA27;font-size:14px">
<span style="font-size: 9pt"> Næste arrangement</span></td>
<td width="1" bgcolor="AAAAAA" rowspan="5"></td>
</tr>
<tr>
<td height="1" bgcolor="AAAAAA"></td>
</tr>
<tr>
<td bgcolor="FFFFFF">
<table width="138" border="0" cellpadding="7" cellspacing="0">
<tr>
<td style="color:AAAAAA">
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/neste.txt")
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" bgcolor="AAAAAA"></td>
</tr>
</table>
<span style="font-size:6px"><br></span>
</div>
</td>
<td width="1" bgcolor="CCCCCC"></td>
<td width="579" valign="top">
<span style="font-size:6px"><br></span>
<div align="center">
<br>
<table width="549" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="4" height="1" bgcolor="AAAAAA"></td>
<td width="5" height="1" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td width="1" bgcolor="AAAAAA"></td>
<td rowspan="2" colspan="2" width="542" height="27" bgcolor="F9F9F9" style="color:FFBA27;font-size:15px">
Drengene</td>
<td width="1" bgcolor="AAAAAA"></td>
<td width="5" height="4" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td width="1" bgcolor="AAAAAA"></td>
<td width="1" bgcolor="AAAAAA"></td>
<td width="5" bgcolor="F0F0F0" height="23"></td>
</tr>
<tr>
<td width="1" bgcolor="AAAAAA"></td>
<td colspan="2" height="1" bgcolor="AAAAAA"></td>
<td width="1" bgcolor="AAAAAA"></td>
<td width="5" bgcolor="F0F0F0"></td>
</tr>
<tr>
<td width="1" bgcolor="AAAAAA"></td>
<td colspan="2" bgcolor="FFFFFF">
<table width="542" border="0" cellpadding="17" cellspacing="0">
<tr>
<td style="color:999999;line-height:1.6em">
<p align="center">
<div align="center">
<table width="100%" border="0">
<%
billedeSti = "/album/skitur/"
antalBillederPrSide = 9
antalBillederPrRekke = 3
if Request.QueryString("billede") = "" then
start = request.querystring("start")
if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files
For Each billed in fc
if instr(billed.name,".asp") < 1 then arrayBuild = arrayBuild & billed.name & "|"
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td width="<%=Int(antalBillederPrRekke/100)%>"><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
else
nesteside = 1
end if
antal = antal + 1
if antal = 3 then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%>
</table>
<center>
<%
if start <> 0 then
response.write "<a href=""?start=" & (start - 6) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""?start=" & (start + 6) & """>Næste</a>"
end if
%>
</center>
<%
else
'Vis billedet
%>
<tr><td align="center">
<img SRC="<%=Request.QueryString("billede")%>" border="1" width="506" height="462">
<p align="center"><a href="java script:history.back();">Tilbage</a></p>
</td>
</tr>
</table>
<%
end if %></div>
</td>
</tr>
</table>
</td>
<td width="1" bgcolor="AAAAAA"></td>
<td width="5" bgcolor="F0F0F0"></td>
</tr>
<tr>
<td width="1" bgcolor="AAAAAA"></td>
<td colspan="2" height="1" bgcolor="AAAAAA"></td>
<td width="1" bgcolor="AAAAAA"></td>
<td width="5" bgcolor="F0F0F0"></td>
</tr>
<tr>
<td width="1" height="5" bgcolor="FFFFFF"></td>
<td width="4" height="5" bgcolor="FFFFFF"></td>
<td width="538" height="5" bgcolor="F0F0F0"></td>
<td width="1" height="5" bgcolor="F0F0F0"></td>
<td width="5" height="5" bgcolor="F0F0F0"></td>
</tr>
</table>
<br>
<span style="font-size:6px"><br></span>
</div>
</td>
</tr>
<tr>
<td colspan="3" height="10" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="CCCCCC"></td>
</tr>
<tr>
<td colspan="3" height="5" bgcolor="FFFFFF"></td>
</tr>
<tr>
<td colspan="3" bgcolor="FFFFFF" align="right">
Design by Møller.
</td>
</tr>
</table>
</div>
</body>
</html>
