no me funciona, te pongo el codigo a ver si me indicas donde esta el fallo, veras que recoge varios parametros diferentes de objetos de formulario. No sé como se pone correctamente el texto = "... Va dentro del html general supongo...la página se llama "enviar_noticia2.asp"
---------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' change to address of your own SMTP server
strHost = "smtp.dominio.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.Port = 25
Mail.Username = "usuario"
Mail.Password = "contrasenya"
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddBcc Request("To")
Mail.AddAttachment Request("Imatge")
' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = texto
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<head>
<title>Prueba aspmail</title>
</head>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="600" border="0" cellspacing="0" cellpadding="2">
<tr>
<td> </td>
<td><FORM METHOD="POST" ACTION="enviar_noticia2.asp">
<table width="100%" cellpadding="2" cellspacing="0" bgcolor="#E0E0E0">
<tr>
<td width="30%">Servidor de correo:</td>
<td width="70%"><b>
<% = strHost %>
</b></td>
</tr>
<tr>
<td>De (correu del remitent):</td>
<td><input name="From" type="text" value="
[email protected]" size="35" /></td>
</tr>
<tr>
<td>De (nom del remitent):</td>
<td><input name="FromName" type="text" value="Envio correo" size="35" /></td>
</tr>
<tr>
<td><input name="Subject" type="text" value="<%=(Recordset1.Fields.Item("titcat").Value) %>" size="35" /></td>
</tr>
<tr>
<td valign="top">Text noticia català:</td>
<td>texto = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
texto = texto & "<tr><td><p>" & Recordset1.Fields.Item('titcat').Value) & "</span><br /></td></tr></table>"
</td>
</tr>
<tr>
<td>Foto:</td>
<td><input name="Imatge" type="text" id="imatge" value="d:\xvrt\dominio.com\html\fotos\<%=(Recordse t1.Fields.Item("foto").Value)%>" size="35" /></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Send" value="Enviar Noticia" /></td>
</tr>
</table>
</FORM></td>
</tr>
<tr>
<td> </td>
<td><% If strErr <> "" Then %>
<span class="alerta">Error al enviar la Noticia:</span>
<% = strErr %>
<% End If %>
<% If bSuccess Then %>
<span class="enviook">OK! Noticia enviada correctament a</span>:
<% = Request("To") %>
<% End If %></td>
</tr>
</table>
</BODY>
</HTML>