Hittade ett script där man listar filer i en mapp som jag tänkte använda för att visa bilder. i original-scriptet kan man klicka på bilderna för att visa dem i full storlek, bilderna visas då i ett popup-fönster. Jag villHjälp med felsök
inte använda popup-fönster och tänkte istället ha info om bilderna i en databas som presenteras ihop med bilden.
Nu har jag lagt ett antal timmar utan att få det att funka.
Får det att funka med originalscriptet men inte med mina ändringar,
sidan blir bara vit och koden blir
<html>
<head>
<title>Mickes Galleri</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="robots" content="nofollow">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="5" marginwidth="0" marginheight="5">
</table>
</HTML>
Någon som kan ge tips på vad som är fel?
Original script:
<%
'#######Antal thumbs på rad#######
Antal = 6
'#######Mappen som du vill lista bilder i#######
MappNamn = "photos"
'#######Bredd och höjd på thumbbilden#######
height = "50"
width = "50"
%>
<script language="javaScript">
function Show(filename,winTitle)
{
var myImage = new Image();
myImage.src=filename;
properties='height=360,width=480';
var imgWindow = window.open('','',properties);
html = '<html>';
html += '<head>';
html += '<title>'+winTitle+'</title>';
html += '</head>';
html += '<body topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">';
html += '<img src="'+myImage.src+'" name="bild" OnClick="self.close();">';
html += '</body>';
html += '</html>';
imgWindow.document.write(html);
}
</script>
<link rel="stylesheet" href="stil.css" type="text/css">
<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<table width="400" border="0" ALIGN="CENTER"> <%If Mapp.Files.Count = 0 Then%>
<tr> <td>Inga bilder finns</td></tr> <%Else
x=0
For Each File In Mapp.Files
If x = Antal Then
Response.Write "<tr>"
x = 0
End If%> <td width="16%" valign="top"></td><%X=X+1
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%> <td width="16%"> </td><%Next
Response.Write "</tr>"
End If
End If%> </table>
Mitt script:
<%@ Language=VBScript %>
<!-- #Include File="adovbs.inc" -->
<html>
<head>
<title>Mickes Galleri</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="robots" content="nofollow">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="5" marginwidth="0" marginheight="5">
<%
'#######Antal thumbs på rad#######
Antal = 6
'#######Mappen som du vill lista bilder i#######
MappNamn = "photos"
'#######Bredd och höjd på thumbbilden#######
height = "45"
width = "45"
%>
<%If Request.Querystring("section")="showpic" then%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb"))
%>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM photos WHERE ID = " & Trim(Request.QueryString("Bild")) & " "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<INPUT TYPE="hidden" NAME="NYID" VALUE="<% =Request.QueryString("bild") %>">
<table border="0" width="400"> <tr> <td> <img src="photos/<%=RecSet("Bild")%>.jpg" border="0" alt="<%=RecSet("Bildtext")%>" align="LEFT">
<P> <%=RecSet("text")%> </td></tr> </table><P>
<%
RecSet.Close
Connect.Close
Set Connect = Nothing
%>
<table width="400" border="0">
<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(Mappnamn))%> <%If Mapp.Files.Count = 0 Then%>
<tr><td>Inga bilder finns</td></tr> <%Else
x=0
For Each File In Mapp.Files
If x = Antal Then
Response.Write "<tr>"
x = 0
End If%> <td width="16%" valign="top"> </td><%X=X+1
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%> <td width="16%"> </td>
<%Next
Response.Write "</tr>"
End If
End If
End If%> </table>
</body>
</HTML>