porfavor ayuda

angelseron · #1 (**permalink**) 07/07/2005, 17:29

necesito una ayuda urgente, necesito un asp queem permita enviar el formulario, este asp debe ser enviado a 4 personas.garcias

El_Metallick · #2 (**permalink**) 07/07/2005, 18:56

enviado por mail???? si es asi hay muchos manuales en internet y temas en este foro que tratan eso.... saludos y suerte

orharo2003 · #3 (**permalink**) 08/07/2005, 07:50

me late que no tienes idea, por que no comienzas buscando un manualito de asp, y cuando lo leas si te surge alguna duda con gusto te echamos la mano Ok.

Elbrinner · #4 (**permalink**) 08/07/2005, 15:19

Estoy contento hoy. Hay vay mi regalito.
Busque un manual que sera lo mejor. nin siempre tendras la suerte de ganar un codigo limpio y listo para usar.

Código HTML:

<% 
Response.Buffer = True 
id=Request.querystring("id") 
strURL = Request.ServerVariables("URL") 
col = Trim(Request.QueryString("col"))

If Request.QueryString("pagina") = "" Or Request.QueryString("pagina") = "0" Then
pagina= 1
Else
pagina = Request("pagina")
End If

registros = 1


Set Conn = Server.CreateObject("AdoDb.Connection") 
conexao = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;PWD= ;Initial Catalog= ;Data Source=servidorr"
Conn.open conexao

set RS = Server.Createobject("AdoDB.RecordSet") 
set RS.ActiveConnection = conn 
RS.cursortype = 3 

RS.CursorLocation = 3
RS.CursorType = 2
RS.LockType = 1
RS.CacheSize = registros
RS.pagesize = registros 
status = ""


		SQL = "SELECT email FROM MPboletim ORDER by email asc "
		RS.Open SQL,Conn,3,3
		

PageCount = RS.PageCount 


if RS.EOF then 
Response.Write "<div align=center><p>&nbsp;</p><p>Não exister emails registrados nesse boletim</p></div>"
else 
SQL2 = "SELECT * FROM MPregboletim where id = '"& id &"' "
Set Rsbol = Conn.Execute(SQL2)
RS.absolutepage = pagina 
status_envio = status_envio & Fix((pagina*100)/PageCount) & "% enviado<br>"
For Cont = 1 to registros

'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviada
msn=rsbol("texto")
dim strMensagem 
strMensagem = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
strMensagem = strMensagem & "<HTML><HEAD>"
strMensagem = strMensagem & "<body>" 
strMensagem = strMensagem & "<table width=500 border=0 align=center cellspacing=5><tr> <td width=171><a href=http://www.meupais.com target=_blank><img src=http://www.meupais.com/imagens/email/logo_default.jpg title=meupais.com alt=meupais.com width=155 height=135 border=0></a></td>"
strMensagem = strMensagem & "<td width=319 valign=top><div align=right> <p><font size=2 face=Geneva, Arial, Helvetica, sans-serif><br>&gt;&gt; <a href=http://www.meupais.com target=_blank>Ir ao site</a></font></p>  <p align=center><font size=2 face=Verdana, Arial, Helvetica, sans-serif><strong>Esse &eacute; um e-mail gerado automaticamente. N&atilde;o &eacute; necess&aacute;rio respond&ecirc;-lo. </strong></font></p></div></td>"
strMensagem = strMensagem & "</tr><tr> <td colspan=2><img src=http://www.meupais.com/imagens/email/modelo_topo_cat_boletim.gif width=500 height=35></td>"
strMensagem = strMensagem & "</tr><tr valign=top> <td colspan=2>"
strMensagem = strMensagem & "<p><font size=2 face=Verdana, Arial, Helvetica, sans-serif>"&msn&"<p  align=center></p><br><br><br><br><br> Caso não deseje mais receber o boletim, <a href=http://www.meupais.com/default.asp?mail="&rs("email")&"&opcao=8 target=_blank>clique aqui</a></font> </p></td></tr></table></body></html>"


titulo = rsbol("titulo")
if titulo = "" then
titulo = "Novidades"
end if
nome=rs("email")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName =  "Meu País.com - Boletim"
Mailer.FromAddress=  "[email protected]"
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient nome, rs("email")
Mailer.ContentType = "text/html" ' formatação html 
Mailer.Subject = titulo
Mailer.BodyText = strMensagem
If Mailer.SendMail Then 
    Response.Write " " 
Else 
    Response.Write "Erro " & Mailer.Response 
End If
Set Mailer = nothing



rs.MoveNext
Next

If Int(pagina) < Int(PageCount) Then

Response.Write  status_envio

%>

<br>
Aguarde o envio do boletim...

<SCRIPT LANGUAGE="JavaScript">
<!--
function atualiza(){
document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina=<%=pagina +1%>&id=<%=id%>"
}
setTimeout("atualiza()",5000);
//-->
</SCRIPT>

<%
Else

%>

Envio do boletim concluido.

<%
AT="update mpregboletim set cont=(cont+1)where id = "&id&" "
    Conn.Execute(AT)

End If


    
end if %>
      
      <%
RS.Close 
Set RS = Nothing 

%>

un saludo

El_Metallick · #5 (**permalink**) 08/07/2005, 16:28

de hecho es raro que lo hagan en el foro... siempre se recomiendo buscar y leer primero... le foro mas que para hacer script es para ayudar a solucionar los problemas que tienes cuando tu mismo los haces... eso saludos y suerte