Ciao.

Devo inviare il template di una pagina web tramite email; queste pagine web contengono degli articoli estratti e contenuti in un db mysql.

Non mi è ben chiaro come far arrivare questa pagina via email, ecco il codice:

codice:
<%@ Language=VBScript %>



<%

cod = request.querystring("cod")

strSQL = "SELECT * FROM tbl_ARTICOLI WHERE ID = "&cod
Set objRS = server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

if not objRS.EOF then

Email = Request.Form("Email")
Xemail = Request.Form("Xemail")


Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
 
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
 .To       = Xemail
 .From     = email
 .Subject  = "INVIO TEMPLATE"
 .CreateMHTMLBody "QUI COSA DEVO INDICARE ???"   
 .Send
End With
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

    
    %>