Hej,
Har lösningen framför mig men får inte till själva sql frågan.
Sidorna ska generera ett fotogalleri som då tillhör en skriven artikel.

Första sidan väljer man hur många foton man tänker sig ladda upp. Querystringen är från artikeln:
<code>
<form action="NEWS_add_bildreportage_01.asp?ID=<%=Request.Querystring("ID")%>" method="post">
<input type="text" name="antal"><br>
<input type="submit" value="Skicka">
</form>
</code>


Andra sidan, laddar foton och skriver bildtext, jajjbox:
<code>
<%antal = Request.Form("antal")%>
<Form action="NEWS_add_bildreportage_execute.asp" method="post" enctype="multipart/form-data">
<%For iSlinga = 1 to antal%>

Bild och bildtext <%=iSlinga%>:<br>

<textarea cols="40" rows="4" name="bildtext&<%=iSlinga%>"></textarea><br>
<Input type="hidden" name="antal" value="<%=iSlinga%>">
<Input type="hidden" name="tillhorArtikelID" value="<%=Request.Querystring("ID")%>"><br>
<Input type="file" name="thefile&<%=iSlinga%>">

<%Next
%><br>
<br>

<input name="Submit" type="submit" value="Skicka iväg rubbet">
</Form>
</code>

Så till själva körningen i databasen, den här uppdaterar endast första gruppen av former..:
<code>
<%
' Starta uploaden
Set upload = Server.CreateObject("w3.upload")
' Kirra lite variabler
strAntal = upload.Form("antal")
tillhorArtikel = upload.Form("tillhorArtikelID")
strText = upload.Form("bildtext")
Response.write strAntal &"<br>"

For iSlinga = 1 to strAntal
' Laddar bild, ger filen ett unikt namn
strUnik = now
strUnik = Replace(strUnik,":","")
strUnik = Replace(strUnik,"-","")
strUnik = Replace(strUnik," ","")

Set fileName = upload.Form("thefile")
Set fileField = upload.Form("thefile")
actualname = fileField.fileName
actualname = strUnik&actualname
if fileName.IsFile then
fileName.SaveToFile( Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" & actualname)
End if

strSQL = "INSERT into tbl_bildreportage (tillhorArtikel, urltillbild, bildtext ) "
strSQL = strSQL &" VALUES (" &tillhorArtikel & ", "
strSQL = strSQL &"'" & actualname & "', '" & strText &"')"
conn.Execute (strSQL)
NEXT

Response.write (strSQL)
Response.write iSlinga
%>
</code>


Valde en annan lösning i slutändan. Lägger in en bild i taget..