Billedgalleri.. hjælp
hejsan.Jeg har følgende billed galleri, som virker fint. Bortset fra et det "store" billed ikke vil vises.. Nogen der har en ide hvorfor det ikke skulle virke?
På forhånd tak
<%
if session("login") = "" Then
Response.redirect("http://www.stibolt.nu/cms/admin/login.asp")
end if
%>
<%
Response.Expires=0.2
<!-------------- script til visning af billeder i lille ---------->
If request("action") = "" Then
Set fsoSystem = CreateObject("Scripting.FileSystemObject")
Set fsoFolders = fsoSystem.GetFolder(Server.MapPath("."))
For Each file In fsoFolders.Files
strName = LCase(File.Name)
If LCase(Right(strName,3))="jpg" Or LCase(Right(strName,3))="gif" Then
%>
<p style="float:left; width:28%; margin-right:2%; padding:10px">
<a href="galleri.asp?action=vis&fil=<%=strName%>">
<img src="<%=strName%>" width="180" style="border-style: solid; border-width:1; border-color: black">
</a>
<br>
</p>
<%
End If
Next
Set fsoFolders = Nothing
Set fsoSystem = Nothing
End If
%>
<!------- Script til visning af billeder i stort format ----->
<%
If request("action") = "vis" Then
%>
<center>
<img scr="<%= request("fil")%>" width="400" style="border-style: solid; border-width: 1; border-color: black">
<br><br>
<a href="galleri.asp"><< tilbage</a>
<%
End If
%>
