mi da errore 500 come se nn trovasse la pagina
<% response.buffer = true
rem ----- Prendo i dati passati dal modulo con il metodo POST --------------
nome = request.form("nome")
testo = request.form("testo")
email = request.form("email")
rifer = request.form("rifer")
crlf = chr(13) + chr(10) ' a capo
text = text & "*****************************" & crlf
text = text & crlf
text = text & "è stata inviata una richiesta di maggiori informazioni da parte di " & crlf
text = text & crlf
text = text & "" & nome & "" & crlf
text = text & crlf
text = text & "per il veicolo: " & crlf
text = text & crlf
text = text & ""& rifer & "" & crlf
text = text & crlf
text = text & crlf
text = text & "per contattare il cliente invia a :"& email & "" & crlf
text = text & "*****************************" & crlf
cBodyText = "" & testo & ""
Dim Mail
sch = "http://schemas.microsoft.com/cdo/configuration/"
set Mail = server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iConf.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.aruba.it"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPAuthenticate) = cdoAnonymous ' 0
.update
End With
With Mail
Set.Configuration = iConf
.From = ""
.To = Cstr(trim(email))
.Subject = ""
.TEXTBody = cBodyText
.Fields("urn:schemas:httpmail:importance").Value = 2
.Send
end With
set Mail=nothing
set iConf=nothing
%>
Grazie per aver scelto i nostri servizi.sarà contattato al più presto.
</body>
</html>
Rispondi quotando
