Formmail in Asp

[gachio]

Form mail in Asp
Ciao ragazzi...vorrei creare un benedetto formmail in Asp sul mio sito. Ho scaricato da qui http://www.flashkit.com/movies/Inte...11246/index.php un esempio di form mail associato a flash. Ho fatto l'upload sul mio spazio (come suggerisce di fare la guida), ho cambiato l'email del destinatario (la mia) e questo è il risultato:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, email@email.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.


--------------------------------------------------------------------------------

Apache/2.0.51 (Fedora) Server at www.miosito.com Port 80


Perchè tutto ciò?
Se puo' aiutarvi, questa è la lista dei servizi che ho comprato contestualmente al dominio:
http://domain.mvmnet.com/it/domain/....asp?SRVC_ID=81

Grazie

Scusate se posto nuovamente, ma avevo sbagliato discussione

[viki1967]

Scusa ma utilizzi asp con Apache ?

[gachio]

cioe?...scusa l'ignoranza

[viki1967]

Carica e lancia questo script ed accertati di avere gli oggeti sul server che ti consentano l'invio di email (ma se il server è apache e non windows lo dubito fortemente):

<%

Dim ListaCOM(41)
ListaCOM(0) = Array( "AB Mailer","ABMailer.Mailman" )
ListaCOM(1) = Array( "ABC Upload","ABCUpload4.XForm" )
ListaCOM(2) = Array( "ActiveFile","ActiveFile.Post" )
ListaCOM(3) = Array( "ActiveX Data Object","ADODB.Connection" )
ListaCOM(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
ListaCOM(5) = Array( "ASP HTTP","AspHTTP.Conn" )
ListaCOM(6) = Array( "ASP Image","AspImage.Image" )
ListaCOM(7) = Array( "ASP Mail","SMTPsvg.Mailer" )
ListaCOM(8) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
ListaCOM(9) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
ListaCOM(10) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
ListaCOM(11) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
ListaCOM(12) = Array( "ASP Tear","SOFTWING.ASPtear" )
ListaCOM(13) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
ListaCOM(14) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
ListaCOM(15) = Array( "ASPSoft NT Object","ASPSoft.NT" )
ListaCOM(16) = Array( "ASPSoft Upload","ASPSoft.Upload" )
ListaCOM(17) = Array( "CDO NTS","CDONTS.NewMail" )
ListaCOM(18) = Array( "Chestysoft Image","csImageFile.Manage" )
ListaCOM(19) = Array( "Chestysoft Upload","csASPUpload.Process" )
ListaCOM(20) = Array( "Dimac JMail","JMail.Message" )
ListaCOM(21) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
ListaCOM(22) = Array( "Dundas Mailer","Dundas.Mailer" )
ListaCOM(23) = Array( "Dundas Upload","Dundas.Upload.2" )
ListaCOM(24) = Array( "Dynu Encrypt","Dynu.Encrypt" )
ListaCOM(25) = Array( "Dynu HTTP","Dynu.HTTP" )
ListaCOM(26) = Array( "Dynu Mail","Dynu.Email" )
ListaCOM(27) = Array( "Dynu Upload","Dynu.Upload" )
ListaCOM(28) = Array( "Dynu WhoIs","Dynu.Whois" )
ListaCOM(29) = Array( "Easy Mail","EasyMail.SMTP.5" )
ListaCOM(30) = Array( "File System Object","Scripting.FileSystemObject" )
ListaCOM(31) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
ListaCOM(32) = Array( "Last Mod","LastMod.FileObj" )
ListaCOM(33) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
ListaCOM(34) = Array( "Persits ASP JPEG","Persits.Jpeg" )
ListaCOM(35) = Array( "Persits ASPEmail","Persits.MailSender" )
ListaCOM(36) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
ListaCOM(37) = Array( "Persits File Upload","Persits.Upload.1" )
ListaCOM(38) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
ListaCOM(39) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
ListaCOM(40) = Array( "Image Size", "ImgSize.Check" )
ListaCOM(41) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )

' Creiamo la funzione per vedere quali di questi sono attivi

Function attiva( comIdentity )
On Error Resume Next
attiva = False
Err = 0
Set xTestObj = Server.CreateObject( comIdentity )
If Err = 0 Then attiva = True
Set xTestObj = Nothing
Err = 0
End Function

' Creiamo la funzione per controllare i componenti e per stampare i risultati

Public Function controllaCOM()

disponibile = 0
strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=400>" & vbNewLine
For indice = LBound( ListaCOM ) To UBound( ListaCOM )
Provider = indice
strTxt = strTxt & vbTab & "<tr><td width=200><font face=Verdana size=2>" & ListaCOM(indice)(0) & "</font></td>"
strTxt = strTxt & "<td align=right width=20><font face=Verdana size=2>[</font></td>"

If attiva( ListaCOM(indice)(1) ) Then
strTxt = strTxt & "<td align=center><font face=Verdana size=2 color=blue>Disponibile</font></td>"
disponibile = disponibile + 1
Else
strTxt = strTxt & "<td align=center><font face=Verdana size=2>No</font></td>"
End If

strTxt = strTxt & "<td align=left width=20><font face=Verdana size=2>]</font></td></tr>" & vbNewLine
Next

strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><center><font face=Verdana size=2><font color=blue>" & disponibile & "</font> dei "
strTxt = strTxt & UBound( ListaCOM ) + 1 & " componenti della lista sono supportati.</font></center></td></tr>" & vbNewLine
controllaCOM = strTxt & "</table>" & vbNewLine
End Function

' E adesso vediamo di visualizzare il tutto
Response.Write( controllaCOM() )
%>

[gachio]

scusami ancora ma che intendi per caricare e lanciare....(cosa devo fare praticamente), se puo servirti ho scritto il link dei servizi che ho a disposizione......nn ti interessa?

[viki1967]

Originariamente inviato da gachio
scusami ancora ma che intendi per caricare e lanciare....(cosa devo fare praticamente), se puo servirti ho scritto il link dei servizi che ho a disposizione......nn ti interessa?

Il tuo link non funziona...

Copi lo script che ti postato (quotando il messaggio non direttamente in visualizzazione), lo incolli nel blocco note e lo salvi con estensione .asp, ad esempio componenti.asp

fai l'upload sul server e lo richiami dal tuo browser, chiaro?

[gachio]

chiarissimo.....aspetta che lo faccio

[gachio]

mi da lo stesso identico errore di prima: INTERNAL SERVER ERROR


Prova adesso il link
http://domain.mvmnet.com/it/domain/H...asp?SRVC_ID=81

[viki1967]

Dal link sembra che asp sia supportato...

prova questa semplicissima pagina (con le stesse modalità di componenti.asp):

<%

response.write "Ciao, se mi leggi questo server supporta ASP!"

%>

Se ricevi errore hai acquistato uno spazio web su server apache che non supporta il linguaggio ASP, ma PHP.

[gachio]

mi carica la pagina... ma non la scritta come mai?