mariofdf

Estas variaveis vão ser postadas no metodo GET ou POST, e como voce quer que o resultado seja retornado.

mestre fyoda voce testou o ultimo codigo que eu te mandei. Acredito que não pelo jito, e se testou poste o erro que deu.

tente assim... <%@ Language=VBScript%> <% intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) usuario = Request.Form("usuario") SQL = "select * from usuarios where usuario = '"&usuario&"'" Set RS = conn.Execute(SQL) SQL = "select * from usuarios where usuario = '"&usuario&"' and nivel = 1 " Set RC = conn.Execute(SQL) If RC.EOF Then %> <script> alert("Você não pode deletar usuario master. Este codigo eu peguei pronto não se pode fazer isso também."); window.location.href=("index.asp"); </script> <% else a=split(intSno,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelid=Trim(a(iLoop)) conn.Execute "delete from usuarios where id=" & intDelid & "" next Response.Redirect "del_sucesso.asp" conn.Close set conn=nothing end if %>

Cara voce nem consertou um codigo e já quer ajuda em outro? Poste o codigo agora para vermos como esta...

Sou programador em asp, e agora gostaria de aprender PHP, gostaria que neste primeiro post , receber dicas e sugestões dos passos que devo seguir. Desde já, agradeço mariofdf

Isso é configuração de IIS, peça para seu provedor adicionar o index.asp como documento padrão

mande o link para poder ver o erro que ocorre

tente ai colega... <table border=1> <% 'declara vartiavel txtidcad = Request.QueryString("idcat") 'Monta o menu de departamentos Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat= "& txtidcad &" ORDER by nome;") While Not menu.EOF%> <TR> <TD VALIGN="middle"><a href=sessoes.asp?item=<%= menu("id")> <%=menu("nome")%></a> </TD> </TR> <% menu.MoveNext Wend 'Fecha o menu menu.Close Set menu = Nothing%> </table> se der tipo de dados imcompativeis troque cat= "& txtidcad &" por cat= '"& txtidcad &"' ate mais atenciosamente mariofdf

tente assim, ve se da certo, qualquer coise poste ai, ... <%@ Language=VBScript%> <% Option Explicit %> <% Dim intSno,intDelid,conn,a intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) usuario = Request.Form("usuario") SQL = "select * from usuarios where usuario = '"&usuario&"' and nivel <> 1" Set RS = conexao.Execute(SQL) If not RS.EOF Then %> <script> alert("Você não pode deletar usuario master. Este codigo eu peguei pronto não se pode fazer isso também."); window.location.href=("index.asp"); </script> <% end if a=split(intSno,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelid=Trim(a(iLoop)) conn.Execute "delete from usuarios where id=" & intDelid & "" next Response.Redirect "del_sucesso.asp" conn.Close set conn=nothing %> atenciosamente... Mariofdf

Não se pode usar and, pois se usar o and e em tres campos achar a palavra e em um não achar o sql retorna erro, o certo é usar OR, eu faço do mesmo jeito que o dark e da certo tambem.

Ai dark foi mal não tinha visto que voce já tinha respondido, e como ficou a escolha do novo moderador

Ae colega, se continuar pedindo pronto sempre vai depender dos outros, tente aprender ao invés de copiar. <%@ Language=VBScript%> <% Option Explicit %> <% Dim intSno,intDelid,conn,a intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) usuario = Request.Form("usuario") SQL = "select * from usuarios where usuario = '"&usuario&"' and nivel <> '1'" Set RS = conexao.Execute(SQL) If not RS.EOF Then %> <script> alert("Você não pode deletar usuario master. Este codigo eu peguei pronto não se pode fazer isso também."); window.location.href=("index.asp"); </script> <% end if a=split(intSno,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelid=Trim(a(iLoop)) conn.Execute "delete from usuarios where id=" & intDelid & "" next Response.Redirect "del_sucesso.asp" conn.Close set conn=nothing %>

faça uma pesquisa aqui no forun por , upload...

Vou votar no VICTOR pela sua incistencia, mas uma dica vitão, presta mais atenção nas suas perguntas e respostas, pois as veses voce faz perguntas no tópico que a pessoa já respondeu, e responde coisas que ela não perguntou, deixando a mesma confusa, mas voce manda bem em asp e é disposto, então meu voto vai em voce,, E ai urso, manda outro desafio pois o dos sapinhos foi muito facil...

Peça para que feixe o tópico, se não tiver mais duvidas...

Depende o que voce quer passar. um exemplo response.redirect("http://www.seusite.com.br/paginaquevaireceberasinformações.asp?parametro=Meu nome é "& request.form("meunome") &" qualquercoisa poste ai.

Poste seu codigo todo, para darmos uma olhada. - e se cadastre para ajudar a cominidade que te ajuda - Gostarão dessa

sou eu ai em cima....

Ae victor, estava minha pessoa navegando guando me deparo com este tutorial, e me lembrei de um post seu sobre o assunto, se interessar esta ai caso contrario desconsidere. Crika Akri...............falou

se voce postou duas veses não faça isso, pois atrapalha o andamento do forum, e se não foi o caso, tem um post logo abaixo com a resposta.

já testei alguns códigos, mas não consegui fazer funcionar, te aconselho a usar um componente free.

Voce quer subtrair 5 horas, se for isso faça assim, em vez de " & rs.fields("data") & " faça assim data = cdate(rs.fields("data"))-5 Response.Write("::. Registro n°: " & rs.fields("id") & "" ) Response.Write("</td><td align=right>" & data &"</td></tr><tr><td qualquer coisaé so postar.

Ai galera agradeço, pode feichar o tópico - O Victor não deve nem ta dormindo a noite, realisou o sonho de ser moderador. mariofdf

rs("dias") - é a quantia de dias que quero somar a data. a data é date() no caso a data de hoje rs("dias") ele varia de 30 até 360, então eu quero somar para depois gravar no BD.

Estou com um proble. estou tentando pegar a data do dia e somar a ela uma quantia de dias, esta quantia é a variavel. dai tentei assim. txtvalidade = "(date()+"&RS("Dias")&")" quando peço que imprima para ver o resultado: Response.Write(""&txtvalidade&"") aparece assim: (date()+30) quando coloca direto assim txtvalidade = "(date()+10)" funciona. alguém sabe o problema...