Billedgalleri der indsætter alle billeder fra en mappe
Hej allesammen,jeg har tidligere fået hjælp til at sammensætte koden som bliver vist herunder... Koden gør i sit simple at der bliver vist en liste over nogle mapper og når man trykker på det link (som har navn efter en mappe) så kommer der en liste med alle billederne som er i mappen.......
Mappelisten er placeret på "A" og Listen med billeder er placeret på "B"...
Hvordan gør jeg sådan at før man overhovedet trykker på noget, der hvor der kun er listen med mapperne, hvordan gør jeg så sådan at jeg kan skrive der hvor billederne senere vil komme (placering B).... Dvs at når man først kommer ind på siden så er der i midten en tekst og i højre side der er der listen med mappperne... når man så trykker på en af navnene i mappelisten, så kommer billederne frem og den tekst (som er en slags forsiden til billede arkivet) forsvinder.....
(hele asp filens indhold kommer lige herunder)
<%
if request.querystring("execute") ="popup" then
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>Velkommen til Slyngelstuens Billedarkiv</title>" & vbCrLf &_
"<STYLE type=text/css>A:link {" & vbCrLf &_
"COLOR: #ffffff; TEXT-DECORATION: none" & vbCrLf &_
"}" & vbCrLf &_
"A:visited {" & vbCrLf &_
"COLOR: #ffffff; TEXT-DECORATION: none" & vbCrLf &_
"}" & vbCrLf &_
"A:active {" & vbCrLf &_
"COLOR: #ffffff; TEXT-DECORATION: none" & vbCrLf &_
"}" & vbCrLf &_
"A:hover {" & vbCrLf &_
"COLOR: #ffffff; TEXT-DECORATION: underline" & vbCrLf &_
"}" & vbCrLf &_
"</STYLE>" & vbCrLf &_
"<body bgcolor='#5B2900'>" & vbCrLf &_
"<script>" & vbCrLf &_
"function resizeMe(){" & vbCrLf &_
"if (navigator.appName == 'Netscape'){" & vbCrLf &_
"adjWidth = document.images[""0""].width + 6;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 27;" & vbCrLf &_
"}" & vbCrLf &_
"else {" & vbCrLf &_
"adjWidth = document.images[""0""].width + 100;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 150;" & vbCrLf &_
"}" & vbCrLf &_
"window.resizeTo(adjWidth, adjHeight);" & vbCrLf &_
"window.focus()" & vbCrLf &_
"}" & vbCrLf &_
"</script>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body margin='0' onLoad=""resizeMe();"">" & vbCrLf &_
"<table style='width:100%;height:100%;'>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>" & vbCrLf &_
"<img src='"&request.querystring("id")&"' name=""0"" id='0' border='0'>" & vbCrLf &_
"</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='text-align:center;'><a href='java script:window.close();'><font face='Verdana' size='1'>--Luk vinduet--</font></a></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf &_
"</body>" & vbCrLf &_
"</html>" & vbCrLf
else
%>
<HTML>
<SCRIPT LANGUAGE="JavaScript">
<!--
function openWin( windowURL, windowName, windowFeatures ) {
return window.open( windowURL, windowName, windowFeatures ) ;
}
function Popit(url) {
popupWin = window.open(url,'new_page','width=500,height=400,scrollbars=no');
}
// -->
</SCRIPT>
<HEAD>
<TITLE>Slyngelstuen - Ikke for sarte sjæle...</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<STYLE type=text/css>A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
</STYLE>
<SCRIPT LANGUAGE=JAVASCRIPT>
<!--
var ugeDag = new Array ("Søndag","Mandag","Tirsdag",
"Onsdag","Torsdag","Fredag","Lørdag")
var maaned = new Array ("januar","februar","marts",
"april","maj","juni","juli","august","september",
"oktober","november","december")
var nu = new Date
//-->
</SCRIPT>
<head>
<title>Slyngelstuen.dk "Forside"</title>
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" text="#FFFFFF" bgcolor="#000000">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="743" id="AutoNumber1">
<tr>
<td width="800" height="110" colspan="3" valign="top">
<img border="0" src="gfx/toplogo_top.jpg"></td>
</tr>
<tr>
<td width="648" height="21" colspan="2" bgcolor="#000000">
<img border="0" src="gfx/toplogo_buttom_left.jpg"></td>
<td width="152" bgcolor="#000000" background="gfx/toplogo_buttom_right.jpg">
<p align="center"><font face="Verdana" size="1">
<SCRIPT LANGUAGE=JAVASCRIPT>
<!--
document.write(ugeDag[nu.getDay()]
+ " den " + nu.getDate() + ". " + maaned[nu.getMonth()])
//-->
</SCRIPT></font></p></td>
</tr>
<tr>
<td width="800" height="1" colspan="3" bgcolor="#5B2900"></td>
</tr>
<tr>
<td width="163" height="19" bgcolor="#5B2900" valign="top"> </td>
<td width="485" height="12" bgcolor="#5B2900" valign="top"> </td>
<td width="152" height="19" bgcolor="#5B2900" valign="top"> </td>
</tr>
<form name="form1" method="post" action="tjek.asp">
<tr>
<td width="163" height="499" bgcolor="#5B2900" valign="top"><b><font face="Verdana" size="1" color="#FFFFFF">
<%
If Session("Niveau") = 1 then
Server.Execute("adminmenu.asp")
End if
If Session("Niveau") = 2 then
Server.Execute("brugermenu.asp")
End if
If Session("Niveau") = "" then
Server.Execute("menu.asp")
End if
%>
</font></td>
<td width="485" height="499" bgcolor="#5B2900" valign="top">
<%
sti = "./gfx/BilledArkiv/"
BilledArkiv = sti & request("BilledArkiv")
strPathInfo = sti
%>
<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="480" id="AutoNumber1">
<tr>
<%
SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(BilledArkiv)
If BilledArkiv > " " then
BilledArkiv = Replace(BilledArkiv, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
ShowPic = Replace(objFileItem.Name, " ", "%20")
' finder længden af filnavnet og skærer dens extension væk
intLength = len(objFileItem.Name)
strText = left(objFileItem.Name,intLength-4)
Response.write "<td align='center' width='25%'>"
Response.Write "<a href=""java script: Popit('"&SiteName&"?execute=popup&id="&BilledArkiv & "\\" & objFileItem.Name&"')""><img src='"&BilledArkiv & "\" & objFileItem.Name&"' border='0' style='width:200px;;height:150px;'>" & "<br></a><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & strText & "</font>"
Response.write "</a><p></td>"
PictureNo = PictureNo + 1
If PictureNo=2 Then
Response.write "</tr><tr>"
PictureNo = 0
End if
End if
Next
Set objFSO = Nothing
End if
%>
</tr>
</table>
</td>
<td width="152" height="499" bgcolor="#5B2900" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td align="center" width="15%">
</td>
<td align="left" width="85%">
<font face="Verdana" size="1"><a href="java script: newWindow = openWin( 'upload_default.asp', 'newWindow', 'width=500,height=450,toolbar=0,location=0,directories=0,status=0,menuBar=0,scrollBars=0,resizable=0,left = 350,top = 250' ); newWindow.focus()"><font face="Verdana" size="1" color="#FFFFFF">Tilføj billede(r)</font></a><hr><b>Vælg begivenhed :</b></font><p>
<font face="Verdana" size="1">
<%
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
' Set objFolderContents = objFolder.Files
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Fields.Append "Name", 200, 50
objRS.Fields.Append "DateLastmodified", 7, 9
objRS.Open
For each Folder in objFolder.SubFolders
objRS.Addnew
objRS("Name") = Folder.Name
objRS("DateLastmodified") = Folder.DateLastModified
objRS.Update
Next
objRS.Sort = "DateLastmodified DESC, Name"
while Not objRS.EOF
Response.Write "<a href=""" & CurFile & "?BilledArkiv="
Response.Write(Replace(objRS.Fields("Name"), " ", "%20"))
response.write """>"
Response.Write objRS.Fields("Name")
Response.Write "<br>"
objRS.MoveNext
wend
objRS.Close
Set objRS = Nothing
Set objFSO = Nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</form>
<tr>
<td width="163" height="19" bgcolor="#5B2900" valign="top"> </td>
<td width="485" height="15" bgcolor="#5B2900" valign="top">
</td>
<td width="152" height="15" bgcolor="#5B2900" valign="top">
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
end if
%>
