If Request.querystring("mode") = "mailuser" then

If Request.Form("txtEmail") <> "" Then
userID = Clng(Session("userID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & userID
rsEmail.Open strSQL, adoCon
strSubject = Replace(Request.Form("txtSubject"), "'", "''")
strBody = Replace(Request.Form("txtBody"), "'", "''")
strEmail = Replace(Request.Form("txtEmail"), "'", "''")
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vEmailServer
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = rsEmail("email")
objCDOSYSMail.To = strEmail
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.HTMLBody = strBody
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Set rsEmail = Nothing
Set adoCon = Nothing
Response.Write ("Il messaggio è stato correttamente inviato a: " & strEmail & "")
Else
strUserID = Clng(Request.querystring("ID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & strUserID
rsEmail.Open strSQL, adoCon
Response.Write ("<form name='User' method='post' action='users.asp?mode=mailuser'>")
Response.Write ("
")
Response.Write ("<table><tr><td>Mittente:</td><td>")
Response.Write (rsEmail("email"))
Response.Write ("<input type='hidden' name='txtEmail' value='")
Response.Write (rsEmail("email"))
Response.Write ("'></td></tr>")
Response.Write ("<tr><td>Oggetto:</td><td><input type='text' name='txtSubject'></td></tr>")
Response.Write ("<tr><td>Messaggio:</td><td><textarea name='txtBody' cols='20' rows='9'></textarea></td></tr>")
Response.Write ("<tr><td><input type='image' src='imgPortale/enter.gif' name='Submit' value='Enter' alt='Invia'>")
Response.Write ("</td></tr></table></form>")
Set rsEmail = Nothing
Set adoCon = Nothing
End If
End If

--------------------


si può trasformare da cdosys a cdonts?
il mio server non supporta cdosys ma supporta cdonts