Uploadscript utan komponent

jag använder override's script vilket fungerar
klockrent.. tills det att jag vill ha en likadan
upload på en annan sektion..

jag kopierar alltså koden, men byter de fält
man extraherar (metoden ist. för request.form)..

då får jag midb fel o grejor.. det som de flesta
klagar om när det gäller detta script.. jag fick
det också i början med lyckades klura ut det..

men nu har jag fått det återigen.. eftersom
jag har en kopia av koden, antagligen..

någon som vet hur man skulle kunna bete sig?

jag har testat me o döpa om requestbin till
requestbin1 etc.. men inte fungerat..

tacksam för svar.. mvh john n..

men om man vill spara bilden i en mapp med sessionsnamnet som namn på mappen och hur kopplar man bilden till användaren i databasen?

Ska scriptet fungera med ChiliASP! ?

Wiklund!! -> det funkar inte :)

Sen har jag en liten fråga, om någon är så hjälplös som sitter på modem ska ladda upp bilder, så fungerar det inte lika bra.

Då chansar jag på att servern gör timeout?
Eller? Hur ska man lösa det isåfall?

Anyone?

Då chansar jag på att servern gör timeout?

Det beror väl på hur stora filer man skickar...

Eller? Hur ska man lösa det isåfall?

Du kan ju alltid ställa upp timeout-tiden på servern.

Jo men det tar ju längre tid med modem :)

Eftersom den ligger på ett webhotell, blir det svårt att ändra time-outen på servern.

Ingen som stött på liknande probs?

Du ändrar timeouten med kod.

Server.Scripttimeout = 600 ' antal sekunder

Ok, var lägger jag den koden? I sidan där datan skickas? I det här fallet outputfile?

På sidan där du tar emot.

Får detta fel när jag har några fler forumlär med?

 Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument: 'MidB' 

/anvandare/upload.asp, line 6

fixat.

fixat

Är det vanliga formulärsfält, typ text eller något skall det inte vara något problem.
Är du 100% på att du har skrivit rätt idin kod speciellt vad det gäller namnen på dina fält?

Nej, men jag gjorde om. Och nu verkar det funka? :) Tack iaf!

Ser nån fel?

När man laddar upp en bild som överstiger de 150kB som jag valt så får jag ett fel...

Request object error 'ASP 0104 : 80004005' 

Operation not Allowed 

/anvandare/ny/outputfile.asp, line 24

Tidigare så har det fungerat alldeles utmärkt att skickas tillbaka om filen är för stor, men nu av någon anledning blir det felmeddelande...

<%

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; "&_
"Data Source="&Server.MapPath("/")

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
kon = UploadRequest.Item("kon").Item("Value")
namn = UploadRequest.Item("namn").Item("Value")
stadsdel = UploadRequest.Item("stadsdel").Item("Value")
alder = UploadRequest.Item("alder").Item("Value")
anvandarnamn = UploadRequest.Item("anvandarnamn").Item("Value")
losenord = UploadRequest.Item("losenord").Item("Value")
epost = UploadRequest.Item("epost").Item("Value")

sql = "select 1 from anvandare where epost = '" & epost & "'"
Set rs2 = connection.execute(sql)

sql = "select 1 from anvandare where anvandarnamn = '" & anvandarnamn & "'"
Set rs = connection.execute(sql)

if not rs2.eof then
response.redirect("default.asp?fel=epost")
end if

if not rs.eof OR anvandarnamn="admin" then
response.Redirect("default.asp?fel=anvandarnamn" )   
else

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
filename = anvandarnamn & right(filename,4)

value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Ext = LCase(Right(filename, Len(filename) - InStrRev(filename, ".")))

If Ext = "jpg" or Ext = "jpeg" or Ext = "gif" Then  

 if byteCount>150000 THEN
 response.Redirect("default.asp?fel=bildstorlek")
 end if
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Else 
response.Redirect("default.asp?fel=bildtyp" )
end if

value = UploadRequest.Item("blob").Item("Value") 

If value <> "" then 

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)

Set MyFile = ScriptObject.CreateTextFile(Server.MapPath("../bilder/" & filename)) 

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

end if

%>

Ingen som ser nåt? Måste vara nåt fel, eftersom det fungerade tidigare :(

Hold your horses, boy!

:) Men jag blir tokig!

Värt att notera är att det endast gäller filer över c:a 200kB, upp till det fungerar det, men en bild på t.ex 600 kB ger felmeddelandet...

Kan ingen hjälpa mig? Jag har prövat allt, men förstår inte varför den ger mig det förbannade felmeddelandet!! BLIR GALEN!

Har du provat att söka? ;)

http://www.webforum.nu/showthread.php?s=&postid=979567#post979567