adriano182

Você já tentou criar um Frameset, com Rows e Cols, limitando os tamannhos?? entaum, você poderia, por exemplo, criar um site que tenha animações em flash, mas no centro possua um frame em html.. tipo criar celullas em uma tabela, que no miolo tenha um codigo em vez de figuras...

Baaaah.. eu precisava ser demitido depois dessa.. hehehhe Valeu mesmo cara... tava na minha cara o erro. Adriano

Galera, estou com um erro na minha consulta. quer fazer uma consulta onde o usuario pode consultar por nome, convenio ou ambos. O erro que está dando é que se deixo o campo convenio não esta filtrando. posso deixar nusuario em branco e escrever qualquer coisa em convenios, que lista todos os cadastrados. o que será que está errado?? desde já, obrigado!! <% nome = Request.form("nome") convenios = Request.form("convenios") x = Server.MapPath("db/medico.mdb") Set Conexao = Server.CreateObject("ADODB.Connection") liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x conexao.open liga set medico = server.createobject("ADODB.Recordset") medico.ActiveConnection = conexao if nome <>"" And convenios <> "" then medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' AND convenios LIKE '%" & convneios &"%' " while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenios:" & medico.fields("convenios")%><br><br><% medico.movenext wend else if nome = "" And convenios <> "" then medico.open "SELECT * FROM medico WHERE convenios LIKE '%" & convneios &"%' " while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenios:" & medico.fields("convenios")%><br><br><% medico.movenext wend else if nome <> "" And convenios = "" then medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' " while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenios:" & medico.fields("convenios")%><br><br><% medico.movenext wend end if end if end if if nome = "" AND convenios = "" then response.write "Não Existem Médicos com os Dados Selecionados!" end if Conexao.close Set Conexao = nothing %>

Ola pessoal. Qual seria a linha de comando para posicionar um popup na tela? tipo no canto superior direito... com o comando abaixo, consigo abrir ele do tamanha desejado.. falta apenas posicionar. <script language=JavaScript> Janela = window.open('conteudo/popup.swf' , 'Titulo' , 'width=180 , height=180') </SCRIPT> Valeu!

Funcinou sim.. Valeu!!

Ola pessoal, Eu gostaria de saber como posso fazer para colocar em uma pagina, alguns checkbox, e que para marcar, não precise clicar, e sem, apenas passar o mouse... tipo usando OnMoveOver.. ou algo assim.... se alguém tiver um script assim, eu ficaria grato!!! Adriano

criei uma agenda virtual em asp, usando banco de dados access. Eu preciso fazer o cadastro de horarios em que os médicos atendem... sendo que existe um intervalo de 20 minutos. tipo: 7:00, 7:20, 7:40... e assim por diante, até as 20:00. Quando um usuario for marcar conulta, ele devera visualizar os horarios que o medico possui disponivel. O problema: São enúmeros médicos, tipo: oftalmo, pediatra, cardiologista, geriatra... e para montar um calendario de horarios livres para cada um, eu teria que criar bancos de dados tipo: Medicos; tabela: oftalmo; capos: nome endereco fone . . . horario 720 horario 740 horario 800 . . . Sendo que os horarios receberiam valores tipo: horario 720 = disponivel horario 720 = indisponivel horario 720 = disponivel Dessa forma, geraria uma tabela com mais de 420 campos, so para cada horario. Existe uma forma mais simples? tipo criar um campo tipo registro, com varios falores em um so campo?? Obrigado!!!

É eu denovo.. me deculpem a insistência. criei uma agenda virtual em asp, usando banco de dados access. Eu preciso fazer o cadastro de horarios em que os médicos atendem... sendo que existe um intervalo de 20 minutos. tipo: 7:00, 7:20, 7:40... e assim por diante, até as 20:00. Quando um usuario for marcar conulta, ele devera visualizar os horarios que o medico possui disponivel. O problema: São enúmeros médicos, tipo: oftalmo, pediatra, cardiologista, geriatra... e para montar um calendario de horarios livres para cada um, eu teria que criar bancos de dados tipo: Medicos; tabela: oftalmo; capos: nome endereco fone . . . horario 720 horario 740 horario 800 . . . Sendo que os horarios receberiam valores tipo: horario 720 = disponivel horario 720 = indisponivel horario 720 = disponivel Dessa forma, geraria uma tabela com mais de 420 campos, so para cada horario. Existe uma forma mais simples? tipo criar um campo tipo registro, com varios falores em um so campo?? Obrigado!!!

Agora ta funcionando... Muito obrigado!!!

Ola pessoal, estou tentando deletar arquivos de um banco de dados. Tentei criar um script bem simples, mas esta dando erro. o script é: <% cod = Request.form("cod") ' mapeia o caminho x = Server.MapPath("bd/medico.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 Conexao.Open liga ' String SQL para inserir os dados na tabela chamada cadastro strSQL = "DELETE * from medico WHERE codigo = cod" ' executa a string if cod <> "" then Conexao.execute strSQL else response.redirect("exc_med.asp") end if ' fecha a conexão Conexao.close ' destrói o objeto Conexao para liberar memória Set Conexao = nothing %> alguém pode me ajudar a descobrir o que está errado??

Olá pessoal.... agora eu to quebrando a cabeça para criar um banco de dados. Espero que eu consiga me explicar corretamente. Estou criando uma agenda virtual para médicos. onde sera acessado por médicos e pacientes. Os Médicos se cadastrarão e tambem definirão uma agenda de horarios disponiveis... onde eles poderão decidir por intervalos de 20 min, 30 min ou 1h... tipo: 7:00, 7:20, 7:40 ou: 7:00 7:30, 8:00. Como posso fazer para que os usuarios possam agendar uma visita, podendo visualizar uma especie de calendario semanal do medico, com os horarios disponiveis? pensei em criar um banco de dados com campos onde cada horario recebe um valor, tipo: disponivel ou indisponivel, mas se fizesse isso para todos os horarios, iria resultar em um banco de mais de 420 campos. alguém pode me ajudar??

Você diz no fim, mas dentro da 1ª função?

Ola, gostaria de saber se há a possibilidade de criar um botão que chame duas functions diferentes tipo: <input type="button" name="Submit" value="Pesquisar" class="txt" Onclick="pesquisa1();pesquisa2();"> Obrigado!

Desculpe-me... sou novo aqui, mas obrigado assim mesmo.

Ola pessoal... Eu gostaria de saber como eu posso puxar dados de um banco de dados access e, quando for mostrar na tela (em uma consulta), eu mude as cores, insira em uma tabela.. coisas desse genero. Obrigado! Adriano

Ai pessoal... Como posso fazer para que depois que tenha sido digitado um numero em uma cx de texto chamada CPF, seja verificado se é válido? Obriago! Adriano

Ai pessoal... Como posso fazer para que depois que tenha sido digitado um numero em uma cx de texto chamada CPF, seja verificado se é válido? Obriago! Adriano

Bom, o codigo ficou asim: <html> <head> <title>Consulta de Médicos</title> </head> <body> <% nome = Request.form("nome") convenio = Request.form("convenio") especialidade = Request.form("especialidade") ' mapeia o caminho x = Server.MapPath("medico.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 conexao.open liga ' cria o objeto de recordset set medico = server.createobject("ADODB.Recordset") medico.ActiveConnection = conexao if nome <> "" then medico.open "select * from medico WHERE nome Like '%" & nome &"%' AND convenio Like '%" & convenio &"%'" end if if medico.eof then response.write "Não Existem Médicos com os Dados Selecionados!" else while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenio do Medico:" & medico.fields("convenio")%><br><br> <% medico.movenext wend end if ' fecha a conexão Conexao.close ' destrói o objeto Conexao para liberar memória Set Conexao = nothing ' medico.close ' set medico = nothing %> A msg de erro é: Microsoft JET Database Engine erro '80040e10' No value given for one or more required parameters. /marcaqui/cons_med.asp, line 31 Obrigado!

Obrigado!!! Já ta funcionando a conslta... agora, eu so queria saber, o que eu preciso alterar na consulta, para poder filtrar por dois dados, tipo nome e endereço... depois eu arrumo no formulario para pegar dois dados....

Criei uma consulta para listar os dados de um banco de dados.. algo bem simples. O script é esse: <html> <head> <title>Consulta de Médicos</title> </head> <body> <% nome = Request.form("nome") ' mapeia o caminho x = Server.MapPath("medico.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 conexao.open liga ' cria o objeto de recordset set medico = server.createobject("ADODB.Recordset") medico.ActiveConnection = conexao if nome <> "" then medico.open "select * from medico WHERE nome Like '%" & nome &"%'" end if if medico.eof then response.write "Não Existem Médicos com os Dados Selecionados!" else while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br> <% medico.movenext wend end if ' fecha a conexão Conexao.close ' destrói o objeto Conexao para liberar memória Set Conexao = nothing medico.close set medico = nothing %> Bom, o que ocorre é que depois de listar o que está no banco, aparece uma mensagem de erro. Ou sea ele lista e apresenta um erro depois. a msg de erro é: ADODB.Recordset erro '800a0e78' Operation is not allowed when the object is closed. /marcaqui/cons_med.asp, line 49 outra questão: como eu faço para colocar na consulta, mais campos, como campo, endereço, telefone... Obrigado!

Serve sim... Mas com um condição: que não seja muito avançado para a minha mente... hehehhe. Se for muito complexo, acho que eu não vou me achar.... mas se for facil de entender, eu posso tentar. valeu!

Amigo, Eu fiz como você indicou, coloquei o include no arquivo index.htm, mas o arquivo counter.txt não esta recebendo nenhum valor. você tem cmo testar me enviar um sistema semelhante, qe esteja fncionando? Obrigado!

Eu não entendi muito bem, mas mesm assim obrigado! Bom, eu havia criado um, com a ajuda de alguns exemplos. esse é o código: <html> <head> <title>Consulta de Médicos</title> </head> <body> <% nome = Request.form("nome") ' mapeia o caminho x = Server.MapPath("medico.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 if nome <> "" then medico.open "select * from medico WHERE nome Like '%" & nome &"%'" end if if medico.eof then response.write "Não Existem Médicos com os Dados Selecionados!" else while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br> <% medico.movenext wend end if ' fecha a conexão Conexao.close ' destrói o objeto Conexao para liberar memória Set Conexao = nothing %> Se alguém puder corrigir meus erros, estarei grato!

Olá pessoal! Estou implementando um contador em um site. Tenho o seguinte script: <% 'Asp Max Counter Jr. 3.1.0 ' Declaração de variáveis Dim ObjArquivoContador, ReadArquivoContador, WriteArquivoContador Dim ArquivoContador Dim AspMaxCounter Set ObjArquivoContador = Server.CreateObject("Scripting.FileSystemObject") ArquivoContador = Server.MapPath ("counter.txt") Set ReadArquivoContador= ObjArquivoContador.OpenTextFile (ArquivoContador, 1, True) If Not ReadArquivoContador.AtEndOfStream Then AspMaxCounter = Trim(ReadArquivoContador.ReadLine) If AspMaxCounter = "" Then AspMaxCounter = 0 Else AspMaxCounter = 0 End If ReadArquivoContador.Close Set ReadArquivoContador = Nothing AspMaxCounter = AspMaxCounter + 1 Set WriteArquivoContador= ObjArquivoContador.CreateTextFile (ArquivoContador, True) WriteArquivoContador.WriteLine(AspMaxCounter) WriteArquivoContador.Close Set WriteArquivoContador = Nothing Set ObjArquivoContador = Nothing %> Como faço para fazer funcionar no site? Coloco dentro do HTML?

entendo um pouco.... mas eu quero apenas uma consulta simples... sem formatação ou filtragem... Basico pra mim aprender... Valeu! Ps. Eu já estou cadastrado no form, é q eu não tinha me logado!