Detta script gör thumbnails av stora bilder. Man ska kunna välja vecka i en scroll list. Problemet är att mappen som man väljer inte hittar bilderna i den utan det blir ett kryss istället för bild.
jag hamnar allstå utanför mappen jag vill till??
<%
If Request.QueryString("do") = "" Then
Dim FSO
Dim Files
Dim File
Dim Count
Dim vFolder ' skapa variabel
vFolder = Request("folder") ' hämta mappnamnet
Const Columns = 2
Const ImageWidth = 100
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(Server.MapPath("./" & vFolder)).Files ' lägg in variabel
Set FSO = Nothing
Response.Write "<TABLE width=""200px"" border=""0"" cellspacing=""0"">"
Response.Write "<TR>"
Count = 0
For Each File In Files
Select Case LCase(Right(File.Name, 3))
Case "jpg", "gif", "bmp", "png"
Count = Count + 1
if Count Mod Columns = 1 Then Response.Write "</TR><TR>"
Response.Write "<TD align=""center"" valign=""top"">"
Response.Write "<A href=""vanster.asp?image=" & File.Name & """ target=""vanster"" >"
Response.Write File.Name
Response.Write "<BR><IMG src=""" & File.Name & """ border=""2"" width=""" & ImageWidth & """></a><BR>"
Response.Write "</TD>"
End Select
Next
Response.Write "</TR>"
Response.Write "</TABLE>"
Set File = Nothing
Set Files = Nothing
ElseIf Request.QueryString("do") = "delete" Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath(Request.QueryString("bild"))) Then
objFSO.DeleteFile(Server.MapPath(Request.QueryString("bild")))
End If
Set objFSO = Nothing
Response.Redirect("?do=")
End If
%></p><div align="center">
<form name="form1" method="post" action="hoger.asp">
<select name="folder" onChange="document.form1.submit();">
<option selected>Välj vecka</option>
<option value="20">Vecka 20</option>
<option value="21">Vecka 21</option>
<option value="22">Vecka 22</option>
<option value="23">Vecka 23</option>
</select>
</form></div>