formcdosys

[karoto]

Ragazzi è da anni che non configuro un script tantoimeno in asp, io utilizzavo formmail.cgi
lo script era su aruba, ho cambiato l'SMTP.aruba.it in "localhost" non funziona. che devo fare?


<%@ Language="VBScript" %>

<%
If Request("cognome") = "" Then Response.Redirect("errore.htm")
If Request("attivita") = "" Then Response.Redirect("errore.htm")
If Request("citta") = "" Then Response.Redirect("errore.htm")
If Request("messaggio") = "" Then Response.Redirect("errore.htm")
If Request("email") = "" Then Response.Redirect("errore.htm")
If Request("provincia") = "" Then Response.Redirect("errore.htm")

cognome = Request("cognome")
nomeazienda = Request("nomeazienda")
attivita = Request("attivita")
email = Request("email")
citta = Request("citta")
provincia = Request("provincia")
country = Request("country")
messaggio = Request("messaggio")

Mittente = email
Destinatario = "commerciale@italianfrozenfood.com"
Subject = "Contatto da italianfrozenfood.com"
SMTP = "localhost"

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = SMTP
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

Set iMsg.Configuration = iConf
iMsg.To = Destinatario
iMsg.BCC = BCC
iMsg.From = Mittente
iMsg.Subject = Subject

CorpoMessaggio = CorpoMessaggio & "Qui di seguito i dati che qualcuno ha compilato nella pagina contatti del vostro sito web." & VbCrLf & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Email: " & email & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Cognome e nome: " & Cognome & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Nome Azienda: " & nomeazienda & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Attività: " & attivita & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Città: " & citta & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Provincia: " & provincia & VbCrLf
CorpoMessaggio = CorpoMessaggio & "Stato: " & country & VbCrLf & VbCrLf
CorpoMessaggio = CorpoMessaggio & "------------ Messaggio -------------" & VbCrLf & VbCrLf
CorpoMessaggio = CorpoMessaggio & messaggio & VbCrLf

iMsg.TextBody = CorpoMessaggio
iMsg.Send

%>
<script language="JavaScript">
<!--
(!alert("Richiesta inviata correttamente. Grazie."))
//-->
document.location.replace('default.htm');
</script>

[Roby_72]

Non funziona che vuol dire?
Da errore?
Prova con

SMTP = "smtp.nomedominio.it"

Roby

[karoto]

niente dafare, io mi ricordo che il formail.cgi doveva essere settato a 755 e trasferimento in binary. devo fare qualche settaggio particolare per il trasferimeno? (ho scaricato ws_ftp Home)

[Roby_72]

Non hai risposto alla mia domanda.

Roby

[karoto]

scusami...

mi porta a www.nomesito.com/formcdosys.asp

e dice:

http 500 errore interno del server

Impossibile visualizzare la pagina
HTTP 500
Cause più probabili:
Il sito Web è in manutenzione.
Il sito Web contiene un errore di programmazione.

Possibili operazioni:
Aggiornare la pagina.

Torna alla pagina precedente.

Ulteriori informazioni

[Roby_72]

Disabilita gli errori HTTP brevi dal menu strumenti, opzioni internet, avanzate di internet explorer e fai ripartire la pagina.

Roby

[karoto]

Ho fatto, ora mi da quest'errore

error '8004020f'
/formcdosys.asp, line 54

[Roby_72]

http://vademecum.aruba.it/start/cont...ulo_cdosys.asp

Roby

[karoto]

infatti, su aruba funzionava ma su quest'altro server non funziona
su aruba smtp era SMTP.aruba.it che ho sostituito con "localhost"

[Roby_72]

Ma di quale server parli penso fossi su aruba...??
Togli tutto questo:

SMTP = "localhost"

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = SMTP
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

Set iMsg.Configuration = iConf