Ir para conteúdo
Fórum Script Brasil

spriggan

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    27

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que spriggan postou

  1. spriggan

    Aspemail

    pergunta respondeu ao spriggan de spriggan em ASP

    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.....
  2. spriggan

    Aspemail

    pergunta respondeu ao spriggan de spriggan em ASP

    Galera! desculpe minha ignorancia.... mas ainda to meio perdido, não estou conseguindo fazer o loop e tmb não encontrei material para servir de base para fazer as paginações, alguém tem alguma dica?
  3. spriggan

    Aspemail

    pergunta respondeu ao spriggan de spriggan em ASP

    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!...
  4. spriggan

    Aspemail

    pergunta respondeu ao spriggan de spriggan em ASP

    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!!!
  5. spriggan

    Aspemail

    uma questão postou spriggan ASP

    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!
  6. spriggan

    (Resolvido) Calcular data

    pergunta respondeu ao spriggan de spriggan em ASP

    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!!!!!!!!
  7. spriggan
    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
  8. spriggan
    isso mesmo valeuuuuuuuuuu
  9. spriggan
    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?????
  10. spriggan
    <%@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">&nbsp;</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>&nbsp;</p> <% rsaltera.Close() Set rsaltera = Nothing %>
  11. spriggan

    ASP

    pergunta respondeu ao spriggan de spriggan em ASP

    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!
  12. spriggan
    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?
  13. spriggan

    ASP

    pergunta respondeu ao spriggan de spriggan em ASP

    Time out...
  14. spriggan

    ASP

    pergunta respondeu ao spriggan de spriggan em ASP

    <%@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>&nbsp;</td> </tr> <tr> <td></td> <td>&nbsp;</td> </tr> </table> <br /> <table width="94%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>&nbsp;</td> </tr> </table> </body> <meta HTTP-EQUIV="refresh" CONTENT="3"> </html>
  15. spriggan

    ASP

    pergunta respondeu ao spriggan de spriggan em ASP

    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()
  16. spriggan

    ASP

    pergunta respondeu ao spriggan de spriggan em ASP

    no caso então o select ficaria assim: SELECT * FROM dbo.PRODUTOS_PRECOS, PRODUTOS_BARRA WHERE dbo.PRODUTOS_PRECOS.PRODUTO = 'MMColParam' AND CODIGO_TAB_PRECO = 5 OR dbo.PRODUTOS_BARRA.CODIGO_BARRA = 'MMColParam'
  17. spriggan

    ASP

    uma questão postou spriggan ASP

    olá boa tarde galera.... trago mais um probleminha aqui pra vocês.. espero q me ajudem.... seguinte, tenho recordset criado na minha pagina, onde é exibido os resultados da consulta. o select ficou assim.... SELECT * FROM dbo.PRODUTOS_PRECOS, PRODUTOS_BARRA WHERE dbo.PRODUTOS_PRECOS.PRODUTO = 'MMColParam' AND dbo.PRODUTOS_BARRA.CODIGO_BARRA = 'MMColParam' AND CODIGO_TAB_PRECO = 5 implementei o código com: if Recordset1.eof then response.write "Produto não encontrado." response.end end if mas o problema é o seguinte, o resultado não é exibido ....! quando informo o valor da pesquisa, sempre são dois (REFERENCIA = TABELA PRODUTOS) e CODIGO DE BARRAS (uso contains pra pesquisar na coluna CODIGO_BARRA que pertence a outra tabela) será sempre assim ou um item ou o outro item nunca os dois, mas o interessante seria ter um unico textfield para fazer estas consultas. como fazer para exibir que referencia ou código não forem encontrados....? pois desta forma que fiz, com o if Recordset1.eof then não retorna resultado pois se pesquisar pela referencia (produto) o campo do codigo não retornaria resultado daí o recordset1.eof retorna que não há registros como corrigir.????
  18. spriggan
    Opa Rafael, antes de mais nada, obrigado pela força e paciencia.....!!!!! bom a consulta geral não daria muito certo porque são cerca de 12 mil itens no banco, o que preciso é fazer um sisteminha para complementar o software utilizado na empresa em que trabalho, e preciso que funcione mais ou menos desta forma: como funciona em ambiente comercial, trata-se de um sistema de pré atendimento onde o vendedor informaria as peças que o cliente deseja (que podem ser varias peças) daí o vendedor faz a pesquisa do produto e dpois obtem o resultado com lista de produtos valores individuais e soma total
  19. spriggan
    Valeu Rafael!!!!!
  20. spriggan
    Olá a todos... maus uma duvida de como proceder.... bom preciso criar uma lista com os itens pesquisados..... exemplo.... pesquiso o item 000.01.00111 o mesmo iria para lista ao pesquisar um novo item tambem iria para a lista como se fosse um carrinho de compras onde nesta lista, somaria-se o valores num resultado final.
  21. spriggan
    Valeu Rafael, era isso mesmo.......... muito obrigado!
  22. spriggan
    Olá pessoal, mais uma vez recorrendo a ajuda de vocês, bem meu problema agora está sendo o seguinte., tenho um banco de dados SQL SERVER 2005 e fiz uma pagina ASP para alterar alguns valores, no banco... só que... há duas chaves primarias na tabela uma está na coluna COD_TAB_PRECO e outra no PRODUTO na tabela COD_TAB eu tenho apenas dois valores 5 e 1, na tabela produto eu tenho referencia, meu problema é q tenho o mesmo cadastro de referencia nos dois valores da tabela COD_TAB como alterar criar um filtro que alteraria as referencias (produtos) que tivessem apenas o valor 5 na tabelas COD_TAB ahhh, estou contando com o auxilio do dreamweaver para construir o código, mas como ficaria um filtro para algo assim?
  23. spriggan
    Opa, valeu pela força Rafael, seguinte, consegui resolver o problema estava em duas partes, parte 1.... a coluna da chave unica estava errado, alterei e passou a dar um outro probleminha, mas esse já é mais facil, éh na nora de passar para proxima pagina. esse eu do conta de resolver por aqui...... Rafael, quais materiais de estudo você me indicaria, pois tenho um projeto aqui no trabalho, será algo com muito util entender melhor os códigos que estarei utilizando e é uma ótima forma de desprender um pouco mais do dreamweaver vlww.
  24. spriggan
    O código aeeee <%@LANGUAGE="VBSCRIPT"%> <!--#include file="../Connections/loja.asp" --> <% Dim MM_editAction 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 Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_update")) = "form1") Then If (Not MM_abortEdit) Then ' execute the update Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_loja_STRING MM_editCmd.CommandText = "UPDATE dbo.PRODUTOS_PRECOS SET CODIGO_TAB_PRECO = ?, PRODUTO = ?, PRECO1 = ?, PRECO2 = ?, PRECO3 = ?, PRECO4 = ?, LIMITE_DESCONTO = ?, PROMOCAO_DESCONTO = ?, ULT_ATUALIZACAO = ?, INICIO_PROMOCAO = ?, FIM_PROMOCAO = ?, DATA_PARA_TRANSFERENCIA = ? WHERE PRODUTO = ?" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 2, Request.Form("CODIGO_TAB_PRECO")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 12, Request.Form("PRODUTO")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("PRECO1"), Request.Form("PRECO1"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("PRECO2"), Request.Form("PRECO2"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("PRECO3"), Request.Form("PRECO3"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("PRECO4"), Request.Form("PRECO4"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("LIMITE_DESCONTO"), Request.Form("LIMITE_DESCONTO"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("PROMOCAO_DESCONTO"), Request.Form("PROMOCAO_DESCONTO"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 135, 1, -1, MM_IIF(Request.Form("ULT_ATUALIZACAO"), Request.Form("ULT_ATUALIZACAO"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 135, 1, -1, MM_IIF(Request.Form("INICIO_PROMOCAO"), Request.Form("INICIO_PROMOCAO"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 135, 1, -1, MM_IIF(Request.Form("FIM_PROMOCAO"), Request.Form("FIM_PROMOCAO"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 135, 1, -1, MM_IIF(Request.Form("DATA_PARA_TRANSFERENCIA"), Request.Form("DATA_PARA_TRANSFERENCIA"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 200, 1, 12, Request.Form("MM_recordId")) ' adVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "dskv.asp?DSK=" + (Recordset1.Fields.Item("PRODUTO").Value) + "" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("TROCAPRECO") <> "") Then Recordset1__MMColParam = Request.QueryString("TROCAPRECO") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_loja_STRING Recordset1_cmd.CommandText = "SELECT * FROM dbo.PRODUTOS_PRECOS WHERE PRODUTO = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 12, Recordset1__MMColParam) ' adVarChar Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %><style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #FFFFFF; } body { background-image: url(../img/background.jpg); background-repeat: repeat; } --> </style> <form method="POST" action="<%=MM_editAction%>" name="form1"> <table align="center"> <tr valign="baseline"> <td nowrap align="right">CODIGO_TAB_PRECO:</td> <td><%=(Recordset1.Fields.Item("CODIGO_TAB_PRECO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">PRODUTO:</td> <td><%=(Recordset1.Fields.Item("PRODUTO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">PRECO1:</td> <td><input type="text" name="PRECO1" value="<%=(Recordset1.Fields.Item("PRECO1").Value)%>" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">PRECO2:</td> <td><%=(Recordset1.Fields.Item("PRECO2").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">PRECO3:</td> <td><%=(Recordset1.Fields.Item("PRECO3").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">PRECO4:</td> <td><%=(Recordset1.Fields.Item("PRECO4").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">LIMITE_DESCONTO:</td> <td><%=(Recordset1.Fields.Item("LIMITE_DESCONTO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">PROMOCAO_DESCONTO:</td> <td><%=(Recordset1.Fields.Item("PROMOCAO_DESCONTO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">ULT_ATUALIZACAO:</td> <td><%=(Recordset1.Fields.Item("ULT_ATUALIZACAO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">INICIO_PROMOCAO:</td> <td><%=(Recordset1.Fields.Item("INICIO_PROMOCAO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">FIM_PROMOCAO:</td> <td><%=(Recordset1.Fields.Item("FIM_PROMOCAO").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">DATA_PARA_TRANSFERENCIA:</td> <td><%=(Recordset1.Fields.Item("DATA_PARA_TRANSFERENCIA").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">&nbsp;</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="<%= Recordset1.Fields.Item("PRODUTO").Value %>"> <input name="hiddenField" type="hidden" value="<%=(Recordset1.Fields.Item("CODIGO_TAB_PRECO").Value)%>" /> <input name="hiddenField2" type="hidden" value="<%=(Recordset1.Fields.Item("LIMITE_DESCONTO").Value)%>" /> <input name="hiddenField3" type="hidden" value="<%=(Recordset1.Fields.Item("PRODUTO").Value)%>" /> <input name="hiddenField4" type="hidden" value="<%=(Recordset1.Fields.Item("LIMITE_DESCONTO").Value)%>" /> <input name="hiddenField5" type="hidden" value="<%=(Recordset1.Fields.Item("PROMOCAO_DESCONTO").Value)%>" /> <input name="hiddenField6" type="hidden" value="<%=(Recordset1.Fields.Item("ULT_ATUALIZACAO").Value)%>" /> <input name="hiddenField7" type="hidden" value="<%=(Recordset1.Fields.Item("INICIO_PROMOCAO").Value)%>" /> <input name="hiddenField8" type="hidden" value="<%=(Recordset1.Fields.Item("FIM_PROMOCAO").Value)%>" /> <input name="hiddenField9" type="hidden" value="<%=(Recordset1.Fields.Item("PRECO4").Value)%>" /> <input name="hiddenField10" type="hidden" value="<%=(Recordset1.Fields.Item("PRECO3").Value)%>" /> <input name="hiddenField11" type="hidden" value="<%=(Recordset1.Fields.Item("PRECO2").Value)%>" /> </form> <p>&nbsp;</p> <% Recordset1.Close() Set Recordset1 = Nothing %>
  25. spriggan
    Olá, estou desenvolvendo um sisteminha para alterar um valor no banco de dados sql..... estou utilizando o Dreamweaver para confecção do código ASP bom, o problema está sendo esse, apos clicar no botão que altera o valor, no banco.... é retornado o seguinte erro...... Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver][sql Server]Parameterized Query '(@P1 text,@P2 text,@P3 float,@P4 float,@P5 float,@P6 float,@P7 f' expects parameter @P1, which was not supplied. e acusa o erro na linha 47 MM_editCmd.Execute
×
×
  • Criar Novo...