Detta är sidan husshow.asp: Var tar thumbsen vägen? första gången jag går in på sidan visas thumbsen, men när jag klickar på en av dom visas sidan utan thumbs - Varför??
[B] MASSA HTMLKOD [/B] <%
set fso = server.createobject("scripting.filesystemobject")
set folder =fso.getfolder(Server.Mappath("bild"))
for each fo in folder.subfolders
response.write "<td width='100' valign='top' scope='col'>" & fo.name & "<br><a class='thumb' href='husshow.asp?obj=" & fo.name & "'><img src=""bild/" & fo.name & "/th_main.jpg""></a><br></td>"
Next
%>
</tr>
</table>
</div>
</div>
<% 'här laddas thumbsen
foname = request.querystring("obj")
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject")
Set Folder2 = FSO2.GetFolder(server.mappath("bild/"&foname&""))
set Files = Folder2.Files
Response.Write "<table>" & vbCrLf
Response.Write "<tr>" & vbCrLf
For each Item In Files
if left(Item.Name,3) = "th_" then
If x mod 4=0 and x>1 Then Response.Write "</tr><tr>" & vbCrLf
Response.Write "<td>" & vbCrLf
strFileName = item.name
Response.write "<a href='husshow.asp?pic=bild/"& foname &"/"& Mid(strFileName, 4) &"'>"
Response.write "<img src ='bild/"& foname &"/"& strFileName &"'></a>"
Response.Write "</td>" & vbCrLf
x=x+1
end if
Next
set Folder = nothing
set Folder2 = nothing
set FSO = nothing
set FSO2 = nothing
set Files = nothing
%></th>
<th width="318" height="231" align="right" valign="bottom" scope="row"> </th>
</tr>
<tr>
<th width="318" align="right" valign="bottom" scope="row"></th>
</tr>
</table></th>
</tr>
</table>
</body>
</html>
<%function showpic()
If request.querystring("pic") <> "" then
Bild = request.querystring("pic")
Response.write "<img src='"&Bild&"'>"
else
response.write " "
end if
end function
%>