Salve ragazzi, ho un sito su register.it.
Devo inserire un semplice form per richiesta informazioni, tipo nome, email e campo note e devono arrivare alla mia email.
Su register c'è una chiara spiegazione, incollare e cambiare i dati da una paginetta gia fatta.
Semplice, ma poi dicono che è solo per chi sta su piattaforma Linux.
Per Windows, cioè per me, niente.
Dato che non ci capisco nulla di asp, avete un semplice tutorial da incollare e cambiare solo i miei dati?
Grazie
vedi se register usa cdosys o cdonts come componente lato server...
poi vediamo...
Ciao a tutti,
premetto che ho cercato sul forum, e mi sono documentato presso register. Loro usano il componente per l'invio CDOSYS.
La problematica è la seguente: poichè di ASP non capisco nulla, mi sono trovato con il seguente codice per l'invio di dati nella form, ho capito che è composto da due parti una delle quali usa il componente CDOSYS. Ho provato ad usarla, ma il tentativo è stato vano.
Qualcuno potrebbe darmi una mano?
Grazie a tutti per l'attenzione
Mick
Di seguito il codice:
[ C O D E ]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>AZIENDA - Illuminazione</title>
<link href="stile/istituzionale.css" rel="stylesheet" type="text/css"></link>
</head>
<body bgcolor="#FFFFFF" topmargin="20" rightmargin="10" bottommargin="10" leftmargin="10">
<%
'richiamo i parametri
nome = ""& Request.Form("nome")
azienda = ""& Request.Form("azienda")
recapito = ""& Request.Form("recapito")
email = ""& Request.Form("email")
messaggio = ""& Request.Form("messaggio")
if (nome ="" ) OR (recapito ="") OR ( email ="") OR (messaggio ="") OR (request.Form("privacy") <> "s" ) then
%>
<p align="center" class="testo">
<%=getMsgLanguage("errore_invio",lng) & "
" & getMsgLanguage("invia_altra_mail",lng)%>
<%=getMsgLanguage("clicca_qui",lng) & img_freccia%>
</p>
<%
else
'--- AREA TEST ---
'For i = 1 To Request.Form.Count
' Response.Write Request.Form.Key(i) & ": " & Request.Form.Item(i) & "
"
'Next
'Response.Write "
"
'--- ---
'converto i parametri
nome = getQueryString(nome)
azienda = getQueryString(azienda)
recapito = getQueryString(recapito)
email = getQueryString(email)
messaggio = getQueryString(messaggio)
'--- AREA TEST ---
'Response.Write "nome = " & getQueryString(nome) & "
"
'Response.Write "azienda = " & getQueryString(azienda) & "
"
'Response.Write "recapito = " & getQueryString(recapito) & "
"
'Response.Write "email = " & getQueryString(email) & "
"
'Response.Write "messaggio = " & getQueryString(messaggio) & "
"
'Response.Write "
"
'--- ---
'creo i campi della mail
str_sender = iif(email<>"", email, application("SenderAddress"))
str_dest = application("infoAddress")
str_object = "Richiesta informazioni " & iif(nome<>"", "da "& nome, "dal sito www.AZIENDA.it")
str_body = "<style>" & VbCrLf
str_body = str_body & " .testo {" & VbCrLf
str_body = str_body & " FONT-SIZE: 11px;" & VbCrLf
str_body = str_body & " COLOR: #000000;" & VbCrLf
str_body = str_body & " FONT-FAMILY: Tahoma" & VbCrLf
str_body = str_body & " }" & VbCrLf
str_body = str_body & " .titoletto {" & VbCrLf
str_body = str_body & " FONT-WEIGHT: bold; "& VbCrLf
str_body = str_body & " FONT-SIZE: 13px; " & VbCrLf
str_body = str_body & " COLOR: #3f66c4; " & VbCrLf
str_body = str_body & " FONT-FAMILY: Tahoma" & VbCrLf
str_body = str_body & " }" & VbCrLf
str_body = str_body & "</style>" & VbCrLf
str_body = str_body & "<table cellpadding=0 cellspacing=0 border=0 class=testo>" & VbCrLf
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td colspan=2 class=titoletto>
Richiesta informazioni
</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td>nome :</td>" & VbCrLf
str_body = str_body & " <td>"& nome &"</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
if azienda<>"" then
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td>azienda :</td>" & VbCrLf
str_body = str_body & " <td>"& azienda &"</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
end if
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td colspan=2>messaggio: "& messaggio &"</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td colspan=2 class=titoletto>
Recapiti
</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td>telefono :</td>" & VbCrLf
str_body = str_body & " <td>"& recapito &"</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
str_body = str_body & " <tr valign=top style=""padding-bottom: 5px;"">" & VbCrLf
str_body = str_body & " <td>email :</td>" & VbCrLf
str_body = str_body & " <td>"& email &"</td>" & VbCrLf
str_body = str_body & " </tr>" & VbCrLf
str_body = str_body & "</table>" & VbCrLf
'Sovrascrive i valori in global.asa
'str_sender = "info@AZIENDA.it"
'str_dest = "info@AZIENDA.it"
'invia la mail tramite aspSmartMail
'call sendmail(str_sender, str_dest, str_object, str_body)
'***
'SISTEMA PER INVIARE EMAIL ALTERNATIVO
'***
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set CDOConfig = CreateObject("CDO.Configuration")
With CDOConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "mail.register.it" ' Server SMTP
.update
End With
Set CDOEmail = Server.CreateObject("CDO.Message")
With CDOEmail
Set .Configuration = CDOConfig
.To = str_dest
.From = str_sender
.Subject = str_object
.HTMLBody = str_body
.Send()
end With
Set CDOEmail = nothing
Set CDOConfig = nothing
'***
'FINE SISTEMA ALTERNATIVO
'***
'messaggio di conferma
%>
<p align="center" class="testo">
<%=getMsgLanguage("inviata_correttamente",lng) & "
" & getMsgLanguage("invia_altra_mail",lng)%>
<%=getMsgLanguage("clicca_qui",lng) & img_freccia%>
</p>
<% end if %>
</body>
</html>
[/ C O D E ]
Permessi di invio
Rispondi quotando