Asp con Vbscript: In locale si, in remoto no...
Ho una pagina di Creazione email che richiama una pagina di Invio Email
Entrambe le pagine sono in Asp con codice Vbscript...
La pagina di Creazione Email funziona,
mentre quella di Invio Email no.
Tutte e due le pagine hanno estensione Asp,
la seconda pagina (Invio), fa un uso massiccio di VbScript...
Il bello è che in locale ( windows 2000 Nt) funziona tutto,
su altervista NO.
Perche'?
Vi pasto il codice...
<% Dim form, nome %>
<Html>
<head>
<title>Manda Feedback</title>
</head>
<body>
<% call Main()
Sub Main()
'se la lungezza è 0 non c'e niente nell email
If Len(Request.Form("commenti")) = 0 then
no_email()
else
manda_posta(form)
ecco_fatto(nome)
end if
End sub
Sub no_email()
response.write "<div align='center'>"
response.write "<table border='1' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td><font size=5 color=#800080><b>L'email non è completa! Torna indietro e correggila! </b></font>"
response.write "<p align=right>Lo staff della NewWorldGym</p></td></tr>"
response.write "<tr><td align='middle'>"
response.write "Torna alla <a href=http://www.newworldgym.it>Home Page</a>"
response.write "</td></tr></table></div>"
End Sub
Sub manda_posta(form)
Dim email, commenti,staff
Dim objMail, mandamiquesto
staff = "staff@newworldgym.it"
'facciamo la vendemmia dell'input
nome = Request.Form("indirizzi")
email = Request.Form("email")
commenti = Request.Form("commenti")
dim DettaglioEmail,IdEmail
mandamiquesto = "Un visitatore di www.newworldgym.it (" & email & ") ti ha scritto: <br>" & commenti
Set objMail = Server.CreateObject("CDONTS.NewMail")
IdEmail = left(nome,1)
'routine per decidere a chi mandare la posta
if IdEmail = "1" then DettaglioEmail = "Cristina@hotmail.com"
if IdEmail = "2" then DettaglioEmail = "Staff@newworldgym.it"
if IdEmail = "3" then DettaglioEmail= "GpSoftware@email.it"
objMail.From = DettaglioEmail
objMail.To = nome
objMail.Cc = staff
objMail.Subject = "NewWorldGym: Richiesta Informazioni"
objMail.Body = mandamiquesto
objMail.importance = 2
objMail.Send
Set objMail = Nothing
'=======================CopiaCarbone
if IdEmail <> "3" AND IdEmail <> "2" then ' Se mandano un email al WebMaster
' o allo staff NON inviare la copia allo staff
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = Staff
objMail.To = nome
objMail.Cc = staff
objMail.Subject = "NewWorldGym: Richiesta Informazioni"
objMail.Body = mandamiquesto
objMail.importance = 2
objMail.Send
Set objMail = Nothing
end if
end sub
Sub ecco_fatto(nome)
response.write "<div align='center'>"
response.write "<table border='1' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td><font size=5 color=#800080><b>Grazie per averci inviato un email! Ti risponderemo appena possibile! </b></font>"
response.write "<p align=right>Lo staff della NewWorldGym</p></td></tr>"
response.write "<tr><td align='middle'>"
response.write "Torna alla <a href=http://www.newworldgym.it>Home Page</a>"
response.write "</td></tr></table></div>"
End sub
%>
</body>
</html>
