spriggan
-
Total de itens
27 -
Registro em
-
Última visita
Sobre spriggan
spriggan's Achievements
0
Reputação
-
Salve Galera, seguinte até o momento o código tá assim....: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="Connections/grupoborin.asp" --> <% ' change to address of your own SMTP server strHost = "MEU HOSTsmtp" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <style type="text/css"> <!-- .style1 { color: #FF0000; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; } .style2 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #000000; } .style8 {color: #000000} .style9 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #FF0000;} --> </style> </head> <body> <FORM ACTION="aspmailrestricoes.asp"> <p>Envia p/ Queue: <input type="checkbox" name="Queue" checked> Está opção diminue a carga sobre o IIS no servidor) <BR> <INPUT TYPE=SUBMIT NAME="Send" VALUE="Enviar Email para todos os clientes."> </p> <p><span class="style1"> <% If strErr <> "" Then %> Erros </span><span class="style9"><span class="style8">durante o envio</span></span><span class="style1"><span class="style8">:</span> <% = strErr %> </span><span class="style9"><span class="style8">para conta(s):</span></span><span class="style1"> <% = Request("To") %> <% End If %> </span><br /> <span class="style2"> <% If bSuccess Then %> Mensagens Enviadas corretamente <% = Request("To") %> . <% End If %> </span></p> <p><br /> <% Dim rs Dim rs_cmd Dim rs_numRows Set rs_cmd = Server.CreateObject ("ADODB.Command") rs_cmd.ActiveConnection = MM_grupoborin_STRING rs_cmd.CommandText = "select email,cliente_varejo from clientes_varejo where email is not null and email <> ''" rs_cmd.Prepared = true Set rs = rs_cmd.Execute rs_numRows = 0 If Request("Send") <> "" Then ' send email to all users Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.IsHTML = False Mail.From = "MAIL DO REMETENTE" Mail.FromName = "NOME DO REMETENTE" Mail.Subject = "ASSUNTO" 'ANEXOS strPath = Server.MapPath(".") Mail.AddAttachment strPath & "c:\placapare.jpg" Mail.AddAttachment strPath & "c:\fitapare.gif" 'FIM ANEXOS 'CORPO DA MENSAGEM Mail.Body = "MENSAGEM" ' INSERE EMAIL While not rs.EOF Mail.AddBcc (rs.Fields.Item("email").Value),(rs.Fields.Item("cliente_varejo").Value) rs.MoveNext Wend If Request("Queue") <> "" Then Mail.Queue = True End if ' ENVIANDO MENSAGEM Mail.Username = "USUARIO" Mail.Password = "SENHA" strErr = "" bSuccess = False On Error Resume Next ' Pega os erros Mail.Send If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If Response.Write "Comando processado consulte o log para maiores informações." Else ' Mostra os emails a serem enviados Response.Write "<B>Clientes encontrados para esta operação:</B><P>" While not rs.EOF Response.write "" Response.Write (rs.Fields.Item("cliente_varejo").Value) & " (" & (rs.Fields.Item("email").Value) & ")<BR>" rs.MoveNext Wend End If %> </p> </FORM> </BODY> </HTML> </body> </html> <% rs.Close() Set rs = Nothing %> O código tá pegando todos os mail cadastrados, dpois você clica no botão e ele processa e envia tudo numa boa, os mails não caem como spam cai tudo certido do geito q eu quero, porem quando aponto pra tabela real, ao invés de usar a de teste ocorre o seguinte erro: Tipo de erro: Active Server Pages, ASP 0107 (0x80004005) Os dados que estão sendo processados estão acima do limite permitido. /estudo_asp/aspmail_maladireta.asp na base de testes eu tinha 120 mails cadastrados, na base real tenho mais ou menos 12mil.....
-
Vlwww com as dicas já tá enviando... agora como inicio o segundo passo?? Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.hostnet.com.br" Mail.From = "comercial@hostnet.com.br" Mail.FromName = "Teste" Mail.AddAddress "hugnei@hotmail.com", "Hugnei" Mail.Subject = "Restrição Colcci" Mail.Body = "Querida Jessica:" & chr(13) & chr(10) & "Obrigado pelos bons negócios . Seu gerente de vendas" Neste caso... nas linhas Mail.AddAddress "hugneicolcci@hotmail.com", "Hugnei" Mail.Body = "Querida Jessica:" & chr(13) & chr(10) & "Obrigado pelos bons negócios . Seu gerente de vendas" como seria para enviar para uma msg dessa para as listas, eu preencho os campos mail e o nome do cliente, mas como fazer para esta ação ir para todos os clientes cadastrados porque assim vai mais vai só um, tmb to com outro como saber qntos e quais emails derram erro, e quantos foram enviados corretamente, e tmb aí entra a paginação q o rafael mensionou e tmb to perdido... rs pra variar!...
-
Opa Rafael Antes de mais nada obrigado pela força!!! Bom o componente que está disponibilizado no servidor, é o aspemail mesmo, o servidor é local (as paginas são voltadas pra intranet) o componente foi eu que instalei peguei no site oficial do componente, e registrei a dll conforme as instruções de instalação do componente! outra duvida, seria como fazer em relação a autenticação..... uma vez q o servidor smtp requer.... OBS: Não preciso utilizar necessáriamente este componente do aspemail, se existirem outros (gratuíto) no qual alguém aqui no forum já trabalhou ou recomenda!!!
-
Boa tarde a todos!!!!! Galera, seguinte, andei tentando fazer o envio de mensagens via ASP, gostaria de contar com a ajuda de vocês... não tenho mta ideia de por onde começar, andei lendo alguns posts mas ainda tenho mtas duvidas de como fazer meus clientes estão cadastrados em um banco sql server, e gostaria de enviar o email a todos os cadastrados retornados pelo sqlo conteudo de minha mensagem será praticamente o mesmo sempre mudando apenas o nome do cliente. outro problema que tenho é que as vezes os mails, podem superar o numero max de mensagem que o servidor smtp, permite dai teria q passar por mais de um host em alguns casos. outra duvida é q no meu caso meu host smtp exige autenticação e ainda não encontrei nada para auxiliar neste tratamento... até onde acompanhei, é necessário um componente para fazer o mesmo. estou usando o aspemail segue o material que tenho tentado trabalhar.! vlwww galera!
-
Valeu mesmo! Estava tentando somar valor no date, tava dando certo exeto pelo ano q ficava assim 200920 kkkk valeu Jow caramba, muito esplicativo mesmo Rafael, Os dois tópicos foram pra minha biblioteca!!! Valeu mesmo pela força!!!!!!!!
-
Olá a todos!!!! novamente dpois de horas quebrando a cabeça .... mais um pedido de socorro!!!!! galera seguinte, estou usando uma session pra capturar a data atual da maquina só alem desta informação gostaria de exibir, uma outra data pro usuario exemplo, ao lançar o registro a session pega a data atual da maquina, dia 20/01/2009 (data para entrega) e queria uma outra data fosse exibida automaticamente a data de retorno que seria 30 dias após a data de entrega.... como façoe este calculo? estou usando uma sessions simples session ("dataatual") = date
-
isso mesmo valeuuuuuuuuuu
-
Salve galera, tenho uma coluna num banco SQL (datatime) gostaria de criar um filtro para filtrar um RS da seguinte forma pela data do dia vigente e pela coluna de preço ordenado do maior para o menor.... alguém pode me ajudar com um exemplo desse select?????
-
<%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/grupo_borin.asp" --> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_grupo_borin_STRING MM_editTable = "dbo.LOJA_VENDA" MM_editColumn = "CODIGO_FILIAL" MM_recordId = "'" + Request.Form("MM_recordId") + "'" MM_editRedirectUrl = "" MM_fieldsStr = "DATA_VENDA|value" MM_columnsStr = "DATA_VENDA|',none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsaltera__MMColParam rsaltera__MMColParam = "1" If (Request.QueryString("TICKET") <> "") Then rsaltera__MMColParam = Request.QueryString("TICKET") End If %> <% Dim rsaltera Dim rsaltera_numRows Set rsaltera = Server.CreateObject("ADODB.Recordset") rsaltera.ActiveConnection = MM_grupo_borin_STRING rsaltera.Source = "SELECT * FROM dbo.LOJA_VENDA WHERE TICKET = '" + Replace(rsaltera__MMColParam, "'", "''") + "'" rsaltera.CursorType = 0 rsaltera.CursorLocation = 2 rsaltera.LockType = 1 rsaltera.Open() rsaltera_numRows = 0 %> <form method="post" action="<%=MM_editAction%>" name="form1"> <table align="center"> <tr valign="baseline"> <td nowrap align="right">DATA_VENDA:</td> <td><input type="text" name="DATA_VENDA" value="<%=(rsaltera.Fields.Item("DATA_VENDA").Value)%>" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right"> </td> <td><input type="submit" value="Update record"> </td> </tr> </table> <input type="hidden" name="MM_update" value="form1"> <input type="hidden" name="MM_recordId" value="<%= rsaltera.Fields.Item("CODIGO_FILIAL").Value %>"> </form> <p> </p> <% rsaltera.Close() Set rsaltera = Nothing %>
-
Cara estou seguindo sua sugestões a muito tmpo..... rsrsr, to começando a ver a realidade da matrix, é bom olhar um código e conseguir interpreta-lo, estou muito preso ao dw isso é verdade, mas no momento não tenho tmpo pra estudar somente o código pois preciso dos resultados um pouco rapido mesmo que dpois (quando entender bem a linguagem) eu refaça tudo mesmo a nivel de estudo ou como um projeto final, tmb me interessei muito pelos resultados obtidos pelo AJAX achei show de bola.... por em quanto preciso fazer isso funcionar, assim q tiver mais tmpo conserteza terei mais perguntas, afinal num nasci sabendo néh rsrsrsrs cara a você e ao forum scriptbrasil mtooooo obrigadoo mesmo... pelas dicas, aulas e paciencia de todos!!!!!! valeuuuu...... to aqui na luta pra desvendar os misterios de ASP x DW rsrsrs valeu mesmo pela força!
-
Boa tarde!!!!! Seguinte, esbarrei com mais um novo problema, não estou conseguindo alterar uma data no banco de dados o banco é SQL SERVER 05. o erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][ODBC SQL Server Driver][sql Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value. alguém pode ajudar?
-
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/loja.asp" --> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("itempesquisa") <> "") Then Recordset1__MMColParam = Request.QueryString("itempesquisa") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_loja_STRING Recordset1.Source = "SELECT * FROM dbo.PRODUTOS_PRECOS, PRODUTOS_BARRA WHERE dbo.PRODUTOS_PRECOS.PRODUTO = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND CODIGO_TAB_PRECO = 05 OR dbo.PRODUTOS_BARRA.CODIGO_BARRA = '" + Replace(Recordset1__MMColParam, "'", "''") + "'" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 if Recordset1.eof then response.write "Produto não encontrado." response.end end if %> <% Recordset1.Close() Set Recordset1 = Nothing %> O HTML: <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> itempesquisa <table width="800" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="177"><%=(Recordset1.Fields.Item("PRODUTO").Value)%></td> <td width="623"><%=(Recordset1.Fields.Item("PRECO1").Value)%> </td> </tr> <tr> <td><%=(Recordset1.Fields.Item("CODIGO_BARRA").Value)%> </td> <td> </td> </tr> <tr> <td></td> <td> </td> </tr> </table> <br /> <table width="94%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> </td> </tr> </table> </body> <meta HTTP-EQUIV="refresh" CONTENT="3"> </html>
-
Testei desta forma que passei acima, porem quando testo agora tá danto time out..... testei deste outro metodo mas obtive o mesmo resultado tempo exedido.... SELECT a.*,b.* FROM dbo.PRODUTOS_PRECOS a inner join PRODUTOS_BARRA b on a.PRODUTO = 'MMColParam' AND a.CODIGO_TAB_PRECO = 05 OR b.CODIGO_BARRA = 'MMColParam' e assim também SELECT a.*,b.* FROM dbo.PRODUTOS_PRECOS a inner join PRODUTOS_BARRA b on (a.PRODUTO = 'MMColParam' AND a.CODIGO_TAB_PRECO = 05) OR (a.CODIGO_TAB_PRECO = 05 AND b.CODIGO_BARRA = 'MMColParam') o resultado foi: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E31) [Microsoft][ODBC SQL Server Driver]Tempo excedido /prevenda/frame.asp, line 21 LINHA 21: Recordset1.Open()