Pesquisar na Comunidade

Boa tarde, Poderiam me ajudar? Estou precisando gerar uma carga de uns xls e jogar no banco... fiz o asp, carrego o recordset, exibo os dados... mas na hora de executar o insert na tabela fica dando esse erro: Microsoft VBScript runtime error '800a01a8' Object required: 'insert into Perfil (' /gravaacess.asp, line 57 Linha 57 vc1 = RS("Perfil") vc2 = RS("Descricao") vc3 = RS("Funcao") cmd="insert into Perfil (Perfil,Descricao,Funcao) values (?,?,?)" cmd.Execute quant,Array(vc1,vc2,vc3)

Pessoal. Seguinte. Tenho uma pagina que recupera alguns dados normalmente do banco postgres. Acontece que um desses campos esta assim na tabela: {\rtf1\ansi\ansicpg1252\uc1\deff0\adeff0\deflang0\deflangfe0\adeflang0{\fonttbl {\f0\fnil\fcharset0\fprq2 Arial;} {\f1\fswiss\fcharset0\fprq2 Tahoma;} {\f2\froman\fcharset2\fprq2 Symbol;}} {\colortbl;} {\stylesheet{\s0\ltrpar\itap0\nowidctlpar\ql\li0\ri0\lin0\rin0\rtlch\af0\afs24\ltrch\f0\fs24 [Normal];}{\*\cs10\additive Default Paragraph Font;}} {\*\generator TX_RTF32 21.0.551.501;} \paperw11907\paperh16840\margl567\margt567\margr567\margb567\deftab1134\widowctrl\lytexcttp\formshade\sectd \headery0\footery0\pgwsxn11907\pghsxn16840\marglsxn567\margtsxn567\margrsxn567\margbsxn567\pgbrdropt32\pard\ltrpar\itap0\nowidctlpar\ql\li0\ri0\lin0\rin0\plain\rtlch\af1\afs20\alang1046\ltrch\f1\fs20\lang1046\langnp1046\langfe1046\langfenp1046 - 55 ANOS\par - NEGA ETILISMO E TABAGISMO\par - ROSIVANIA - IRM\loch\af1\dbch\af1\hich\f1\'c3\hich\af1\dbch\af1\loch\f1 / NITA - IRM\loch\af1\dbch\af1\hich\f1\'c3\par\hich\af1\dbch\af1\loch\f1 - HAS \par - AVO MATERNA - CA DE MAMA\par - G3P2A1\par\par\par - REFERE TER GASTRITE, REALIZOU EDA \par\par EDA 31/01/20 = BLASTOMA G\loch\af1\dbch\af1\hich\f1\'c1\hich\af1\dbch\af1\loch\f1 STRICO\par\par AP DE BIOPSIA G\loch\af1\dbch\af1\hich\f1\'c1\hich\af1\dbch\af1\loch\f1 STRICA 10/02/20 = CARCINOMA DE C\loch\af1\dbch\af1\hich\f1\'c9\hich\af1\dbch\af1\loch\f1 LULAS EM ANEL DE SINETE. CLASSIFICA\loch\af1\dbch\af1\hich\f1\'c7\'c3\hich\af1\dbch\af1\loch\f1 O DE LAUREN - TIPO DIFUSO, GRAU 3. H PYLORI NEGATIVO\par\par SEM QUEIXAS, INQUERIDA NEGA SINTOMAS DIGESTIVOS. ACEITA BEM A DIETA.\par\par\par AO EXAME:BEG, CONSCIENTE, ORIETADA, PESO = 52,60 / ALT = 1,58\par ACV - RCR EM 2T\par AR - MV + EM AHT, SEM RA\par ABD - NORMOTENSO, FLACIDO\par EXT - SEM EDEMA\par\par\par CONDUTA:\par - SOLICITO IHQ\par - SOLICITO CA 125, CEA, CA 19.9\par - AGUARDO TC DE TORAX E ABD E CINT \loch\af1\dbch\af1\hich\f1\'d3\hich\af1\dbch\af1\loch\f1 SSEA QUE REALIOU ONTEM E HOJE NA .\par\par\par -----\par\par } A duvida e como converter isso. já tentei com replace sem sucesso. Teria alguma solução? Eu recupero o texto assim: <%=obRS2("texto").Value%>

Olá, preciso de umas orientações para desenvolver umas regras para push notification. Com o código abaixo conseguir que fosse apresentado no momento de uma confirmação, ou ao carregar uma página. Tudo bem no agora. if ('Notification' in window) { pushSubscription(); function pushSubscription() { console.log(pushSubscription.subscriptionId); console.log(pushSubscription.endpoint); } if (Notification.permission === 'granted') { doNotify(); } else { Notification.requestPermission().then(function (result) { console.log(result); //granted || denied if (Notification.permission == 'granted') { doNotify(); } }).catch((err) => { console.log(err); }); } } function doNotify() { let title = "Cabeçalho"; let t = Date.now() + 120000; let options = { body: 'Corpo da notificação!', data: { prop1: Notification.permission, prop2: "Sara" }, lang: 'pt-BR', //icon: './Images/icon.png', timestamp: t, vibrate: [100, 200, 100], } let n = new Notification(title, options); n.onclick = function () { window.open("http://crmsense.com.br/"); }; n.addEventListener('show', function (ev) { console.log('SHOW', ev.currentTarget.data); }); n.addEventListener('close', function (ev) { console.log('CLOSE', ev.currentTarget.body); }); setTimeout(n.close.bind(n), 120000); } Eu estou com dificuldades para fazer com que este siga regras para ser apresentado, tais como apresentar a um grupo especifico. Estava pensando em algo como notificações que se diferenciam por grupos, exemplo: -> HelpDesk (fulano 1, fulano 2 e fulano 3), estes receberiam (apenas eles) notificações quando chamados fossem abertos. Por ai vai... Alguém consegue me dá uma luz? Atenciosamente, Sara Tenorio.

Bom dia a todos, Estou desenvolvendo uma página com um Form que é enviado a um link eterno, a questão é gravar os dados desse Form em um banco de dados usando VBScript antes que seja enviado. Não manjo muito de Javascript mas o código está assim por enquanto: Página do formulário: <form action="cadastro.asp" method="post" id="id-do-form" name="nome-do-form" class="validate" target="_blank" novalidate OnSubmit="return Valida(this)"> Código na mesma página: <script language="javascript"> function Valida(form){ <% ' Session("nomereal") = Request.Form("FNAME") Session("email") = Request.Form("EMAIL") Session("nome") = Request.Form("USUARIO") Session("senha") = Request.Form("SENHA") Session("confirme_senha") = Request.Form("CONFIRMESENHA") %> { document.getElementById("id-do--form").action = "link externo pra onde será enviado o form"; // Setting form action to "success.php" page document.getElementById("id-do-form").submit(); // Submitting form } }; end function </script> Agradeço toda ajuda.

A finalidade do código abaixo é listar todos os registros de determinado campo de um BD *.mdb. Mas o resultado que aparece quando executo o código é: uma página em branco. Podem me ajudar a resolver o problema. O código é: <html> <body> <% Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\localuser\jamesnascimento\banco\bancoG.mdb;" Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open Caminho SqlStr="SELECT * FROM Tabela1 WHERE linkli LIKE '%" & "%'" Set Rs = oConn.Execute(SqlStr) If Rs.EOF then Response.Write("O Resultado da solicitação é:") Do until Rs.eof If rs.fields.count>0 then else Response.Write("Não foi encontrada registro") End If Response.Write("<br><br>Protocolo:"& Rs.fields("linkli")&"</br>") Response.Write("Titulo:"& rs.fields ("httpli")&"<br>") Response.Write("Tipo:"& rs.fields ("comentli")&"</br>") Response.Write("Resumo:"& rs.fields ("resumoli")&"<br>") Response.Write("Titular:"& rs.fields ("tituloli")&"<br>") Response.Write("Equipe:"& rs.fields ("equipeli")&"<br>") Rs.movenext Loop End If %> </body> </html>

Prezados colegas Alguém pode me ajudar a retirar o final de uma string depois de um conjunto de caracteres? Exemplo: String Original "http://www.site.com.br/?texto=aqui_tem_um_texto_longo" Quero retirar tudo os caracteres à partir de "?texto=" Obrigado... Qualquer ajuda é bem vinda! Ale

Bom gostaria de uma ajuda para criação de um formulário de contato do zero que conste nome, e-mail, uma caixa de seleção select, assunto e mensagem e o botao de enviar, estou precisando tenho um server e ele é em uma plataforma windows e gostaria de colocar esse formulario de contato, se tiver alguém disposto a me ajudar a fazer um form que envie mesmo e seja simples agraço.. já achei vários na internet mais não consegui fazer eles funcionarem... muito obrigado a todos. codigo do meu form <tr> <th width="50" scope="col"><p class="descritivo">* Campos Obrigatórios <form action="enviar.asp" method="POST"> <center> <table width="39%" border="0" align="left" cellspacing="0" cellpadding="0"> <tr> <td align="left"><span class="textoprincipal">*Nome:</span><br> <input type="text" size="30" name="nome" value=""></td> </tr> <tr> <td align="left"><span class="textoprincipal">*E-mail:</span><br> <input type="text" size="30" name="email" value=""></td> </tr> <tr> <td align="left"> <label for="setor" class="textoprincipal">*Setor: </label><br> <select name="setor" size="1" class="entrada"> <option value="" selected="selected">-- Escolha abaixo o setor de envio --</option> <option value="atendimento@dominio.com.br">- Vendas</option> <option value="financeiro@dominio.com.br">- Financeiro</option> <option value="ronaldo@dominio.com.br">- Terceirização</option> <option value="atendimento@dominio.com.br">- SAC</option> </select></td> </tr> <tr> <td align="left"><span class="textoprincipal">Assunto:</span><br> <input type="text" size="30" name="assunto" value=""></td> </tr> <tr> <td align="left"><span class="textoprincipal">*Mensagem:</span><br> <textarea cols="35" rows="8" name="mensagem"></textarea> </td> </tr> <tr> <td align="left"> <input name="submit" type="submit" value=" Enviar "> <input name="reset" type="reset" value=" Limpar "></td> </tr> <tr> <td align="right"> <a href = "javascript:void(0)" onclick = "document.getElementById('div_contato').style.display='none';document.getElementById('black_overlay').style.display='none'"><img src="imagens/botaovoltar.png" align="right"></a> </td> </tr> </table>

Boa noite pessoal, Estou o seguinte problema, no código abaixo trata-se de uma rotina para Push Notification com FCM(Firebase Clouding Messaging), no código eu faço um request via POST passando nele alguns dados no Header, o objetivo deste código é enviar ao dispositivo uma notificação via código, com titulo e mensagem no formato json, eis o problema não estou conseguindo criar o código para escrever o stream que esta vindo da requisição, eu sei fazer em java, segue o código em Java que eu quero que faça em ASP : Código JAVA JSONObject jGcmData = new JSONObject(); JSONObject jData = new JSONObject(); jData.put("title", title); jData.put("message", message); jGcmData.put("to", to); // What to send in GCM message. jGcmData.put("data", jData); // Create connection to send GCM Message request. URL url = new URL("https://fcm.googleapis.com/fcm/send"); HttpURLConnection conn = (HttpURLConnection) url.openConnection(); conn.setRequestProperty("Authorization", "key=AIzaSyB4YaD-UJE6_0J3bx433B53w2oUR20C6Jk"); conn.setRequestProperty("Content-Type", "application/json"); conn.setRequestMethod("POST"); conn.setDoOutput(true); // Send GCM message content. OutputStream outputStream = conn.getOutputStream(); outputStream.write(jGcmData.toString().getBytes()); Você podem notar que na ultima linha eu faço a escrita do JSON em bytes com objeto outputstream vindo do request Como eu faço isso em ASP Classic O código abaixo foi que eu tentei fazer em ASP Código em ASP Option Explicit Function StringToByteArray(s) Dim i, byteArray For i=1 To Len(s) byteArray = byteArray & ChrB(Asc(Mid(s,i,1))) Next StringToByteArray = byteArray End Function Dim jGcmData = New JSON Dim jData = New JSON jData.Add "title", "someString" jData.Add "message", "12.3" jGcmData.Add "to", "XXX" jGcmData.Add "data", jData Dim data, httpRequest, postResponse Response.Buffer = true; Set ServerXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") ServerXmlHttp.Open "POST", "https://fcm.googleapis.com/fcm/send", False ServerXmlHttp.SetRequestHeader "Authorization", "key=YYYY" ServerXmlHttp.SetRequestHeader "Content-Type", "application/json" ServerXmlHttp.Send data Dim stringToByteArray stringToByteArray = StringToByteArray(jGcmData.Serialize()) StreamResponse = ServerXmlHttp.responseStream Desde já obrigado pela ajuda e pelos comentários

Prezados colegas, Gostaria de saber se alguém pode me ajudar como inserir a linha certa para mudar e personalizar o texto em html,mudando a fonte da mensagem a ser visualizada. obrigado. ------ Msg.txt <?php //abrimos o arquivo em leitura $arquivo = 'msg.txt'; $fp = fopen($arquivo,'r'); //lemos o arquivo $texto = fread($fp, filesize($arquivo)); //transformamos as quebras de linha em etiquetas <br> $texto = nl2br($texto); ?> <p class="textomsgini"> <? echo mb_strtolower( $texto, 'UTF-8' ); ?> </p> gravar.php <link rel="stylesheet" type="text/css" href="css/msgindex.css"/> <div id="pgravar" class="central"> <?php //PEGA OS DADOS ENVIADOS PELO FORMULÁRIO $mensagem = $_POST["texto"]; //PREPARA O CONTEÚDO A SER GRAVADO $conteudo = "$mensagem\r\n"; //ARQUIVO TXT $arquivo = "msg.txt"; //TENTA ABRIR O ARQUIVO TXT if (!$abrir = fopen($arquivo, "w+")) { echo "Erro abrindo arquivo ($arquivo)"; exit; } //ESCREVE NO ARQUIVO TXT if (!fwrite($abrir, $conteudo)) { print "Erro escrevendo no arquivo ($arquivo)"; exit; } echo "Arquivo gravado com Sucesso !!<p></p>"; //FECHA O ARQUIVO fclose($abrir); ?> <form style="text-align:center"> <input type="button" value="Voltar" onClick="JavaScript: window.history.back();"> </form> </div> cadmisgine.php <link rel="stylesheet" type="text/css" href="css/msgindex.css"/> <div id="digitarmsg" class="central"> <form name="msgindex" method="post" action="gravar.php"> <h2>MENSAGEM</h2> <p>caracteres restantes: <span id="cont">580</span>)</p> <textarea onkeyup="blocTexto(this.value)" id="texto" name="texto" cols="30" rows="5" tabindex="2" style="width:400px; height:300px;"></textarea> <p> <input type="submit" name="Submit" value="Enviar"></p> </form> <script type="text/javascript"> function blocTexto(valor) { quant = 580; total = valor.length; if(total <= quant) { resto = quant - total; document.getElementById('cont').innerHTML = resto; } else { document.getElementById('texto').value = valor.substr(0,quant); } } </script> </div>

Olá a todos; Estou começando em asp(com vb) e estou com um problema que consegui resolver em partes. Ao clicar em qualquer componente(buton, dropdown, etc.) da pagina no log de erro do javascript me aparece a seguinte mensagem: ---- Uncaught Sys.WebForms.PageRequestManagerServerErrorException: Sys.WebForms.PageRequestManagerServerErrorException: Invalid postback or callback argument. Event validation is enabled using <pages enableEventValidation="true"/> in configuration or <%@ Page EnableEventValidation="true" %> in a page. For security purposes, this feature verifies that arguments to postback or callback events originate from the server control that originally rendered them. If the data is valid and expected, use the ClientScriptManager.RegisterForEventValidation method in order to register the postback or callback data for validation. ----- Pesquisando cheguei a uma solução que é colocar o elemento ( EnableEventValidation="false" ) no web.config ou no inicio de cada pagina e seuindo essa dica eu fiz e a pagina funcionou. Só que e esta ocorrendo um problema eu tenho que clicar duas vezes em um botão pra que ele funcione. Explicando um pouco melhor: ao abrir a tela tenho que clicar em qualquer componente para que a pagina possa funcionar normalmente. e a cada postback que faço ocorre esse problema.

Tenho q listar trabalhos de usuários somente "Efetivados", mas dá o seguinte erro: A linha 91 corresponde ao comando IF do seguinte código: Já fiz a verificação para saber se a variável de rsUser("status_user") é nula, mas não é! Por favor, alguém pode me dar uma luz ae?

Ae galera ajuda ae! <% dim url url= "/sistemas/composicao.asp?sigla=cof" Server.Exeute(url) %> o erro que ta dando Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'Server.Exeute' /sistemas/t2.asp, line 4 ======================================================= Aviso: Duvidas devem ser postadas no forum principal ( ASP )

Boa tarde amigos, Estou com um problema e estou me virando pois não mexo com nenhuma programação. sei apenas o basíco. o erro que esta dando e esse: ADODB.Command erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /sistema/classes/Login.asp, linha 47 ________________________________________________________________________________________________ Dim Cmd Dim rsLogin, strSQL Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = Cnxn strSQL = "SELECT * FROM TBL_USUARIO WHERE USU_LOGIN = ? AND USU_SENHA= ? AND USU_STATUS = '1'" Cmd.CommandText = strSQL Cmd.Parameters.Append Cmd.CreateParameter("@PARAM1",adVarChar,adParamInput,255, pLogin ) Cmd.Parameters.Append Cmd.CreateParameter("@PARAM2",adVarChar,adParamInput,255, pSenha ) OBS: Sistema está em ASP, e o banco de dados SQL SERVER O que fazer ? *-*

Olá, Eu preciso de uma ajuda com o Crystal Reports. Preciso fazer um Sub - Relatório repetir muitas vezes, por exemplo, eu tenho uma tabela descrevendo cada informação. Preciso que essa tabela seja construída a cada nova informação. Essa tabela está inserida em um Sub - Relatório e eu populo ela por DataTable. Preciso de ajuda! Obrigada.

Boa noite, sou novato na linguagem e estou com um problema. Preciso selecionar e gravar varias imagens utilizando framework. para um site que estou desenvolvendo, alguém tem uma boa dica ?

Olá, estou precisando ler um arquivo XML para posterior inserção no SQL. O problema é que este XML tem vários níveis e não consigo ler a partir dos netos, não consigo por exemplo pegar os valores a partir do nó "contrato" e seus subníveis. Vejam o arquivo XML: ====== <Lst_clientes> <cliente> <id>1</id> <nome>JOÃO</nome> <contrato> <dados_contrato> <valor>400</valor> <qtde_vagas>2</qtde_vagas> <list_dependentes> <dependente> <placa>GUP4421</placa> <nome>Joana dos Santos</nome> </dependente> <dependente> <placa>ANX8762</placa> <nome>Aline Veiga</nome> </dependente> </list_dependentes> </dados_contrato> </contrato> </cliente> <Lst_clientes> ================ Esta tentando utilizar esse codigo, não consegui adaptar.... Set raiz = objXML.documentElement 'Response.write raiz.NodeName & "<br>" 'nome do node principal 'Looping para percorrer todos os elementos filhos For i = 0 to raiz.childNodes.length -1 '########### FILHOS paymentMethod ############################## if raiz.childNodes.item(i).nodename = "paymentMethod" then set xmlRaiz = objXML.getElementsByTagName("paymentMethod") for y = 0 to xmlRaiz.length - 1 str_paymentMethod_type = xmlRaiz.item(y).childNodes.item(0).text str_paymentMethod_code = xmlRaiz.item(y).childNodes.item(1).text response.write "<font color=red>" response.write "Payment Method - " &xmlRaiz.item(y).childNodes.item(0).nodename &" : "& xmlRaiz.item(y).childNodes.item(0).text &"<br>" 'type response.write "Payment Method - " &xmlRaiz.item(y).childNodes.item(1).nodename &" : "& xmlRaiz.item(y).childNodes.item(1).text &"<br>" 'code response.write "</font>" next set xmlRaiz = nothing '########### FILHOS ##################### '########### filho "item" (NETOS items) ######################### elseif raiz.childNodes.item(i).nodename = "items" then set xmlRaiz2 = objXML.getElementsByTagName("item") for z = 0 to xmlRaiz2.length - 1 str_items_item_id = xmlRaiz2.item(z).childNodes.item(0).text str_items_item_description = xmlRaiz2.item(z).childNodes.item(1).text str_items_item_count = xmlRaiz2.item(z).childNodes.item(2).text str_items_item_amount = xmlRaiz2.item(z).childNodes.item(3).text response.write "<font color=red>" response.write xmlRaiz2.item(z).childNodes.item(0).nodename &" : "& xmlRaiz2.item(z).childNodes.item(0).text &"<br>" 'id response.write xmlRaiz2.item(z).childNodes.item(1).nodename &" : "& xmlRaiz2.item(z).childNodes.item(1).text &"<br>" 'description response.write xmlRaiz2.item(z).childNodes.item(2).nodename &" : "& xmlRaiz2.item(z).childNodes.item(2).text &"<br>" 'count response.write xmlRaiz2.item(z).childNodes.item(3).nodename &" : "& xmlRaiz2.item(z).childNodes.item(3).text &"<br>" 'amount response.write "</font>" next set xmlRaiz = nothing '########### filho item (NETOS items) ######################## Poderiam me ajudar? Desde já agradeço

Ola, Eu criei uma tabela com coluna chamada publicado setado como timestamp e current time automatico ... adicionou numa linha ... coluna pega timestamp automatico na coluna fica por exemplo 2014-12-24 09:28:18 .... show de bola Codigo ASP ...... ...... <news:publication_date><%=rs.fields("publicado")%></news:publication_date> ...... ...... e aparece assim: <news:publication_date> 12/24/2014 9:28:18 AM</news:publication_date> Alguma idéia ? Pagina que preciso do 2014-12 ...... é http://conteudoanimal.com.br/feed/googlenews.asp Agradeço antecipadamente qualquer ajuda Hospedo na Godady meu site sobre animais www.conteudoanimal.com.br Preciso disso porque quero entrar com minhas noticias no google news Marcos www.conteudoanimal.com.br

Tenho essa dropdownlist: <asp:DropDownList ID="DropDownList1" runat="server" DataSourceID="SqlDataSource2" DataTextField="DES" DataValueField="DES" AppendDataBoundItems="True" Height="20px" Width="200px"> </asp:DropDownList><br /> <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:DBConnectionString %>" ProviderName="<%$ ConnectionStrings:DBConnectionString.ProviderName %>" SelectCommand="SELECT * FROM [RESPOSTAS]"></asp:SqlDataSource> Como, via vb eu faço um clone dele, pra que quando eu clicar num botão, clonar na frente dele essa mesma drop down, ou uma identica com os mesmos dados.

Olá amigos, Estou criando um pdf baseado em template pdf, usando o componente asppdf, fazendo o importFromURL, porém no pdf template tem uma imagem no cabeçalho e outra no rodapé com informações, gostaria que ele repetisse esse cabeçalho em todas as páginas, como o conteúdo é dinâmico vindo de um editor fckeditor onde os dados vão ser preenchidos e dpois exportados para o pdf, no caso a quantidade de páginas é variável então quando o conteúdo ocupa mais de uma página a segunda página não aparece o cabeçalho nem o rodapé, fica o texto em uma página em branco. Segue o código q estou usando: Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.OpenDocument( Server.MapPath( "pdf/template.pdf" ) ) If Doc Is Nothing Then Response.Write "This PDF is password-protected." ' Obtain a password from user and try again Set Doc = Pdf.OpenDocument(Server.MapPath( "pdf/template.pdf" ), Pwd) End If cnt = cnt & request.Form("editor") Doc.ImportFromUrl "http://www.site.com.br/gerahtmlpdf.html", "scale=0.6; hyperlinks=true; drawbackground=true" Filename = Doc.Save( Server.MapPath("pdfgerado.pdf"), False ) Response.Redirect ("pdfgerado.pdf") Alguém pode me ajudar ?? Preciso resolver isso com certa ugência. Desde já agradeço a atenção de todos.

Tenho um formulario com 3 linhas cada uma com 2 campos, são eles Produto e Quantidade. O campo produto e uma select com varios itens. Minha questão é a seguinte quando o usuario escolher o mesmo produto em mais de uma linha, as quantidades tem que se somar. Aqui é onde eu pego as variaveis do formulario e faço a gravação no banco. <% 'Busca as variáveis Qtd_Produto = split(request.Form("Qtd_Produto"),",") Cod_Produto = split(request.Form("Cod_produto"),",") St_Pedido = 1 Conta = ubound(Qtd_Produto) 'verifica se pelo menos uma linha tem registro a ser inserido For f = 0 to conta If trim(Cod_Produto(f)) <> "" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<> "" and not isnull(Qtd_Produto(f)) then If cdbl(Qtd_Produto(f)) > 0 then InsereRegistro = "sim" End if End if Next If InsereRegistro = "sim" then ' So executa se tiver um registro a ser inserido 'Insere o registro de pedidos na tabela de pedidos SQLQuery = "INSERT into dbo.Tb_Out_Pedidos(Cod_Usuario, St_Pedido) values ("&session("cod_usuario")&", "&St_Pedido&")" Conn_Out.Execute(SQLQuery) 'Busca codigo do pedido inserido SQLQuery = "SELECT top 1 Cod_Pedido from dbo.Tb_Out_Pedidos order by Cod_Pedido desc" Set rs_buscacodigo = Conn_Out.Execute(SQLQuery) Cod_Pedido = rs_buscacodigo.fields("Cod_Pedido") 'Insere os produtos For f = 0 to conta If trim(Cod_Produto(f)) <>"" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<>"" and not isnull(Qtd_Produto(f)) then If cdbl(Qtd_Produto(f)) > 0 then SQLQuery = "Insert into Tb_Out_Pedidos_Detalhes(Cod_Pedido,Cod_Produto,Qtd_Produto) values ("&Cod_Pedido&","&Cod_Produto(f)&","&Qtd_Produto(f)&")" Conn_Out.Execute(SQLQuery) End if End if Next 'Insere na tabela o registro da criação do pedido Desc_Andamento = "Pedido Criado" Cod_Usuario = session("Cod_Usuario") SQLQuery = "INSERT into Tb_Out_Pedido_Andamento(Cod_Usuario, Cod_Pedido, Desc_Andamento) values ("&Cod_Usuario&","&Cod_Pedido&",'"&Desc_Andamento&"')" Conn_Out.Execute(SQLQuery) %> Quem puder me ajudar desde já agradeço

Boa tarde, galera! Estou com um problema que já esta me dando muita dor de cabeça. Tenho um formulário que pede alguns dados para geração de um contrato. Pois bem, preciso que ao selecionar o tipo de equipamento no primeiro list menu carregue as marcas no segundo list menu e ao selecionar a marca carregue os modelos no terceiro list menu. Até conseguir carregar as marcas eu consegui, mas não estou conseguindo popular o terceiro list menu com os modelos. Segue os códigos: monta_contrato.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!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> <!-- #include file="../regras.css" --> <!-- #include file="../funcoes/conexao.asp" --> <script language="javascript"> function showCustomer(str, tipo) { if (tipo == "marca") { if (str=="") { document.getElementById("mostra_marca").innerHTML=""; return false; } xmlhttp=new XMLHttpRequest(); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4 && xmlhttp.status==200) { document.getElementById("mostra_marca").innerHTML=xmlhttp.responseText; } } xmlhttp.open("GET","mostra_marca.asp?q="+str,true); xmlhttp.send(); } else { if (tipo == "modelo") { if (str=="") { document.getElementById("mostra_modelo").innerHTML=""; return false; } xmlhttp=new XMLHttpRequest(); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4 && xmlhttp.status==200) { document.getElementById("mostra_modelo").innerHTML=xmlhttp.responseText; } } xmlhttp.open("GET","mostra_modelo.asp?q="+str,true); xmlhttp.send(); } } } </script> </head> <body> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3"><table bgcolor="#000000" width="100%" border="0"> <tr> <td width="160"><img src="../imagens/logo/logo.jpg" width="160" height="100" /></td> <td align="center"><font color="#FFFFFF"><strong>PAINEL DE CONTROLE</strong></font></td> </tr> </table></td> </tr> <tr> <td width="15%" valign="top">&nbsp;</td> <td>&nbsp;</td> <td width="5%">&nbsp;</td> </tr> <tr> <td width="160" valign="top"><!-- #include file="menu_painel.asp" --></td> <td align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#000000"><font color="#FFFFFF"><strong>NOVO CONTRATO</strong></font></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><p>Você está iniciando um novo contrato para:</p> <% codigo_cli = request.QueryString("cliente") If codigo_cli < 5000 Then sqlCons = "SELECT nome_cf FROM cliente_fisico WHERE codigo_cf = '" & codigo_cli & "'" set rsCons = Conn.Execute(sqlCons) DO WHILE NOT rsCons.eof nome_cli = rsCons("nome_cf") rsCons.movenext LOOP rsCons.close set rsCons = nothing Else sqlCons = "SELECT fantasia_cj FROM cliente_juridico WHERE codigo_cj = '" & codigo_cli & "'" set rsCons = Conn.Execute(sqlCons) DO WHILE NOT rsCons.eof nome_cli = rsCons("fantasia_cj") rsCons.movenext LOOP rsCons.close set rsCons = nothing End If %> <p><% =nome_cli %></p></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td bgcolor="#000000"><font color="#FFFFFF"><strong>DADOS NECESSÁRIOS</strong></font></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><form id="form1" name="form1" method="post" action="../funcoes/monta_contrato.asp"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="33%" bgcolor="#CCCCCC">Quantidade:</td> <td width="67%" bgcolor="#CCCCCC"><label for="txt_quantidade"></label> <input type="text" name="txt_quantidade" id="txt_quantidade" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Equipamento</td> <td bgcolor="#CCCCCC"><label for="txt_equipamento"></label> <select name="txt_equipamento" id="txt_equipamento" onchange="showCustomer(this.value,'marca')" > <% encheEquip = "SELECT DISTINCT(equipamento_pl) FROM produtos_locacao ORDER BY equipamento_pl ASC" set rsEncEqui = Conn.execute(encheEquip) DO WHILE NOT rsEncEqui.eof %> <option value="<% =rsEncEqui("equipamento_pl") %>"><% =rsEncEqui("equipamento_pl") %></option> <% rsEncEqui.movenext LOOP rsEncEqui.close set rsEncEqui = nothing %> </select></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Marca</td> <td bgcolor="#CCCCCC"><div id="mostra_marca" name="mostra_marca"> <label for="txt_marca"></label> <select name="txt_marca" id="txt_marca" onchange="showCustomer(this.value,'modelo')"> </select></div></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Modelo</td> <td bgcolor="#CCCCCC"><div id="mostra_modelo" name="mostra_modelo"><label for="txt_modelo"></label> <select name="txt_modelo" id="txt_modelo"> </select></div></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Franquia</td> <td bgcolor="#CCCCCC"><input type="text" name="txt_franquia" id="txt_franquia" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Valor</td> <td bgcolor="#CCCCCC"><label for="txt_valor"></label> <input type="text" name="txt_valor" id="txt_valor" /></td> </tr> <tr> <td bgcolor="#CCCCCC">Valor Extenso</td> <td bgcolor="#CCCCCC"><label for="txt_valorext"></label> <input type="text" name="txt_valorext" id="txt_valorext" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Valor Página Extra</td> <td bgcolor="#CCCCCC"><label for="txt_pgextra"></label> <input type="text" name="txt_pgextra" id="txt_pgextra" /></td> </tr> <tr> <td bgcolor="#CCCCCC">Valor Extenso</td> <td bgcolor="#CCCCCC"><label for="txt_pgextraext"></label> <input type="text" name="txt_pgextraext" id="txt_pgextraext" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Inicio do Contrato</td> <td bgcolor="#CCCCCC"><label for="txt_inicio"></label> <input type="text" name="txt_inicio" id="txt_inicio" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Vencimento Boleto</td> <td bgcolor="#CCCCCC"><label for="txt_vencimento"></label> <select name="txt_vencimento" id="txt_vencimento"> </select></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC"><input name="txt_empresa" type="hidden" id="txt_empresa" value="<% =codigo_cli %>" /></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td><input type="image" src="../imagens/clientes/salvar_contrato.png" width="200" height="70" alt="Salvar" value="submit" /></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> </form></td> </tr> </table> <p>&nbsp;</p></td> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td bgcolor="#000000" colspan="3">&nbsp;</td> </tr> </table> </body> </html> mostra_marca.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!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> <!-- #include file="../funcoes/conexao.asp" --> </head> <body> <% sql="SELECT DISTINCT(marca_pl) FROM produtos_locacao WHERE equipamento_pl='" & request.QueryString("q") & "' ORDER BY marca_pl ASC" set rs = Conn.execute(sql) %> <select name="txt_marca" onchange="showCustomer(this.value,'modelo')" > <option value="" selected>Selecione</option> <% DO WHILE NOT rs.EOF %> <option value="<%= rs("marca_pl") %>"><%= rs("marca_pl") %></option> <% rs.MoveNext LOOP rs.close Set rs =nothing %> </select> </body> </html> mostra_modelo.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!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> <!-- #include file="../funcoes/conexao.asp" --> </head> <body> <% sql="SELECT DISTINCT(modelo_pl) FROM produtos_locacao WHERE equipamento_pl=" & request.QueryString("z") & "' AND marca_pl='" & request.QueryString("q") & "'" set rs = Conn.execute(sql) %> <select name="txt_modelo"> <option value="" selected>Selecione</option> <% DO WHILE NOT rs.EOF %> <option value="<%= rs("modelo_pl") %>"><%= rs("modelo_pl") %></option> <% rs.MoveNext LOOP rs.close Set rs =nothing %> </select> </body> </html>

Preciso criar um formulário em asp para calcular preço do ouro e prata com base na cotação do dia alguém sabe fazer ?

Boa tarde Galera! Gostaria de uma ajuda com o código abaixo, code set conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("/db/slm.mdb") set ula = conn.execute ("select count(COD_EXAME_LINHA) as total from slm where COD_EXAME_LINHA = '90' ") response.write ula("total") Bom no código acima conto a quantidade de registro na coluna COD_EXAME_LINHA com valor 90. Não estou conseguindo contar a quantidade de registro na coluna COD_EXAME_LINHA com o valor 90 + o valor 14 + o valor 40. Resumindo, quero contar a quantidade de registro que tem na coluna COD_EXAME_LINHA cujo os valores seja igual a 90,14 e 40 Obrigado!