O componente de upload está entre os ****************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../includes/conex.asp" -->
<%
Set rs = conexao.execute("select * from teste_emails")
titulo = Request("titulo")
msg = Replace(Request("msg"),VbCrLf,"<br>")
'************************************************************
'************************************************************
Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 150000
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = false
objUpload.Save "../imagens/fotos"
Set objUpload = Nothing
Response.Write "Upload efetuado com sucesso"
'************************************************************
'************************************************************
%>
<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<%
while not rs.eof
html_email="<html>"&vbnewline
html_email=html_email+"<head>"&vbnewline
html_email=html_email+"<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>"&vbnewline
html_email=html_email+"<title>Site</title>"&vbnewline
html_email=html_email+"<table bgcolor=c0c0c0 width=500>"&vbnewline
html_email=html_email+"<tr>"&vbnewline
html_email=html_email+"<td><b>"&titulo&"<b></td>"&vbnewline
html_email=html_email+"</tr>"&vbnewline
html_email=html_email+"</table>"&vbnewline
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Site."
Mailer.FromAddress= "contato@site.com.br"
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient rs("emails"), rs("emails")
Mailer.Subject = Request("assunto")
Mailer.ContentType = "text/html"
Mailer.Bodytext = html_email
If Mailer.SendMail Then
Response.Write "Mensagem enviada com sucesso "& rs("emails") & "<br>"
Else
Response.Write "Erro " & Mailer.Response
End If
Set Mailer = Nothing
rs.movenext
wend
%>
</body>
</html>
Há! Tava esquecendo...
Tá dando esse erro:
Upload efetuado com sucesso
Request object error 'ASP 0208 : 80004005'
Cannot use generic Request collection
/webmail/email_marketing_chk.asp, line 46
Cannot use the generic Request collection after calling BinaryRead.
Edição feita por: LeoB, 26/07/2004, 15:07.
