adriano182

pelo que eu entendi, é que ele tah passando a variavel "link" com o valor "giro", usando request.querystring. Sendo que giro pode ser algum endereço, ou link completo... Acho que é isso...

Valeu victor... deu uns outros erros depois mas já arrumei... Falow!

Agora ta dando esse erro: Erro de compilação do Microsoft VBScript erro '800a0401' Fim da instrução esperado /marcaqui/site/asp/cad_hor.asp, line 22 Set Filtro2 = Conexao3.Execute "SELECT * FROM usuario WHERE usu_usu='"&usu_usu&"' AND usu_med='"& usu_med &"' AND data=#"& data &"# AND horario='"& horario &"'" -------------------------------^ Alias, tem algum problema gravar horario como texto? vou postar o codigo todo, pois tenho duvida se preciso usar os recordset que usei.... <% data = Request("data") usu_usu = Request("usu_usu") usu_med = Request("usu_med") senha = Request("senha") horario = Request("horario") Session.LCID = 1046 'Indispensavel data = CDATE(data) Set Conexao1 = Server.CreateObject("ADODB.Connection") Conexao1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/usuario.mdb") Set Conexao2 = Server.CreateObject("ADODB.Connection") Conexao2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/aghorario.mdb") Set Conexao3 = Server.CreateObject("ADODB.Connection") Conexao3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/usuario.mdb") set Filtro1 = Conexao1.Execute("SELECT * FROM usuario WHERE usuario='"&usu_usu&"' AND senha='"&senha&"' ") Set Filtro2 = Conexao3.Execute "SELECT * FROM usuario WHERE usu_usu='"&usu_usu&"' AND usu_med='"& usu_med &"' AND data=#"& data &"# AND horario='"& horario &"'" if Filtro1.eof then %> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><B>Negado! Você precisa efetuar seu cadastro!</b><BR><BR>Clique no Link abaixo para poder se cadastrar.<BR><BR> <a href="http://www.cubbos.com/marcaqui/site/html/cad_usu.htm" target="home">Cadastro de Usuários</a></font> <% else if Filtro2.eof then strSQL = "INSERT INTO agenda (usu_med , usu_usu , data , horario)" strSQL = strSQL + " VALUES ('"& usu_med &"','"& usu_usu &"',#"& data &"#,'"& horario &"')" Conexao3.execute strSQL else Response.Write "Horario já preenchido!" end if end if Conexao1.close Set Conexao1 = nothing Conexao2.close Set Conexao2 = nothing Conexao3.close Set Conexao3 = nothing %> </body> </html>

Eu descobri o erro.. eu tinha esquecido de colocar as "/" separando dia, mes e ano... Agora, eu to com outro problema...esta dando erro em um filtro que eu criei ... o erro que tah dando é: Microsoft JET Database Engine erro '80040e10' No value given for one or more required parameters. /marcaqui/site/asp/cad_hor.asp, line 22 a pagina é: www.cubbos.com/marcaqui/site a linha q dá erro é: Set Filtro2 = Conexao3.Execute("SELECT * FROM usuario WHERE usu_usu='"&usu_usu&"' AND usu_med='"& usu_med &"' AND data=#"& data &"# AND horario='"& horario &"'") alguém sabe o que tah acontecendo?

Galera.. tah acontecendo uma coisa estranha no meu site. Eu tenho uma agenda online, e quando o usuario marca um horario com um medico, em vez de marcar a data certa o site coloca no db uma data nada a ver... tipo, se eu seleciono a data: 01/01/2004, ele coloca 10/08/4670.. é muito loco... se coloco a data 02/01/2004, ele coloca 9/4/7408 alguém já viu algo parecido?

Valeu pelas observações.... quanto ao banner, estarei providenciando para que seja inserido o banner da empresa com que estamos fechando contrato... Um abraço!

Eu imaginei fazer dessa forma.. e como dependendo do usuario, vai abrir uma intranet diveferente, imaginei fazer um campo no bd, como nivel... tipo nivel 1 tem acesso a X setores... tipo 2 tem acesso a Y setores... o q vocês acham?

Galera, coloquei a versao em flash e em html do site da minha empresa... Deem sua opiniao de qual ficou melhor!! Valeu! Adriano

Galra, gostaria que vocês avaliassem meu site!!! é de extrema importancia a opniniao de vocês... www.cubbos.com Valeu pessoal! Adriano

Galera, estou finalizando um trabalho e estou precisando criar um sistema que permita ao usuario digitar usu e senha e verificar o andamento dos seus trabalhosd.. serao imagens que estarao disponiveis na internet. Gostaria de uma dica para criar, se é necessario criar um bd para usuario, ou se posso apenas inserir o usu e a senha no codigo! Acessem o site e vertifiquem: www.cubbos.com Valeu pessoal! Adriano

Galera, estou finalizando um trabalho e estou precisando criar um sistema que permita ao usuario digitar usu e senha e verificar o andamento dos seus trabalhosd.. serao imagens que estarao disponiveis na internet. Gostaria de uma dica para criar, se é necessario criar um bd para usuario, ou se posso apenas inserir o usu e a senha no codigo! Acessem o site e vertifiquem: www.cubbos.com Valeu pessoal! Adriano

Galera, estou finalizando um trabalho e estou precisando criar um sistema que permita ao usuario digitar usu e senha e verificar o andamento dos seus trabalhosd.. serao imagens que estarao disponiveis na internet. Gostaria de uma dica para criar, se é necessario criar um bd para usuario, ou se posso apenas inserir o usu e a senha no codigo! Acessem o site e vertifiquem: www.cubbos.com Valeu pessoal! Adriano

Galera, estou finalizando um trabalho e estou precisando criar um sistema que permita ao usuario digitar usu e senha e verificar o andamento dos seus trabalhosd.. serao imagens que estarao disponiveis na internet. Gostaria de uma dica para criar, se é necessario criar um bd para usuario, ou se posso apenas inserir o usu e a senha no codigo! Acessem o site e vertifiquem: www.cubbos.com Valeu pessoal! Adriano

Galera, digam se eu estiver errado.. mas não tem que colocar a data entre #data# quando for gravar no banco?? um abraço!

pode fechar o tópico.. consegui solucionar.. eu tinha colocado o rs.open dentro de um if que estava retrnando falso... mas agora, funcionou! Valeu!

O que eu preciso realmente, é de uma forma que eu possa ficar avançando na data, usando 2 botoes... tipo: << 28/04/2004 >> depois eu arrumo no meu programa...

agora tah dando um outro erro... Ele abre a pagina, e quando clico em avançar, em vez de reabrir a pagina, passando a data para o dia 29, da esse erro: ADODB.Recordset erro '800a0e78' Operation is not allowed when the object is closed. /marcaqui/site/asp/cons_ag.asp, line 69

certo, mas quando eu passo uma data por um formulario e uso um request.form para pegar ela na pagina asp, ela vira uma string? exemplo: pagina1.asp <% data = date() %> <form action="pagina2.asp" method="post"> <input name="data" type="hidden" value="<% =data %>"> <input name="submit" type="submit" value="Avancar"> </form> [CODE] pagina2.asp <% data = Request.form("data") %> <form action="pagina2.asp" method="post"> <% data = data+1 %> <input name="data" type="hidden" value="<% =data %>"> <input name="submit" type="submit" value="Avancar"> </form>

Galera, é o seguinte... estou montando uma agenda que você podem ver no site www.cubbos.com/marcaqui/site. Se você clicar em medico e selecionar o meu nome (é apenas teste), da um erro. erro: Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: '[string: "28/4/2004"]' /marcaqui/site/asp/cons_ag.asp, line 539 O que acontece, é que são dois arquivos: fcons_med.asp e cons_ag.asp O que eu quero é que mostre na tela, horarios disponiveis para consulta, e que exista uma opção para o usuario avançar ou retornar para a data seguinte. Então, o que eu preciso: Preciso pegar a data do dia e somar 1 sempre que clicar em avançar, o contrario para o voltar. Mas da erro! na primeira pagina(fcons_med.asp), fiz uma opção que pega a data atual e envia para a pagina seguinte... [CODE <form method="post" action="http://www.cubbos.com/marcaqui/site/asp/cons_ag.asp" target="home"> <input name="enter" type="image" src="http://www.cubbos.com/marcaqui/site/imagens/relogio.gif" > &nbsp;<B><% = rs("nome") %></b> <input name="usuario" type="hidden" id="usuario" size="55" value="<% = rs("usuario") %>"> <input name="data" type="hidden" id="data" value="<% =data %>"> </form> na outra pagina(cons_ag.asp)... . . . <% data= Request.form("data") %> . . . <form action="http://www.cubbos.com/marcaqui/site/asp/cons_ag.asp" method="post" target="home"> <% data = data)+1 %> <input name="data" type="hidden" value="<% =data %>"> <input name="submit" type="submit" value="Avan&ccedil;ar"> </form> Acredito que a data esteja sendo transformada em texto... alguém pode me ajudar?

Valeu galera... Meu erro era de principiante mesmo.. a variavel era texto e não numero! coloquei (') e funcionou... Valeu!

O admi pode fechar esse tópico, postei duas vezes sem querer!

Galera, to com dificuldades de excluir dados de um bd. o sistema esta no endereço: www.cubbos.com/marcaqui/site/asp/fexc_ag.asp O que ocorre é que quando seleciono o usuario, da um erro. alterando de "usuario" para "codigo" no campo, o prog funciona.. o erro que dá, é: Microsoft JET Database Engine erro '80040e07' Tipo de dados imcompatível na expressão de critério. /marcaqui/site/asp/exc_ag.asp, line 20 o codigo é: fexc_ag.asp . . . <% set conexao2=server.CreateObject("ADODB.connection") set rs2= server.createobject("ADODB.recordset") conexao2.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db/agmedico.mdb") SQL2 = "Select * From pediatra Order By codigo" rs2.open SQL2,conexao2 %> Codigo a ser excluido:</strong></font> <select name="usu" size="1"> <% while not rs2.eof %> <option value="<%=rs2("usuario")%>"> <%= rs2("usuario")%></option> <% rs2.movenext wend %> </Select> <input name="excluiusuario" type="submit" value="Excluir"> </p> </form> . . . exc_ag.asp <% usu = Request.form("usu") ' mapeia o caminho x = Server.MapPath("db/agmedico.mdb") ' cria o objeto Conexão Set Conexao = Server.CreateObject("ADODB.Connection") ' concatena a string do driver com o caminho liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 'abre a conexão set rs= server.createobject("ADODB.recordset") Conexao.Open liga ' String SQL para inserir os dados na tabela chamada cadastro strSQL = "DELETE * from pediatra WHERE usuario ="&usu&" " ' executa a string if usu <> "" then while not rs.eof set apaga = Conexao.execute(strSQL) rs.movenext wend response.redirect("fexc_ag.asp") else response.redirect("fexc_ag.asp") end if ' fecha a conexão Conexao.close ' destrói o objeto Conexao para liberar memória Set Conexao = nothing %>

Galera, to com dificuldades de excluir dados de um bd. o sistema esta no endereço: www.cubbos.com/marcaqui/site/asp/fexc_ag.asp O que ocorre é que quando seleciono o usuario, da um erro. alterando de "usuario" para "codigo" no campo, o prog funciona.. o erro que dá, é: Microsoft JET Database Engine erro '80040e07' Tipo de dados imcompatível na expressão de critério. /marcaqui/site/asp/exc_ag.asp, line 20 o codigo é: fexc_ag.asp . . . <% set conexao2=server.CreateObject("ADODB.connection") set rs2= server.createobject("ADODB.recordset") conexao2.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db/agmedico.mdb") SQL2 = "Select * From pediatra Order By codigo" rs2.open SQL2,conexao2 %> Codigo a ser excluido:</strong></font> <select name="usu" size="1"> <% while not rs2.eof %> <option value="<%=rs2("usuario")%>"> <%= rs2("usuario")%></option> <% rs2.movenext wend %> </Select> <input name="excluiusuario" type="submit" value="Excluir"> </p> </form> . . . exc_ag.asp <% usu = Request.form("usu") ' mapeia o caminho x = Server.MapPath("db/agmedico.mdb") ' cria o objeto Conexão Set Conexao = Server.CreateObject("ADODB.Connection") ' concatena a string do driver com o caminho liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 'abre a conexão set rs= server.createobject("ADODB.recordset") Conexao.Open liga ' String SQL para inserir os dados na tabela chamada cadastro strSQL = "DELETE * from pediatra WHERE usuario ="&usu&" " ' executa a string if usu <> "" then while not rs.eof set apaga = Conexao.execute(strSQL) rs.movenext wend response.redirect("fexc_ag.asp") else response.redirect("fexc_ag.asp") end if ' fecha a conexão Conexao.close ' destrói o objeto Conexao para liberar memória Set Conexao = nothing %>

quem quiser ver o site que eu estou terminando de criar, acessa: www.embraltec.com.br Valeu!

Valeu pessoal! Logo, colocaremos no ar uma galeria a disposição do pessoal, onde poderão postar seus trabalhos, e tmb poderão estudar em sima de trabalhos prontos aki da ermpresa!