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.