Milena

Gostaria de deletar registros de várias tabelas... mas não estou conseguindo....

Quem puder me ajudar.... deve ser fácil pra vocês.... e preciso disso urgentíssimo....

Alterei o que você disse.... ma meu update só funciona quando coloco um valor ... no lugar da variável campo: strsql ="UPDATE Produtos SET NomeProduto='"&nome&"' where CodigoProduto='9'" Apesar de eu estar utilizando um response.write pra verificar o valor do campo ... e este está vindo corretamento..... é um campo texto então estou usando assim : where CodigoProduto='"&campo&"'" Mas não funciona ....

Página Alterar , vai exibir os dados que o usuário quer alterar em inputs:

Sim, mas , olha como ele está sendo enviado no sumbit , Campo é a variável que está guardando o valor... <input name="cdproduto" type="text" id="cdproduto" value=" <%response.write Campo>"> mas ele chega na minha página de update ... com o valor correto, tenho certeza que tenho o registro. strsql ="UPDATE produtos SET CodigoProduto='"&cdproduto&"', CodigoDepartamento='"&cddepartamento&"',NomeProduto='"&nome&"', DescricaoProduto='"&descricao&"', preço='"&preço&"',PrecoVenda='"&precovenda&"',Quantidade='"&quantidade&"' where CodigoProduto='"&campo&"'" objRS.open strsql Mas vou ver o que faço aqui... obrigada pela ajuda de vc ... []´s

Desculpe-me por estar perguntanto tanto ... mas é que sou muito leiga em aps Agora com o Where ... ele não atualiza nenhum regitro.... olhem o código :

Meu update ... ta atualizando a tabela toda ....

Acredito que o problema seja com essa variável intpagina.... IF intpagina > 1 then <a href="exe_buscar_produtos.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF Ajudem-me ...plz.

VALEU !! RESOLVIDO !!! Mas agora quem não parece mais é o botão de anterior.... Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise. 'Vamos fazer a busca na tabela contatos SQL ="SELECT * FROM produtos where CodigoProduto='13' " RS.Open SQL,Conn,3,3 Dim Campo, teste Campo=Request.Form("campo") teste=Request.Form("busca") select case teste case "escolha1" RS.Close response.write "entrei no case" SQL = "SELECT * FROM produtos WHERE CodigoProduto='"&campo&"' " RS.Open SQL,Conn,3,3 case "escolha2" RS.Close SQL= " SELECT * FROM produtos WHERE NomeProduto='"&campo&"' " RS.Open SQL,Conn,3,3 case "escolha3" RS.Close SQL= " SELECT * FROM produtos WHERE Quantidade='"&campo&"' " RS.Open SQL,Conn,3,3 case "escolha4" RS.Close SQL= " SELECT * FROM Produtos WHERE preço='"&campo&"' " RS.Open SQL,Conn,3,3 end select 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF RS.BOF then 'response.write "Arquivo não encontrado" response.Redirect("error_buscar_produtos.asp") Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < RS.PageSize and not RS.EOF %> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <!--AQUI -AQUI AQUI -AQUI AQUI -AQUI AQUI -AQUI --> :huh: <a href="exe_buscar_produtos.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="exe_buscar_produtos.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %> Muito obrigada pela atenção de vocês !

vou tentar

Olá !! Tentei da forma que vocês me disseram.... acontece que ele está abrindo a pasta onde está meu arquivo.html, não está abrindo a página no Browser..... estou colocando abaixo o código da função: <script language="javascript" type="text/javascript"> var windowpic = null ; function openWide( file_path, title_text, width, height ) { var scrW=screen.width; var scrH=screen.height; if (scrH < "600") { W=630; H=425; } else if (scrH < "768") { W=788; H=544; } else { W=1012; H=710; } var scbar = "no" ; var tbar = "no" ; var bars = "menubar=no,toolbar=no" ; if( tbar == "yes" ) bars = "menubar=no,toolbar=no" ; var strwindow = "toolbar=no,width=" + W + ",height=" + H + ",directories=no,status=no,scrollbars="+ scbar+"," + bars + ",resizable=no" + ",top=" + 0 +",left=" + 0; if (navigator.appName == "Microsoft Internet Explorer") { strwindow = "toolbar=no,width=" + W + ",height=" + H + ",directories=no,status=no,scrollbars="+ scbar+"," + bars + ",resizable=yes" + ",top=" + 0 +",left=" + 0; } file_path = 'opcao/index_port.htm'; file_path += '?loclist=' + "&cmdebug=" + ''; window.location=C:\Documents and Settings\Programador\Desktop\Site_2005\opcao\index_port.htm"; //document.location.href = "C:\Documents and Settings\Programador\Desktop\Site_2005\opcao\index_port.htm"; } </script>

Tirei o RS.CLOSE do CASE 1 como o Cyberalexxx falou.... mas não adiantou.... []´s Milena

Estou aprendendo asp agora...e estou tendo sérias dificuldades em criar uma paginação... imagino que seja bem simples.... até pelo fato de que a minha está funcionado ... até que eu estraguei... Está dando erro quando clico em PRÓXIMO PARA VIZUALIZAR O RESTANTE DOS REGISTROS.... Operação não permitida quando o objeto está FECHADO. line 46 Segue abaixo o código: ____________________________________________________________________ Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 5 Dim Campo, teste Campo=Request.Form("campo") teste=Request.Form("busca") select case teste case "escolha1" RS.Close response.write "entrei no case" SQL = "SELECT * FROM produtos WHERE CodigoProduto='"&campo&"' " RS.Open SQL,Conn,3,3 case "escolha2" SQL= " SELECT * FROM produtos WHERE NomeProduto='"&campo&"' " RS.Open SQL,Conn,3,3 case "escolha3" SQL= " SELECT * FROM produtos WHERE Quantidade='"&campo&"' " RS.Open SQL,Conn,3,3 case "escolha4" SQL= " SELECT * FROM produtos WHERE preço='"&campo&"' " RS.Open SQL,Conn,3,3 end select IF RS.EOF then -> ESSA É A LINHA QUE ESTÁ DANDO ERRO !!!!! Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF %>

Não. Na verdade, eu já sabia dessas propriedades do windows.open. O que acontece eu que tenho um link, e quando é clicado chama uma função em java para identificar o browser que está sendo usado e a resolução, e ajustará então o tamanho da página que será aberta..... e para abrir esta página estou usando o window.open.... mas a página abre em uma nova janela.... e não é isso que quero... preciso abri-la na mesma página.... mas mantendo a função java de redimensionamento. Valeu por estarem ajudando

Alguém pode me ajudar?

Olá pessoas !! Gostaria de saber quais são os parâmetros aceitos na função WINDOWS.OPEN gostaria que quando abrisse o link, abrisse na mesma janela... seria como o target :_Self tem como? espero que esteja dando pra entender ... Obrigada Milena