Uploading File

misskaos · October 26th, 2006, 11:02 AM

Hello everyone!

What: clsUpload.asp and postNew.asp
Why: I am trying to make a new form on a website. (The new form information would be stored in a sql database.) User fills out the form info: form #, title, date due, and filename (has a browse button for user to select the file). Well, once I hit "submit" I keep receiving an error message for my clsUpload.asp page.

Error Message:
[u]ADODB.Fields error '800a0bb9' </u>

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/ecp/ecpSQL/clsUpload.asp, line 126

The line of code this is referencing is as follows:
rs.fields.append "FileName", 205, LenB(binData)

I can't find any other way to write this.
with the <% On Error Resume Next %> everything will upload and work perfectly. When I remove it, I get the above error. Of course I don't want to leave Error Resume in there so if u can help, I appreciate it.

Thanks in advance.

More code:

clsUpload.asp

Code:

Public Function Save()
    if psFileFullPath <> "" and psFileInputName <> "" then
        'Save to connectionless client side recordset, write to stream,
        'and persist stream.
        'would think you should be able to write directly to
        'stream without recordset, but I could not get that to work

        'On error resume next
        binData = o.BinaryDataOf(psFileInputName)    
        set rs = server.createobject("ADODB.RECORDSET")
        rs.fields.append "FileName", 205, LenB(binData)
        rs.open
        rs.addnew
         rs.fields(0).AppendChunk binData 

        if err.number = 0 then
            set objStream = Server.CreateObject("ADODB.stream")
              objStream.Type  = 1
               objStream.Open
             Response.Write rs.fields("FileName").value 
            objStream.SaveToFile psFileFullPath, 2
            objStream.close
            set objStream = Nothing
        End if
        rs.close
        set rs = nothing
        psError = Err.Description
else
        psError = "One or more required properties (FileFullPath and/or FileInputName) not set"

  End If


End Function

postNew.asp

Code:

Dim sFile
Dim o


  set o = new clsUpload
   if o.Exists("submitButton") then
  'get client file name without path
  sFileSplit = split(o.FileNameOf("ecpFilename"), "\")
    sFile = sFileSplit(Ubound(sFileSplit))
  
  'Upload filename
  o.FileInputName = sFile
o.FileFullPath = Server.MapPath(".") & "\ecpFiles\" & sFile
  o.save
       end if
if (o.FileNameOf("ecpFilename")) <> "" then
  'If not error redirect to complete message
 if o.Error = "" then

    Dim pEcpNumber, pEcpTitle, pEcpFilename, pEcpOriginator, pEcpDateDistributed, pEcpDateDue, objCommand
    Dim pEcpSMEcomplete, pEcpPMcomplete

    pEcpNumber = o.ValueOf("ecpNumber")
    pEcpTitle = o.ValueOf("ecpTitle")
    pEcpFilename = sFile
    pEcpOriginator = o.ValueOf("ecpOriginator")
    pEcpOriginator = Session("UserFullName")
    pEcpDateDistributed = CStr(date())
    pEcpDateDue = CStr(o.ValueOf("ecpDateDue"))
    pEcpSMEcomplete = ""
    pEcpPMcomplete = ""

T.B.
[email protected]

dparsons · October 26th, 2006, 12:28 PM

O.o I don't know. I *think* it have to do with LenB() in your recordset but I am not sure since everything looks to be in order otherwise.

Is lenB() returning a value?

-------------------------
I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

^^Thats my signature

misskaos · October 26th, 2006, 01:53 PM

Yea I was looking at the LenB too. No it's not returning a value.
And everything is right (compared to the info I found on-line).

From researching the internet I found that rs.append normally has about four parameters.
That one only had three. However, adding a fourth one (like AdFieldIsNullable) does not help.

Also, some websites i searched suggested that I may have
the datatype for "fieldname" (declared public FieldName in my clsUpload page) declared differently in clsUpload than I do in the database. But
I looked at the database and I have ecpFilename (how named in database) set as nvarchar and I changed the 205 to 200 for the
adVarChar in adovbs.inc. Well, that didn't work either. So I have no idea what's going on with it.

Thanks for the reply, I'll figure it out eventually, God willing. ;)

T.B.
[email protected]

dparsons · October 26th, 2006, 02:15 PM

First, dont 205 is fine because that is VarBinary (which is what you are uploading) I have only ever used rs.append such as

rs.append [fieldname], [datatype], [length] so if your length is returning 0 that could be the problem; a varbinary field in MSSQL can have a max length of 8000, you can try statically setting 8000 as the number as opposed to bLen() and see if that helps.

-------------------------
I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

^^Thats my signature

misskaos · October 26th, 2006, 02:56 PM

no luck

T.B.
[email protected]