Hejsan.. Ska hämta saker från ett formulär "genom" AspUpload.. (för jag ska ladda upp en fil samtidigt alltså)

Får efter ett antal fält svaret: "Index out of range."

De andra fälten hämtas, och fältet heter rätt.. ;)

Skickar med hela koden:

Set Edit = Server.CreateObject("ADODB.Recordset")
Edit.Open "SELECT * FROM Tavlingar",Connect,adOpenStatic,adLockOptimistic
Edit.AddNew

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False ' Generate unique names
Upload.SaveVirtual("/artbilder/temp/")

'Definiera h=timmar m=minuter s=sekunder, yy=år mm=månad dd=dag från indatum o intid i DB
datum = Date()
tid = Time()
h = left(tid,2)
m = mid(tid,4,2)
s = right(tid,2)
yy = mid(datum,3,2)
mm = mid(datum,6,2)
dd = mid(datum,9,2)

'Skapa Katalog..
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("d:\Clients\rainyday.nu\wwwroot\artbilder\tavling\"&yy&mm&"\") Then
fso.CreateFolder("d:\Clients\rainyday.nu\wwwroot\artbilder\tavling\"&yy&mm&"\")
Else
End If


For Each File in Upload.Files
ending = File.ExtractFileName
ending = right(ending, 4)
filnamn = dd&"_"&h&m&s&ending

File.Move "d:\Clients\rainyday.nu\wwwroot\artbilder\tavling\"&yy&mm&"\" & filnamn

Edit("BildLank") = "/artbilder/tavling/"&yy&mm&"/" & filnamn
Next


Edit("Namn") = Upload.Form("Namn")
Edit("Kommentar") = Upload.Form("Kommentar")
Edit("AntalVinnare") = Upload.Form("AntalVinster")
Edit("BastFore") = Upload.Form("year")&"-"&Upload.Form("month")&"-"&Upload.Form("day")

Edit("Fraga1") = Upload.Form("Fraga1").value
Edit("s11") = Upload.Form("11")
Edit("s1X") = Upload.Form("1X")
Edit("s12") = Upload.Form("12")
Edit("s1R") = Upload.Form("R1")
Edit("Fraga2") = Upload.Form("Fraga2")
Edit("s21") = Upload.Form("21")
Edit("s2X") = Upload.Form("2X")
Edit("s22") = Upload.Form("22")
Edit("s2R") = Upload.Form("R2")
Edit("Fraga3") = Upload.Form("Fraga3")
Edit("s31") = Upload.Form("31") <----- Här blir felet!
Edit("s3X") = Upload.Form("3X")
Edit("s32") = Upload.Form("32")
Edit("s3R") = Upload.Form("R3")
Edit.Update




Hoppas ni förstår nåt..
och att nån svarar typ snabbt.. ;)

/Pär

Då måste det väl vara så att Upload.Form("31") inte finns presenterat i din html-kod, det kanske heter 3L fast du inte ser det osv...

/Pelle

Det är inte så att den tolkar Upload.Form("31") som indexnummer 31, inte strängennamnet "31"? Testa döp om fälten till typ "field31" eller något...

varför funkar då 21 22 11 12 osv??

har fått G på det nu.. gjorde en:
for all fields in upload.form

en massa if satser

next..

som de gjorde i exemplet på aspupload.com

Det kanske finns mer än 21 fält, men inte 31. Stämmer informationen i t ex fältet "21"?

Japp den stämmer..

men som sagt så är det fixat nu...