01/04/2008, 05:28
|
| | | Fecha de Ingreso: marzo-2008
Mensajes: 25
Antigüedad: 17 años, 1 mes Puntos: 0 | |
| Re: Argumento o llamada a procedimiento no válidos
el error es en la linea marcada.
if LenBinary > 0 Then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End if
strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
///////////////////////////////////////////////////////////////////////////////////////
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)
//////////////////////////////////////////////////////////////////////////////////////
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
if lngCurrentEnd > 0 then |