smez
-
Total de itens
328 -
Registro em
-
Última visita
Tudo que smez postou
-
tenho um botão que quando clico nele ele abre um popup, agora como que eu faço, quando clicar nesse botão ele abre um popup e a pagina que esta o botão redirecionar para outra pagina. ex. na pagina 1 tem o botão, quando clicar no botão ele abre o popup e a pagina 1 redireciona para pagina 2
-
Problemas de conexão de ASP + ORACLE Code Block<% StringdeConexao = "driver={Microsoft ODBC for Oracle};server=SERVIDOR;uid=USUARIO;pwd=SENHA;database=DB" Server.ScriptTimeOut = 999 application("ultimaatualizacao") = "Sexta, 06 de Julho de 2007" set abredb = Server.CreateObject("ADODB.Connection") abredb.Open(StringdeConexao) %> <% StringdeConexao = "driver={Microsoft ODBC for Oracle};server=SERVIDOR;uid=USUARIO;pwd=SENHA;database=DB" Server.ScriptTimeOut = 999 application("ultimaatualizacao") = "Sexta, 06 de Julho de 2007" set abredb = Server.CreateObject("ADODB.Connection") abredb.Open(StringdeConexao) %> Esta dando esse erro. O que pode ser esse erro.
-
não entendi
-
valeu deu certo, obrigado
-
No IE esta funcionado normal, no firefox não Pelo debugfire do firefox deparei que o esta vindo com valor null porque será, e o erro pode ser por causa disso? <form method="post" name="produto" action="carrinho.asp"> <input type="hidden" name="lang" value="<%=request("lang")%>"> <input type="hidden" name="codigo_produto" id="codigo_produto" value=""> <input type="hidden" name="tipo_Pag" id="tipo_Pag" value=""> <input type="hidden" name="meio_pgto" id="tipo_Pag" value=""> <input type="hidden" name="codigo_categoria" value=""> <input type="hidden" name="codigo_cor" value=""> <input type="hidden" name="codigo_tamanho" value=""> <input type="hidden" name="ato" value="FIM"> <input type="hidden" name="mode" value="comprar"> <input type="radio" name="tipoPag" id="radio" value="vistaDep" onClick="tipopag(vista)" onMouseDown="tipopagj(this.value)"> <input name="Comprar" id="Comprar" type="button" style="cursor:pointer" class="BTTNindique" value="<%=Application("BttComprar")%>" onClick="java script:addproduto2('<%=RS_Produto("codigo_produto")%>','<%=RS_Produto("codigo_categoria")%>')" /> </form> <script type="text/javascript" language=JavaScript> ///AO CLICAR EM COMPRAR, ACIONA ESSA FUNÇÃO function addproduto2(codprod,codcat){ document.produto.codigo_produto.value = codprod; document.produto.codigo_categoria.value = codcat; var tipoPag = document.getElementById("tipoPag"); var nome_tamanho = document.getElementsByName("nome_tamanho"); var check = true; if(tipoPag.value == ""){ alert("Selecione uma opção de pagamento"); check=false; } for (counter = 0; counter < nome_tamanho.length; counter++) { if (nome_tamanho[counter].checked == true) { document.produto.codigo_tamanho.value = nome_tamanho[counter].value; } } var nome_cor = document.getElementsByName("nome_cor"); for (counter = 0; counter < nome_cor.length; counter++) { if (nome_cor[counter].checked == true) { document.produto.codigo_cor.value = nome_cor[counter].value; } } if (check == true) { document.produto.submit(); } } function view_prod(view_img) { document.IMGVisProd.src = view_img; } var tipoPag = document.getElementById("tipoPag"); function tipopagj(tipo) { tipoPag.value = tipo; } </script>
-
Bom pessoal, tenho esse script abaixo, que vai mostrar no site as formas de pagamentos disponivel, como que eu faço, para quando o usuario escolher uma forma de pagamento ele fica automatico para todos os produto a mesma forma. Ex. quando eu clicar em um produto ele vai mostrar os dados do produto, as condiçoes de pagamentos, se o usuário escolher avista, as outras opções não aparecem mais nos outros produtos, so vai aparecer a condição de pagamento avista.
-
Bom galera como que eu faço para fechar o POPUP Automatico depois de fazer um Upload <body class="texto_pagina" onLoad="doTitle();self.focus()"> <form method="post" ENCTYPE="multipart/form-data" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?link=cadastro&codigo_selo=<%=Request("codigo_selo")%>&enviar=sim" onSubmit="enviar.disabled=true"> Enviar um novo selo:<br> <INPUT type="file" name="caminho_selo" class="campos_formulario" style="width: 100%"><br> <INPUT type="submit" name="enviar" value="Enviar" class="botao_enviar"><br> <i>(A imagem deve ter nó máximo 200Kb)</i> </form> <% If Request("enviar") <> "" Then byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin contentType = UploadRequest.Item("caminho_selo").Item("ContentType") filepathname = UploadRequest.Item("caminho_selo").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace(filename,".","_"& rndit &".") value = UploadRequest.Item("caminho_selo").Item("Value") %> <strong>Aguarde o envio da imagem...</strong><br> <input name="progress" value="0% enviado" style="border:none"> <table width="100" border="0" cellspacing="0" cellpadding="0" style="border: 1px inset"> <tr> <td><input name="barra" style="border:none; background-color: orangered; height: 10; width:1" readonly=""></td> <td></td> </tr> </table> <% Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("../config/imagens_conteudo/produtos/imagensPQN/"&filename&"")) progress = 0 n = 0 For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) progress = Fix((i * 100) / LenB(value)) If n <> progress then n = progress %> <script language=javascript>progress.value = "<%=n%>% enviado"</script> <script language=javascript>barra.style.width = "<%=n%>"</script> <% END IF Next MyFile.Close 'renomeia ao arquivo Function rndit() Dim RndTemp Randomize RndTemp = Rnd * 100 RndTemp= Int(RndTemp) rndit = RndTemp End Function caminho = "config/imagens_conteudo/produtos/imagensPQN/"&filename&"" SQL = "UPDATE Selos SET caminho_selo='"& caminho & "' WHERE codigo_selo="&Request.QueryString("codigo_selo")&"" set rs = abredb.execute(SQL) %> <a href=javazcript:window.close()> <script language=javascript> window.opener.recebe_imagem('caminho_selo', imagem);window.close() </script> <a href="java script:window.opener.location='adm_alterar_selo.asp?codigo_selo=<%=Request.QueryString("codigo_selo")%>';window.close()"><b>Fechar Janela</b></a> <%eND iF%> eu fiz esse script, mas não esta funfando,
-
Bom pessoal tenho um checkbox em uma busca, como que eu faço para quando o usuario clicar no checkbox ele mostrar somente os produtos que estiver em estoque (acima de 0) e quando ele clicar denovo que e para desmarcar o checkbox ele mostra todos os produtos (com estoque 0 ou não) <%Const RegPorPag = 15 VarPagMax = 10 estoque = replace(replace(request.form("estoque"),chr(39),"''"),"--","") If Request.QueryString("PagAtual") = "" Then PagAtual = 1 NumPagMax = VarPagMax Else NumPagMax = CInt(Request.QueryString("NumPagMax")) PagAtual = CInt(Request.QueryString("PagAtual")) Select Case Request.QueryString("Submit") Case "Anterior" : PagAtual = PagAtual - 1 Case "Proxima" : PagAtual = PagAtual + 1 Case "Menos" : NumPagMax = NumPagMax - VarPagMax Case "Mais" : NumPagMax = NumPagMax + VarPagMax Case Else : PagAtual = CInt(Request.QueryString("Submit")) End Select If NumPagMax < PagAtual then NumPagMax = NumPagMax + VarPagMax End If If NumPagMax - (VarPagMax - 1) > PagAtual then NumPagMax = NumPagMax - VarPagMax End If End If Set rs = CreateObject("ADODB.Recordset") Set rs.activeconnection = abredb rs.CursorLocation = 3 rs.CursorType = 2 rs.LockType = 1 rs.CacheSize = RegPorPag strQ = "SELECT * FROM Produtos" If Trim(Request("string_busca")) <> "" Then If Trim(Request("campo_busca")) <> "" Then strQ = strQ & " Where " & Trim(Request("busca")) & " LIKE '%" & Trim(Request("busca")) & "%'" Else strQ = strQ & " Where 1 <> 1" strQ = strQ & " Or nome_produto LIKE '%" & Trim(Request("busca")) & "%'" strQ = strQ & " Or quantidade_produto LIKE '%" & Trim(Request("busca")) & "%'" strQ = strQ & " Or preco_unitario_vista LIKE '%" & Trim(Request("busca")) & "%'" strQ = strQ & " Or fornecedor LIKE '%" & Trim(Request("busca")) & "%'" End If End If If Trim(Request.QueryString("Ordem")) <> "" Then strQ = strQ & " ORDER BY " & Request.QueryString("Ordem") End If rs.Open strQ rs.PageSize = RegPorPag Set rs_indice = CreateObject("ADODB.RecordSet") Set rs_indice.ActiveConnection = abredb rs_indice.CursorLocation = 2 rs_indice.CursorType = 0 rs_indice.LockType = 2 strQ_indice = "SELECT * FROM Produtos WHERE 1 <> 1" rs_indice.Open strQ_indice indice = "" For Each item In rs_indice.Fields If item.properties("IsAutoIncrement") = True Then indice = item.name Exit For End If Next rs_indice.Close Set rs_indice = Nothing Set strQ_indice = Nothing %> <input name="estoque" type="checkbox" id="estoque2" value="estoque">
-
tenho um valor por exemplo, 1177,56 quando o usuario escolher a forma de pagamento em com combo ex. vista 30/60 30/60/90 30/60/60/120 ele pega o valor e divide pela quantidade de parcela que o usuario escolher ex. 1177,56 opcao de pagto 30/60/90 ele aparece assim 01 - 392,52 - 05/10/2007 02 - 392,52 - 05/11/2007 03 - 392,52 - 05/12/2007 mostra o numero da parcela, o valor de cada parcela e a data de vencimento de cada parcela, como q eu faço isso???
-
Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /wd5/wmskyel/novo/admin/Bonus2.asp, line 233 abredb.Execute("INSERT INTO "&_ "ItemBonus "&_ "(CdBonus,CdFormaGanho,CdUsuario,Valor,Qtd,DtCadastro) values"&_ " ('"&CdBonus15&"',"&_ "'3',"&_ "'"&Request.Form("Assessor")&"',"&_ "'"&Bonus15&"','1', GetDate())") porque esta dando esse erro???
-
cnfigurei minha pagina de erro assim <HTML> <META HTTP-EQUIV="Refresh" CONTENT="0; URL=http://www.wmskyel.com.br/trata.asp"> <BODY> </BODY> </HTML> pra quando a pessoa digitar uma pagina não não existe ele redireciona para a pagina trata.asp como eu faço em javascript para quando eu digitar um endereço que não existe ele pega o que for digitado depois da / e coloca na querystring da pagina trata.asp segue abaixo o script da página trata.asp <% URL = Request.ServerVariables("URL") ver = replace(url,"/","") ver = replace(ver,"","") Response.Redirect "default.asp?id="&ver %> o que estou querendo fazer e o seguinte quando o usuario digitar www.wmskyel.com.br/o numero do id ele vai para a pagina de erro, porque não existe o numero do id no servidor como pasta dae configurei a pagina de erro p/ redirecionar pra a pagina trata.asp e a pagina trata.asp esta redirecionando para a pagina "default.asp?id=numedo do id" so que esta dando um erro, porque a pagina de erro que eu configurei so coloquei <META HTTP-EQUIV="Refresh" CONTENT="0; URL=http://www.wmskyel.com.br/trata.asp"> como que eu faço para ele pagar o valor que o usuario digitar , o valor seria o numero do id a pagina de erro do servidor da locaweb não aceita pagina asp, so aceita pagina html. pensei em fazer em javascrip, não não manjo nada de java, como que eu posso resolver isso? desde já agradeço.
-
como que eu faço para somar valor entre data tipo assim 25/08/2007 30/08/2007 como posso fazer a soma para saber quantos dias tem entre essas 2 datas to usando banco de dados SQL os tipos de campo estão como datetime
-
você tem um exemplo pra dar um olhada. esse sistema que eu to querendo fazer vai funcionar assim, o usuário vai ordenar do jeito que ele quizer, dae vai lista 10 por pagina, e vai ter uma paginação, quando o usuario clicar pra ir na segunda pagina essa ordenação não vai sair???
-
Bom Galera to com umas duvidas cruel, tenho uma combo assim <select name="ordby" class="campos_formulario" id="ordem" class=campos_formulario onChange="jump(this.value,'')"> <option value="?ordby=preco_unitario_vista ASC">Preço Ascendente</option> <option value="?ordby=preco_unitario_vista DESC">Preço Descendente</option> <option value="?ordby=nome_produto ASC">Nome Ascendente</option> <option value="?ordby=nome_produto DESC">Nome Descendente</option> <option value="?ordby=fornecedor ASC">Fabricante Ascendente</option> <option value="?ordby=fornecedor DESC">Fabricante Descendente</option> </select> quando o usuário selecionar uma opção os registros ficarão na ordem que ele escolher. como que eu faço? Desde já agradeço.
-
-
Bom galera beleza., Como que faz ASP com Stored Procedure Para fazer Insert, Delete, Update e Select Eu já tenho a Stored Procedure pronta. tenho que fazer o ASP chamar as Stored Procedure.
-
Bareta Eu fiz assim <% URL = Request.ServerVariables("URL") ver = replace(url,"/?","") ver = replace(ver,"/","/?") Response.Redirect "novo/?id="&ver %> e ele ta retornando assim
-
bom amigos to precisando tirar a / automatica no asp eu estou fazendo um sistema que o usuario digita o endereco do site/ID <% Response.Redirect "novo/?id="&request.ServerVariables("URL") %> eu fiz assim pra ele pegar o que a pessoa digita depois do www.nomedosite.com.br/ ele ta pegando o que a pessoa digita junto com a / dae ele retorna pra pagina assim como que eu faço pra tirar a / pra ele retornar assim
-
Bom dia Gustavo, eu tenho um script que eu desenvolvi , cadastro com etapas, adicionar ae no MSN que eu te passo, agencia_giro@hotmail.com Abraço
-
Andreia achei o erro eu fiz assim valorMax = replace(Request.Form("valor_maximo"),".","") valorMax = replace(valorMax,",",".") agora ele busca os valores acima de 1.000,00 e abaixo de 1.000,00 tb
-
BOM , a busca esta funcionando normal, o problema e o seguinte, quando eu digito um valor no campo valor_maximo e no valor_minino acima de 1.000,00 ele aparece a mensagem de produto não encontrado, e quando eu coloco um valor abaixo de 1.000,00, ele busca normal. o que pode ser o erro. <% categoria = Request.form("Categoria") tipo = Request.Form("Tipo") cidade = Request.Form("cidade") valor_minino = Request.Form("valor_minino") valor_maximo = Request.Form("valor_maximo") Set rsProdutos = createObject("ADODB.Recordset") Set rsProdutos.activeconnection = abredb 'if tipo = "o" Then 'SQL = "SELECT * FROM tbl_Upload WHERE categoria='"&categoria&"' ORDER BY Valor ASC" 'rsProduto.Open SQL if cidade = "o" and valor_minino <> "" Then valorMin = FormatNumber(Request.Form("valor_minino"),decimal) valorMax = FormatNumber(Request.Form("valor_maximo"),decimal) SQL = "SELECT * FROM tbl_Upload WHERE categoria like '%"&categoria&"%' and tipo like '%"&tipo&"%' and valor BETWEEN '"&valorMin&"' and '"&valorMax&"' ORDER BY Valor ASC" rsProdutos.Open SQL elseif cidade = "o" Then SQL = "SELECT * FROM tbl_Upload WHERE categoria like '%"&categoria&"%' and tipo like '%"&tipo&"%' ORDER BY Valor ASC" rsProdutos.Open SQL elseif valor_minino <> "" Then valorMin = FormatNumber(Request.Form("valor_minino"),decimal) valorMax = FormatNumber(Request.Form("valor_maximo"),decimal) SQL = "SELECT * FROM tbl_Upload WHERE cidade='"&cidade&"' and categoria='"&categoria&"' and tipo='"&tipo&"' and valor BETWEEN '"&valorMin&"' and '"&valorMax&"' ORDER BY Valor ASC" rsProdutos.Open SQL elseif cidade <> "" then SQL = "SELECT * FROM tbl_Upload WHERE cidade='"&cidade&"' and categoria='"&categoria&"' and tipo='"&tipo&"' ORDER BY Valor ASC" rsProdutos.Open SQL 'else end if if rsProdutos.eof or rsProdutos.bof then response.write "não há itens encontrados" else %>
-
no IE eu clico para selecionar e clico no botão adicionar, ele funciona no FF eu seleciono e clico no botão adicionar ele aparece uma mensagem pedindo pra min selecionar
-
como eu faço em ASP, para ele ler os dados de uma planilha de excel e salvar no meu banco de dados em MS SQL.
-
O código abaixo funciona no I.E. como eu faço p/ ele funcionar no firefox tb. <cript type="text/javascript" language=JavaScript> ///AO CLICAR EM COMPRAR, ACIONA ESSA FUNÇÃO function addproduto2(codprod,codcat){ document.produto.codigo_produto.value = codprod; document.produto.codigo_categoria.value = codcat; var tipo_Pag = document.getElementById("tipo_Pag"); var nome_tamanho = document.getElementsByName("nome_tamanho"); var check = true; if(tipo_Pag.value == ""){ alert("Selecione uma opção de pagamento"); check=false; } for (counter = 0; counter < nome_tamanho.length; counter++) { if (nome_tamanho[counter].checked == true) { document.produto.codigo_tamanho.value = nome_tamanho[counter].value; } } var nome_cor = document.getElementsByName("nome_cor"); for (counter = 0; counter < nome_cor.length; counter++) { if (nome_cor[counter].checked == true) { document.produto.codigo_cor.value = nome_cor[counter].value; } } if (check == true) { document.produto.submit(); } } function view_prod(view_img) { document.IMGVisProd.src = view_img; } var tipo_Pag = document.getElementById("tipo_Pag"); function tipo_pagj(tipo) { tipo_Pag.value = tipo; } </script>
