Ho configurato il mio computer come server. Ho provato questo banale form che dovrebbe farmi arrivare un messaggio di posta. Ma mi dà il segg. msg di errore:
Stringa dell'interfaccia non valida.
/manda_feedback.asp, line 84 è la riga rossa
Qualcuno può aiutarmi?
Grazie
<%
Option Explicit
Dim form, nome
%>
<Html>
<head>
<title>Manda Feedback</title>
</head>
<body text="#000099">
<%
Dim postaOK, nominativo
postaOK=false
'se la lungezza e' 0 non è stato inserito il nome
If Len(Request.Form("nome")) = 0 then
'fai partire la routine no nome che manda il messaggio il campo è vuoto
no_nome()
postaOK=false
else if Len(Request.Form("cognome")) = 0 then
no_cognome()
postaOK=false
else
'manda la routine che invia la mail alla mia casella postale e la ruotine che manda un ringraziamento
nominativo = Request.Form("nome") & " " & Request.Form("cognome")
postaOK=true
end if
end if
If postaOK=true then
manda_posta(form)
ecco_fatto(form)
end if
Sub no_nome()
'Manda un messaggio se nome e' vuoto
'allora diciamo al cliente che senza il campo nome non possiamo accettare l'iscrizione
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>non hai inserito il campo nome</td></tr>"
response.write "<tr><td>per favore, torna indietro e compila i campi obbligatori</td></tr>"
response.write "<tr><td align='middle'>"
response.write "Prova di nuovo"
response.write "</td></tr></table></div>"
end sub
Sub no_cognome()
'Manda un messaggio se cognome e' vuoto
'allora diciamo al cliente che senza il campo cognome non possiamo accettare l'iscrizione
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>non hai inserito il campo cognome</td></tr>"
response.write "<tr><td>per favore, torna indietro e compila i campi obbligatori</td></tr>"
response.write "<tr><td align='middle'>"
response.write "Prova di nuovo"
response.write "</td></tr></table></div>"
End Sub
Sub ecco_fatto(nominativo)
'manda un ringraziamento
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>Grazie " & nome & " per la tua iscrizione</td></tr>"
response.write "<tr><td align='middle'>"
response.write "Continua"
response.write "</td></tr></table></div>"
End sub
Sub manda_posta(form)
'Manda la email
Dim cognome, commenti
Dim objMail, mandamiquesto
nome = Request.Form("nome")
cognome = Request.Form("cognome")
commenti = Request.Form("commenti")
mandamiquesto = nome & " " & cognome & " " & commenti
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = cognome
objMail.To = "francesca.it"
objMail.Subject = "Feedback dal sito"
objMail.Body = mandamiquesto
objMail.importance = 0
objMail.Send
Set objMail = Nothing
End sub
%>
</body>
</html>
Rispondi quotando
