Invalid procedure call or argument

Hej,

Klockan är mycket och mina ögon kan verkligen inte se vad det är som fallerar. Har suttit framför datorn för länge skulle jag tro. I alla fall, nu behöver jag expertishjälp! Here it goes.

Jag får följande felmeddelande

Microsoft VBScript runtime  error '800a0005'  Invalid procedure call or argument  /beta/admin/news_ad.asp, line 247

Rad 247 samt dess respektive kod-grannar är.

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

Vad står på? :OO

Tack!

/Red. Ändrade trådens rubrik, //OveRRidE

Ge oss mer kod...

JAreMANNEN skrev:

Ge oss mer kod...

Will do! :)

<%
conn.close:set conn=nothing 
ElseIf Request.Querystring("action")= "picin" AND Session("nyhet") = Secure Then  
byteCount = Request.TotalBytes 
RequestBin = Request.BinaryRead(byteCount) 
Set UploadRequest = CreateObject("Scripting.Dictionary")  

BuildUploadRequest RequestBin  
contentType   = UploadRequest.Item("fil").Item("ContentType") 
filepathname  = UploadRequest.Item("fil").Item("FileName") 
filename         = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) 
value              = UploadRequest.Item("fil").Item("Value") 
Bild                  = "admin/newspic/" & filename  

' hämtar filextension  
extension = right(Bild,len(Bild) - instr(Bild,".") +1)  

mappnamn = Right("000" & trim(Request.Querystring("id")), 3) 

Filen = Right("000000" & trim("news_" & Request.Querystring("id")), 6) 
 
' bygger ihop det nya filnamnet  
newfilename = Filen & extension   

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")  

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("newspic/"& newfilename)) 

For i = 1 to LenB(value)   
[B]MyFile.Write chr(AscB(MidB(value,i,1))) [/B] '<Rad 247
Next 

MyFile.Close     
Conn.execute("Update news Set bild='admin/newspic/" & newfilename & "'  Where id = "& FixSQL(Request.Querystring("id")))    
conn.close:set conn=nothing    
Response.Redirect "news_ad.asp?do=inne"
%>

Jag skulle tro att du kommer ett steg för långt i din MidB, dvs att i blir en för stor.

Det är inte så enkelt som att du glömt enctype i ditt formulär?

@nders skrev:

Det är inte så enkelt som att du glömt enctype i ditt formulär?

Trodde också det från en första början, men enctype fanns där i formuläret.

Det är nog lika bra du visar formuläret också. :)

<form method="post" enctype="multipart/form-data" action="news_ad.asp?do=inne&action=picin&id=<%=Request.Querystring("id")%>" name="frmUpload" onSubmit="return Nybild()">

<input type="file" name="fil" size="50" >
  
<input type="Submit" name="andra" value="Ladda upp">
 
</form>

Rensade bort stökig HTML-kod.

Okej, nu verkar det ha löst sig. Men ändå inte.
I filen har jag inkluderat <!-- #INCLUDE file="fckeditor/fckeditor.asp" -->

När jag väl tog bort den så fungerade bilduppladdningen. Vad kan det bero på?

Det beror på vad den filen innehåller...