Persits Componenti

[marconi]

Salve a tutti, ho creato uno script con il componente persits asp upload, se carico il file sul server web remoto di aruba il codice si esegue e carica il file, in locale su iis mi da questo errore:

Oggetto server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

come posso risolvere questo problema?
Vorrei che anche in locale mi funzionasse l'upload, devo installare qualcosa su iis?
Vorrei anche installare le altre componenti di persits, aspjpg,asppdf ecc.

Grazie mille

[Vincent.Zeno]

per quel che ne so non basta caricare il componente,
questo deve essere prima registrato sul server.

va acquistato l'exe per l'installazione.
sul sito del produttore trovi spiegazione

[andreasmog]

Salve a tutti,
premesso che non ho molta esperienza di programmazione e quantaltro
e premesso che non trovo alcuna spiegazione sul sito di persits,
mi sono cimentato a passatempo in sito
fatto interamente in asp pubblicato su aruba

il mio problema è questo
ho creato un form
con dati generici e 4 foto
che invia i dati a un database mdb
e contemporaneamente gli stessi (non le foto)
all'indirizzo email immesso nel form..

andiamo a noi
ho utilizzato
uplad di persits
che funziona alla grande l'unico grande problema
è che il form funziona solo se allego le "4 immagini",
senza foto con una sola o con 2 ecc non funziona.
Di seguito riporto il codice
del file asp che invia i dati all email e al database

ovviamente il form è impostato con il metodo
multipart/form-data
altrimenti non funzionerebbe l'upload...

grazie in anticipo!


<%
Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save(Server.MapPath("/public/"))
Set File = Upload.Files("FILE")
Set File2 = Upload.Files("FILE2")
Set File3 = Upload.Files("FILE3")
Set File4 = Upload.Files("FILE4")


%>



<%

Public Function GetEmailUser(User, Pass)

StrSQL = "SELECT * FROM ANNUNCI"
set Rs = GetRSFwd(StrSQL)

If Not Rs.Eof Then
GetEmailUser = Rs("Email")
End If

Rs.Close

End Function



Public Sub SendEmailForNewAccount(Corso, SedeCorso, Cognome, Nome, Codice_fiscale, User, Pass)

invioA = Upload.Form("email")
invioDa = "info@xxxxxx.it"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update




MessageTxt = MessageTxt & "Il tuo annuncio è stato pubblicato!" & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Data di pubblicazione:" & Replace(Data_INS,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Di seguito sono riportati i dati inseriti al momento della pubblicazione:" & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Cognome: " & Replace(Cognome,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Nome: " & Replace(Nome,"'","") & vbCrLf& vbCrLf

MessageTxt = MessageTxt & "Indirizzo: " & Replace(Indirizzo,"'","") & vbCrLf& vbCrLf

MessageTxt = MessageTxt & "Provincia: " & Replace(Provincia,"'","") & vbCrLf& vbCrLf

MessageTxt = MessageTxt & "Comune: " & Replace(Citta,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Telefono: " & Replace(Telefono,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Cellulare: " & Replace(Cellulare,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Email: " & Replace(Email,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Categoria Scelta: " & Replace(Categoria,"'","") & vbCrLf & vbCrLf



With iMsg
Set .Configuration = iConf
.To = invioA
.Cc = "info@xxxxx.it"
.From = invioDa
.Sender = invioDa
.Subject = "NUOVO email"
.TextBody = MessageTxt
.Send
End With

End Sub

If Upload.Form("Submit") <> "" Then

StrSQL = "SELECT * FROM ANNUNCI"
set Rs = GetRSFwd(StrSQL)


Rs.AddNew
Rs("provincia_annuncio") = UCase(Upload.Form("provincia_annuncio"))
Rs("categoria") = UCase(Upload.Form("categoria"))
Rs("titolo") = UCase(Upload.Form("titolo"))
Rs("testo") = UCase(Upload.Form("testo"))
Rs("Cognome") = UCase(Upload.Form("Cognome"))
Rs("Nome") = UCase(Upload.Form("Nome"))

rs("foto") = File.FileName
rs("foto2") = File2.FileNamE
rs("foto3") = File3.FileName
rs("foto4") = File4.FileName

Rs("prezzo") = UCase(Upload.Form("prezzo"))
Rs("telefono_annuncio") = UCase(Upload.Form("telefono_annuncio"))
Rs("email_annuncio") = UCase(Upload.Form("email_annuncio"))
Rs("privato_azienda") = UCase(Upload.Form("privato_azienda"))
Rs("Citta") = UCase(Upload.Form("Citta"))
Rs("Indirizzo") = UCase(Upload.Form("Indirizzo"))
Rs("Telefono") = UCase(Upload.Form("Telefono"))
Rs("Cellulare") = UCase(Upload.Form("Cellulare"))
Rs("Provincia") = UCase(Upload.Form("Provincia"))
Rs("email") = UCase(Upload.Form("email"))
Rs("Data_INS") = Date()
Rs("Ora") = time()


Rs.UpDate
Rs.Close
Set rs = Nothing



Nome = Upload.Form("Nome")
Cognome = Upload.Form("Cognome")
provincia_annuncio= Upload.Form("provincia_annuncio")
categoria = Upload.Form("categoria")
Provincia = Upload.Form("Provincia")
Citta = Upload.Form("Citta")
Indirizzo = Upload.Form("Indirizzo")
Telefono = Upload.Form("Telefono")
Cellulare = Upload.Form("Cellulare")
email = Upload.Form("email")
categoria = Upload.Form("categoria")
titolo = Upload.Form("titolo")
testo = Upload.Form("testo")
foto = File.FileName
foto2 = File2.FileName
foto3 = File3.FileName
foto4 = File4.FileName
prezzo = Upload.Form("prezzo")
telefono_annuncio = Upload.Form("telefono_annuncio")
email_annuncio = Upload.Form("email_annuncio")
privato_azienda= Upload.Form("privato_azienda")
Data_INS = Date()
Ora = Time()





SendEmailForNewAccount Corso, SedeCorso, Cognome, Nome, Codice_fiscale, User, Pass

Status = "email pubblicata con Successo "

End If



Response.Redirect("annuncio_inviato.asp?Status=" & Status)
%>

[Roby_72]

Dire non funziona è riduttivo.
Quale errore hai?

Roby

[andreasmog]

il modulo funziona correttamente
l'"unico problema"
è che devo caricare tutte e 4 le foto,
senza non funziona...

[Roby_72]

Ripeto: che vuol dire "non funziona"?

Roby

[Grambo]

Originariamente inviato da andreasmog
il modulo funziona correttamente
l'"unico problema"
è che devo caricare tutte e 4 le foto,
senza non funziona...

ti si spegne il pc quando apri la pagina? se si è un problema hardware -.-'

[andreasmog]

io ho un form con campi di testo e 4 campi di file,
questo modulo invia i dati a un database .mdb e
contemporaneamente all'email di chi lo compila.

Se il modulo viene compilato bene, compreso le 4 immagini
viene inviato correttamente,
altrimenti se non vegono caricate tutte e 4 lefoto
da questo errore



Microsoft VBScript runtime error '800a01a8'

Object required: 'File'

/inviaregistrazione.asp, line 179

spero di essere stato piu chiaro...
grazie!

[Roby_72]

eh ci voleva tanto....
E la riga 179 quale sarebbe?????

Roby

[andreasmog]

scusa hai ragione...


da qui parte la riga 179

rs("foto") = File.FileName
rs("foto2") = File2.FileNamE
rs("foto3") = File3.FileName
rs("foto4") = File4.FileName