Har ett problem med att alla bilderna lägs på en rad till höger, för att få dem att gå neråt måste jag använda mig av <TR></TR> och jag skulle vilja sätta <tr></tr> efter var 8´de <td></td> finns det en count funktion för detta.

Min kod ser ut enl. nedan:

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
dim ms
set ms=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\inetpub\wwwroot\users\testmapp\images\")
%>
<table border="1" width="800" id="table1" cellspacing="0" cellpadding="0">
<tr>
<%
For each x In fo.files
If ms.GetExtensionName(Server.MapPath("/images") & "\" & x.Name & ".jpg") = "jpg" then%>

<td nowrap align="center" width="110" height="110"><IMG SRC="imagecomponent.asp?path=c:\inetpub\wwwroot\users\testmapp/images/<% =x.name %>&width=100&height=100" alt="<% =x.name %>"></td>

<%
Else
End If
next
set fs=nothing
set ms=nothing
%>
</tr>
</table>

om det finns en count?

ja..

x = x + 1
if x = 9 then response.write "</tr><tr>" & vbcrlf
x = 0
end if

Jag förstår hur du menar på sätt och vis men hur får jag in det i koden? det skall vara TR både ovanför och nedanför <TD></TD> taggarna. Tack en än gång för hjälpen!

Du har ju en inledande <tr> och avslutande </tr> utanför loopen så det borde fungera med:

<% 
dim fs,fo,x, iCount
set fs=Server.CreateObject("Scripting.FileSystemObject") 
dim ms 
set ms=Server.CreateObject("Scripting.FileSystemObject") 
set fo=fs.GetFolder("c:\inetpub\wwwroot\users\testmapp\images\") 
%> 
<table border="1" width="800" id="table1" cellspacing="0" cellpadding="0"> 
<tr> 
<% 
For each x In fo.files 
If ms.GetExtensionName(Server.MapPath("/images") & "\" & x.Name & ".jpg") = "jpg" then%> 

<td nowrap align="center" width="110" height="110"><IMG SRC="imagecomponent.asp?path=c:\inetpub\wwwroot\users\testmapp/images/<% =x.name %> width=100 height=100" alt="<% =x.name %>"></td> 

<% 
iCount = iCount + 1 
if iCount = 9 then 
response.write "</tr><tr>" & vbcrlf 
iCount = 0 
end if 

Else 
End If 
next 
set fs=nothing 
set ms=nothing 
%> 
</tr> 
</table>

Får tyvärr felet:

Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "C:\Inetpub\wwwroot\u"]'

/demo.asp, line 57

Har tyvärr fastnat. Någon som har en idé?

Löste det med en annan tråd:

y = y + 1
if y = 6 then
response.write "</tr><tr>" & vbcrlf
y = 0
end if

Eftersom jag redan hade x

Tack för all hjälp!

Det fungerar nästan till 100% kolla in http://www.larno.se/demo.asp

Koden ser ut som såhär:
<%
dim fs,fo,x, icount
set fs=Server.CreateObject("Scripting.FileSystemObject")
dim ms
set ms=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\inetpub\wwwroot\users\testmapp\images\")

produktnamn = Request.Form("produktnamn")
ingress = Request.Form("ingress")
produktbeskrivning = Request.Form("produktbeskrivning")
artnr = Request.Form("artnr")
pris = Request.Form("pris")
lagerantal = Request.Form("lagerantal")
forsakring_ja = Request.Form("forsakring_ja")
forsakring_nej = Request.Form("forsakring_nej")
forsakringspris = Request.Form("forsakringspris")
bild2 = Request.Form("bild2")
bild3 = Request.Form("bild3")
bild4 = Request.Form("bild4")
bild5 = Request.Form("bild5")
bild6 = Request.Form("bild6")
bild7 = Request.Form("bild7")
bild8 = Request.Form("bild8")
bild9 = Request.Form("bild9")
%>
<center>
<table border="1" width="800" id="table1" cellspacing="0" cellpadding="0">
<tr>
<%
For each x In fo.files
If ms.GetExtensionName(Server.MapPath("/images") & "\" & x.Name) = "jpg" Then
%>

<form action="new_product.asp" method="post">
<!-- Hämtar och lämnar värden som sparats -->
<input name="produktnamn" type="hidden" value="<% =produktnamn %>">
<input name="ingress" type="hidden" value="<% =ingress %>">
<input name="produktbeskrivning" type="hidden" value="<% =produktbeskrivning %>">
<input name="artnr" type="hidden" value="<% =artnr %>">
<input name="pris" type="hidden" value="<% =pris %>">
<input name="lagerantal" type="hidden" value="<% =lagerantal %>">
<input name="forsakring_ja" type="hidden" value="<% =forsakring_ja %>">
<input name="forsakring_nej" type="hidden" value="<% =forsakring_nej %>">
<input name="forsakringspris" type="hidden" value="<% =forsakringspris %>">
<input name="bild1" type="hidden" value="<% =x.name %>">
<input name="bild2" type="hidden" value="<% =bild2 %>">
<input name="bild3" type="hidden" value="<% =bild3 %>">
<input name="bild4" type="hidden" value="<% =bild4 %>">
<input name="bild5" type="hidden" value="<% =bild5 %>">
<input name="bild6" type="hidden" value="<% =bild6 %>">
<input name="bild7" type="hidden" value="<% =bild7 %>">
<input name="bild8" type="hidden" value="<% =bild8 %>">
<input name="bild9" type="hidden" value="<% =bild9 %>">
<td nowrap align="center" valign="middle" width="110" height="110"><input type="image" src="imagecomponent.asp?path=c:\inetpub\wwwroot\users\testmapp/images/<% =x.name %>&width=100&height=100" value="Submit" name="bild1">
</td>
</form>
<%

Else
End If

y = y + 1
if y = 5 then
response.write "</tr><tr>"
y = 0
end if

Next

set fs=nothing
set ms=nothing
%>
</tr>
</table>

Den bryter för tidigt då och då, vet ni varför?

Har löst det =)
Tack åter igen!