hej alle...
jeg har kigget et stykke tid på følgende asp kode:
<%
Dim FSO
Dim Files
Dim File
Dim Count
Const Columns = 3
Const ImageWidth = 100
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(Server.MapPath("./")).Files
Set FSO = Nothing
Response.Write "<TABLE width=""100%"" border=""1"" 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=""" & File.Name & """>"
Response.Write File.Name
Response.Write "<BR><IMG src=""" & File.Name & """ border=""1"" width=""" & ImageWidth & """><BR>"
Response.Write "</A>"
Response.Write "</TD>"
End Select
Next
Response.Write "</TR>"
Response.Write "</TABLE>"
Set File = Nothing
Set Files = Nothing
%>
jeg har lavet nogle tabeller i html som ser såfremdeles ud:
<table border="1" bordercolor="" width="" bgcolor="">
<tr>
<td> billede</td>
<td> tekst </td>
<td> billede </td>
<td> tekst </td>
</tr>
</table>
i de felter der står "billede" i, vil jeg have asp koden til selv at hente billederne, men hvordan er det lige man gør det :/
på forhånd tak