Da cdont a cdosys

[silvio]

Non sono in grado di convertire questo file in CDOSYS, qualcuno è in grado di darmi una mano?


'################################################# ###########################
'# Conferma email #
'################################################# ###########################


Nome= objrs.Fields("Nome")
Cognome= objrs.Fields("cognome")
user = objrs.Fields("Username")
pass = objrs.Fields("passw")
email = objrs.Fields("email")

strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Per la tua richiesta le informazioni di login sono : " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Username: "& user & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& pass & vbCrLf & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & Organizzazione
On error resume next
Set Mail = Server.CreateObject("CDONTS.Message")
Mail.MailFormat = html
Mail.from = P_emailPassword
Mail.to = objrs.Fields("email")
Mail.Subject = P_ogrichiestapassw
Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail.Importance = 2
Mail.Send
objRS.MoveNext
loop
%>
<p class="text2" align="center"><font face="Arial" size="2">

Le sue informazioni di login sono state inviate a


<font color="#800000"> <%=email%></font>



Tra breve le potrà trovare nella sua casella postale</font>.</p>
<p class="text2" align="center"></p>
<p class="text2" align="center"><font size="2" face="Arial">Torna alla<font
color="#800000"> </font> <a href="index.asp">Home Page



</a></font></p>
<p class="text2" align="center"></p>
<%
End if

objRS.close
Set objRS = Nothing
Set mail = Nothing
Conn.Close
Set Conn = Nothing
%>

---------------------------------------------------------------------------------------
Questo è 1 altro.
---------------------------------------------------------------------------------------
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::
': Conferma email :
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::

strMsgHeader = "Ciao " & FixQuotes(request.form("Nome")) & " " & FixQuotes(request.form("Cognome")) & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "La registrazione è stata efettuata con successo. " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questi sono i dati per effettuare il Login" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Username: "& FixQuotes(request.form("username")) & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& sOtherId & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & Organizzazione
On error resume next
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = html
Mail.from = R_emailRegitrazione
Mail.to = FixQuotes(request.form("email"))
Mail.Subject = R_OgEmailReg
Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail.Importance = 2
Mail.Send

'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::
': Per il Webmaster se è stata selezzionata la funzione di copia :
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::

If R_CopiaemailRegitrazione = True Then

strMsgHeader = "Ciao " & FixQuotes(request.form("Nome")) & " " & FixQuotes(request.form("Cognome")) & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "La registrazione è stata efettuata con successo. " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questi sono i dati per effettuare il Login" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Username: "& FixQuotes(request.form("username")) & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& sOtherId & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & Organizzazione
On error resume next
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = html
Mail.from = R_emailRegitrazione
Mail.to = R_emailRegitrazione
Mail.Subject = R_OgEmailReg
Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail.Importance = 2
Mail.Send

End IF

RS.Close
Set Rs = nothing
Conn.close
Set Conn = nothing




Ringrazio in anticipo.

[michele.santoro]

Prova così

<%
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
': Conferma email :
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

strMsgHeader = "Ciao " & FixQuotes(request.form("Nome")) & " " & FixQuotes(request.form("Cognome")) & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "La registrazione è stata efettuata con successo. " & vbCrLf & vbCrLf 
strMsgHeader = strMsgHeader & "Questi sono i dati per effettuare il Login" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Username: "& FixQuotes(request.form("username")) & vbCrLf 
strMsgHeader = strMsgHeader & "Password: "& sOtherId & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf 
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & Organizzazione 
On error resume next
Set Mail = Server.CreateObject("CDO.Message")
'Mail.MailFormat = html
Mail.from = R_emailRegitrazione
Mail.to = FixQuotes(request.form("email")) 
Mail.Subject = R_OgEmailReg
Mail.HtmBody = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
'Mail.Importance = 2
Mail.Send

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
': Per il Webmaster se è stata selezzionata la funzione di copia :
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

If R_CopiaemailRegitrazione = True Then

strMsgHeader = "Ciao " & FixQuotes(request.form("Nome")) & " " & FixQuotes(request.form("Cognome")) & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "La registrazione è stata efettuata con successo. " & vbCrLf & vbCrLf 
strMsgHeader = strMsgHeader & "Questi sono i dati per effettuare il Login" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Username: "& FixQuotes(request.form("username")) & vbCrLf 
strMsgHeader = strMsgHeader & "Password: "& sOtherId & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf 
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & Organizzazione 
On error resume next
Set Mail = Server.CreateObject("CDO.Message")
'Mail.MailFormat = html
Mail.from = R_emailRegitrazione
Mail.to = R_emailRegitrazione 
Mail.Subject = R_OgEmailReg
Mail.HtmBody = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
'Mail.Importance = 2
Mail.Send

End IF

RS.Close
Set Rs = nothing
Conn.close
Set Conn = nothing
%>