Ciao a tutti,
pare che questa estate non vuole proprio arriviare per me

Ho preparato uno script che mi permetta di inserire dati e un file in una tabella (MySql).

Scusatemi ma proprio non ci arrivo all'errore:
Microsoft VBScript runtime error '800a01a8'
Object required: '[undefined]'
conf_dati_finpartner.asp, line 175

La linea 175 corrisponde a: macrosettore = UploadRequest.Item("macrosettore").Item("Value")
Ovviamente questo campo esiste nel form di registrazione ed è dichiarato in tabella!!

Chiedo per piacere di darmi una mano.



<%
Dim folder
Dim data
Dim tipopartner
Dim titolopersonale
Dim cognome
Dim nome
Dim giornonascita
Dim mesenascita
Dim annonascita
Dim statoresidenza
Dim regioneresidenza
Dim provinciaresidenza
Dim comuneresidenza
Dim civicoresidenza
Dim capresidenza
Dim codicefiscale
Dim qualifica
Dim telefono
Dim cellulare
Dim email
Dim ragionesociale
Dim formagiuridica
Dim macrosettore
Dim microsettore
Dim regionesedelegale
Dim provincelegale
Dim comunesedelegale
Dim indirizzosedelegale
Dim civicosedelegale
Dim capsedelegale
Dim telefonoufficio
Dim faxufficio
Dim emailufficio
Dim numerodipendenti
Dim numeroagenti
Dim numeroclienti
Dim partitaiva
Dim titolo_file
Dim nom_file
Dim data_cv
Dim comeconosciuto
Dim byteCount
Dim RequestBin
Dim PosBeg
Dim i
Dim char
Dim PosEnd
Dim boundary
Dim boundaryPos
Dim Pos
Dim intCount
Dim Name
Dim PosFile
Dim PosBound
Dim Value
Dim FileName
Dim ContentType
Dim nome_file
Dim Conn
Dim filepathname
Dim ScriptObject
Dim MyFile
Dim Sql
Dim Rs

' //// Directory dove verrà caricato il file (la cartella deve avere i permessi in scrittura)
folder = "/public/cv_banker"


Response.Expires=0
Response.Buffer = TRUE
Response.Clear

Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
Loop
End Sub
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

byteCount = Request.TotalBytes

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

' //// Fine Componente Upload

' //// riempio le variabili con valori proveninti dalla form
data = UploadRequest.Item("data").Item("Value")
tipopartner = UploadRequest.Item("tipopartner").Item("Value")
titolopersonale = UploadRequest.Item("titolopersonale").Item("Value" )
cognome = UploadRequest.Item("cognome").Item("Value")
nome = UploadRequest.Item("nome").Item("Value")
giornonascita = UploadRequest.Item("giornonascita").Item("Value")
mesenascita = UploadRequest.Item("mesenascita").Item("Value")
annonascita = UploadRequest.Item("annonascita").Item("Value")
statoresidenza = UploadRequest.Item("statoresidenza").Item("Value")
regioneresidenza = UploadRequest.Item("regioneresidenza").Item("Value ")
provinciaresidenza = UploadRequest.Item("provinciaresidenza").Item("Val ue")
comuneresidenza = UploadRequest.Item("comuneresidenza").Item("Value" )
indirizzoresidenza = UploadRequest.Item("indirizzoresidenza").Item("Val ue")
civicoresidenza = UploadRequest.Item("civicoresidenza").Item("Value" )
capresidenza = UploadRequest.Item("capresidenza").Item("Value")
codicefiscale = UploadRequest.Item("codicefiscale").Item("Value")
qualifica = UploadRequest.Item("qualifica").Item("Value")
telefono = UploadRequest.Item("telefono").Item("Value")
cellulare = UploadRequest.Item("cellulare").Item("Value")
email = UploadRequest.Item("email").Item("Value")
ragionesociale = UploadRequest.Item("ragionesociale").Item("Value")
formagiuridica = UploadRequest.Item("formagiuridica").Item("Value")
macrosettore = UploadRequest.Item("macrosettore").Item("Value")
microsettore = UploadRequest.Item("microsettore").Item("Value")
regionesedelegale = UploadRequest.Item("regionesedelegale").Item("Valu e")
provincelegale = UploadRequest.Item("provincelegale").Item("Value")
comunesedelegale = UploadRequest.Item("comunesedelegale").Item("Value ")
indirizzosedelegale = UploadRequest.Item("indirizzosedelegale").Item("Va lue")
civicosedelegale = UploadRequest.Item("civicosedelegale").Item("Value ")
capsedelegale = UploadRequest.Item("capsedelegale").Item("Value")
telefonoufficio = UploadRequest.Item("telefonoufficio").Item("Value" )
faxufficio = UploadRequest.Item("faxufficio").Item("Value")
emailufficio = UploadRequest.Item("emailufficio").Item("Value")
numerodipendenti = UploadRequest.Item("numerodipendenti").Item("Value ")
numeroagenti = UploadRequest.Item("numeroagenti").Item("Value")
numeroclienti = UploadRequest.Item("numeroclienti").Item("Value")
numeroclienti = UploadRequest.Item("numeroclienti").Item("Value")
partitaiva = UploadRequest.Item("partitaiva").Item("Value")
titolo_file = UploadRequest.Item("titolo_file").Item("Value")
nome_file = UploadRequest.Item("nome_file").Item("Value")
data_cv = UploadRequest.Item("data_cv").Item("Value")
comeconosciuto = UploadRequest.Item("comeconosciuto").Item("Value")

' //// controllo che la form sia state regolarmente popolata
If IsNull(nome) OR nome = "" OR IsNull(cognome) OR cognome = "" Then
Response.Write ("<center>
CAMPI OBBLIGATORI!

RITORNA</center>")
Response.End
End if

' //// connessione al DB
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=62.149.150.96;Database=Sql261888_5; port=3306;UID=Sql261888;PWD=7033c51d;"

' //// creo il file nella folder
if UploadRequest.Item("nome_file").Item("FileName")=" " then

Else

contentType = UploadRequest.Item("nome_file").Item("ContentType" )
filepathname = UploadRequest.Item("nome_file").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("nome_file").Item("Value")

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

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"\"&filename)

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

End if

' //// seleziono la tabella dove scrivero l'ora, il titolo ed il nome del file
Sql = "Select * FROM fincontrolpartner"

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 2

' //// aggiugo un nuovo record alla tabella
Rs.AddNew
Rs("data") = date()
Rs("tipopartner") = tipopartner
Rs("titolopersonale") = titolopersonale
Rs("nome") = nome
Rs("cognome") = cognome
Rs("giornonascita") = giornonascita
Rs("mesenascita") = mesenascita
Rs("annonascita") = annonascita
Rs("statoresidenza") = statoresidenza
Rs("regioneresidenza") = regioneresidenza
Rs("provinciaresidenza") = provinciaresidenza
Rs("comuneresidenza") = comuneresidenza
Rs("indirizzoresidenza") = indirizzoresidenza
Rs("civicoresidenza") = civicoresidenza
Rs("capresidenza") = capresidenza
Rs("codicefiscale") = codicefiscale
Rs("qualifica") = qualifica
Rs("telefono") = telefono
Rs("cellulare") = cellulare
Rs("email") = email
Rs("ragionesociale") = ragionesociale
Rs("formagiuridica") = formagiuridica
Rs("macrosettore") = macrosettore
Rs("microsettore") = microsettore
Rs("regionesedelegale") = regionesedelegale
Rs("provincelegale") = provincelegale
Rs("comunesedelegale") = comunesedelegale
Rs("indirizzosedelegale") = indirizzosedelegale
Rs("civicosedelegale") = civicosedelegale
Rs("capsedelegale") = capsedelegale
Rs("telefonoufficio") = telefonoufficio
Rs("faxufficio") = faxufficio
Rs("emailufficio") = emailufficio
Rs("numerodipendenti") = numerodipendenti
Rs("numeroagenti") = numeroagenti
Rs("numeroclienti") = numeroclienti
Rs("partitaiva") = partitaiva
Rs("titolo_file") = titolo_file
Rs("nome_file") = filename
Rs("data_cv") = date()
Rs("comeconosciuto") = comeconosciuto

Rs.UpDate

' //// chiudo il record set e libero le risorse
Rs.Close
Set Rs = Nothing



none=replace(nome,"'","''")
cognome=replace(cognome,"'","''")
indirizzoresidenza=replace(indirizzoresidenza,"'", "''")
civicoresidenza=replace(civicoresidenza,"'","''")
capnascita=replace(capnascita,"'","''")
codicefiscale=replace(codicefiscale,"'","''")
qualifica=replace(qualifica,"'","''")
telefono=replace(telefono,"'","''")
cellulare=replace(cellulare,"'","''")
email=replace(email,"'","''")
indirizzosedelegale=replace(indirizzosedelegale,"' ","''")
civicosedelegale=replace(civicosedelegale,"'","''" )
capsedelegale=replace(capsedelegale,"'","''")
telefonoufficio=replace(telefonoufficio,"'","''")
faxufficio=replace(faxufficio,"'","''")
emailufficio=replace(emailufficio,"'","''")
numerodipendenti=replace(numerodipendenti,"'","''" )
numeroagenti=replace(numeroagenti,"'","''")
partitaiva=replace(partitaiva,"'","''")
titolo_file=replace(titolo_file,"'","''")


set rs11=conn.execute(sql11)

' //// chiudo la connessione e libero le risorse
Conn.Close
Set Conn = Nothing

' //// carico la pagina di risposta e stampo a video il link al file caricato
Response.Redirect("form_fin_partner_password.asp")
%>