Ir para conteúdo
Fórum Script Brasil

Ronaldo Bueno

Membros
  • Total de itens

    22
  • Registro em

  • Última visita

Tudo que Ronaldo Bueno postou

  1. Tenho sim Bareta. Inclusive quando digito a url no browse, abre a janela para escolher qual eu quero. A mesma url da prefeitura. Tem alguma idéia de como resolver? Obrigado por responder.
  2. mudei o código. peguei esse de um amigo na net. <code> <% sUrl = "https://nfe.prefeitu...tenfe.asmx?WSDL" Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") Set xmlResult = Server.CreateObject("MSXML2.DomDocument.3.0") xmlResult.async = False xmlhttp.Open "POST", sUrl, False xmlhttp.Send strXML 'Envia o XML xmlhttp.waitForResponse 200 xmlResult.loadXML(xmlhttp.ResponseText) response.write "Retorno XML inicio <BR><hr>" if xmlResult.parseError.errorCode <> 0 then response.write "Cod ERRO: " & xmlResult.parseError.errorCode response.write "<br>" response.write "Desc. ERRO: " & xmlResult.parseError.reason else Response.write xmlhttp.ResponseText End if response.write "<BR><hr>Retorno XML FIM<br>" response.End() %> </code> ele insiste em dar erro. só que agora é dizendo que requer o certificado, mas esta instalado <font face="Arial" size=2> <p>msxml6.dll</font> <font face="Arial" size=2>error '80072f0c'</font> <p> <font face="Arial" size=2>A certificate is required to complete client authentication </font>
  3. Se entendi bem: Coloca um contador, antes do While Not RecProjecto002.EOF NumReg = 0 e antes do RecProjecto002.MoveNext NumReg = NumReg + 1
  4. Pessoal, será que alguém já passou por isso? Alguém saberia me dizer porque para acessar um webservice qualquer consigo através do código abaixo (claro mudando os endereços) e o da Prefeitura de São Paulo, simplesmente não aparece nada, já fui ver em código fonte da pagina e não tem nada. Alguém já passou por isso? Set oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.3.0") oXMLHTTP.open "POST", "https://nfe.prefeitu...tenfe.asmx?WSDL", false oXMLHTTP.setRequestHeader "POST", "https://nfe.prefeitu...tenfe.asmx?WSDL HTTP/1.1" oXMLHTTP.setRequestHeader "Content-Type","application/x-www-form-urlencoded" oXMLHTTP.setRequestHeader "Host","https://nfe.prefeitura.sp.gov.br" oXMLHTTP.setRequestHeader "Content-Length", CStr(Len(xml)) oXMLHTTP.send (xml) mensagem = oXMLHTTP.responseXML.xml response.write mensagem O certificado esta OK. O POST funciona em outro Webservice Quando acesso pelo browser, pede o certificado e aparece o conteúdo O que acontece ?
  5. Ronaldo Bueno

    Assinar XML

    Pessoal, Já não sei mais o que faço, preciso assinar um XML de Nfe da prefeitura de são paulo. Já gerei o xml e assinei (tag acima) com sha1, porém preciso assinar com certificado digital e enviar. Isso em ASP Clássico, estou precisando muito de ajuda ou quem sabe alguém que já tenha feito e queira vender essa parte. Obrigado
  6. Pessoal, já rodei tudo na net e não achei a solução. acredito que seja simples, mas esta ruim rsrs tenho uma pagina asp que envia um xml da transação para a Cielo, até ai esta tudo bem e funcionando. acontece que o servidor retorna um XML para eu poder pegar o código da url-autenticação e isso que não estou conseguindo fazer. já vi alguns códigos que le o xml mas com caminho (url) e o da Cielo não é assim (isso que o suporte disse). dim xml xml = "<?xml version=" & versaoxml & " encoding=" & encodingxml & "?>" xml = xml & "<requisicao-transacao id=" & idrequisicao & " versao=" & versaorequisicao & ">" xml = xml & "<dados-ec>" xml = xml & "<numero>" & estabelecimento & "</numero>" xml = xml & "<chave>" & chaveestabelecimento & "</chave>" xml = xml & "</dados-ec>" xml = xml & "<dados-pedido>" xml = xml & "<numero>" & codigopedido & "</numero>" xml = xml & "<valor>" & pedidototalgeralsemvirgula & "</valor>" xml = xml & "<moeda>" & moeda & "</moeda>" xml = xml & "<data-hora>" & dataenviar & "</data-hora>" xml = xml & "<descricao>" & descricao & "</descricao>" xml = xml & "<idioma>" & idioma & "</idioma>" xml = xml & "</dados-pedido>" xml = xml & "<forma-pagamento>" xml = xml & "<bandeira>" & bandeira & "</bandeira>" xml = xml & "<produto>" & produto & "</produto>" xml = xml & "<parcelas>" & parcelas & "</parcelas>" xml = xml & "</forma-pagamento>" xml = xml & "<url-retorno>" & urlretornoxml & codigopedido & "</url-retorno>" xml = xml & "<autorizar>" & autorizar & "</autorizar>" xml = xml & "<capturar>" & capturar & "</capturar>" xml = xml & "<campo-livre>" & campolivre & codigopedido & "</campo-livre>" xml = xml & "</requisicao-transacao>" Set oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP") oXMLHTTP.open "POST", "https://qasecommerce.cielo.com.br/servicos/ecommwsec.do", false oXMLHTTP.setRequestHeader "Content-Type","text/xml" oXMLHTTP.setRequestHeader "charset", "utf-8" oXMLHTTP.setRequestHeader "Content-Length", CStr(Len(xml)) oXMLHTTP.Send ("mensagem=" & xml) Response.write(xml) Set oXMLHTTP = Nothing e agora preciso ler esse XML que vem de retorno na mesma página para poder pegar a url-autenticacao e redirecionar para o cliente. <?xml version="1.0" encoding="ISO-8859-1"?> <transacao versao="1.2.0" id="6-e7762cbf8856" xmlns="http://ecommerce.cbmp.com.br"> <tid>10017348980735271001</tid> <dados-pedido> <numero>1130006436</numero> <valor>1000</valor> <moeda>986</moeda> <data-hora>2011-12-05T16:01:28.655-02:00</data-hora> <descricao>[origem:10.50.54.156]</descricao> <idioma>PT</idioma> </dados-pedido> Cielo e-Commerce Manual do Desenvolvedor Versão 2.0.1 14 <forma-pagamento> <bandeira>visa</bandeira> <produto>1</produto> <parcelas>1</parcelas> </forma-pagamento> <status>0</status> <url-autenticacao>https://ecommerce.cielo.com.br/web/index.cbmp?id=a783251 </url-autenticacao> </transacao> Alguém poderia me dar uma luz ? Obrigado
  7. Alguém saberia responder como faço para converter a string (Sat, 07 Aug 2010 18:35:17 -0300) para o formato 00/00/0000 00:00:00 ?
  8. Pessoal, primeiro desculpa se não estiver no lugar certo. estou com 3 problemas: vou explicá-los bem detalhado. Vou dizer o que pretendo e depois como fiz, assim se alguém puder me ajudar agradeço muito. Quero uma página em HTML que mostre o conteúdo de várias URL´s RSS Cadastradas em banco ACCESS, ou seja tenho um banco assim: na página asp, abro o banco e pego registro por registro, fazendo com que ele leia a URL e grave em um outro banco assim: <!--#include file="include/open-tables.asp" --> <% set RSabre = server.createobject("adodb.recordset") SQLabre = "SELECT * FROM channel" RSabre.open SQLabre, conn, 2, 2 while not RSabre.eof url = RSabre("url") fonte = RSabre("source") canal = RSabre("channel") Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0") xml.async = False xml.SetProperty "ServerHTTPRequest", True xml.ValidateOnParse = False xml.PreserveWhiteSpace = False If Not xml.Load(url) Then Response.Write "" Else Set nodeList = xml.getElementsByTagName("item") For Each objNode In nodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" : title = objNode2.firstChild.nodevalue Case "link" : link = objNode2.firstChild.nodevalue Case "pubDate" : pubDate = objNode2.firstChild.nodevalue End Select Next title = Replace(title,Chr(39),Chr(39)&Chr(39)) set RSgrava = server.createobject("adodb.recordset") SQLgrava = "SELECT * FROM grava_dados where fonte='"&fonte&"' and canal='"&canal&"' and titulo='"&title&"' and link='"&link&"' and data='"&pubDate&"'" RSgrava.open SQLgrava, conn, 2, 2 dia = Mid(pubDate, 5, 3) if RSgrava.eof then dim RSgravau Set RSgravau = Server.CreateObject("ADODB.Recordset") RSgravau.Open "grava_dados", Conn, 2, 2 RSgravau.addnew RSgravau("fonte") = fonte RSgravau("canal") = canal RSgravau("titulo") = title RSgravau("link") = link RSgravau("dia") = dia RSgravau("data") = pubDate RSgravau.update end if Next Set nodeList = Nothing End If Set xml = Nothing rsabre.movenext wend RSabre.close Set RSabre = Nothing RSgrava.close Set RSgrava = Nothing RSgravau.close Set RSgravau = Nothing %> <!--#include file="include/close-tables.asp" --> Alguém poderia me perguntar, porque você lê as URLS e grava no banco de dados ? porque o meu primeiro problema começa ai: eu também tenho a página apenas lendo e mostrando, acontece que quando ele coloca na página a ordem que ele faz isso é do banco de canal, então fica várias linhas com o primeiro canal e depois muda para o outro. isso significa que a ordem das notícias não ficam do jeito que eu queria. então resolvi gravar no banco para eu poder dar um select depois para mostrar as noticias exatamente como é nas páginas RSS, por ordem de data e hora. Com isso tenho mais um problema. ele grava tudo certo, mas o campo pubDate (original da URL RSS) grava no meu banco como string assim: Sat, 07 Aug 2010 18:35:17 -0300, e isso não da para ordenar, porque fica sem lógica. Ai tentei pegar o dia somente desse dado: dia = Mid(pubDate, 5, 3) e gravar também no banco como dia, mas também não estou consegundo ordenar. fica tudo fora do que desejo. Outro motivo que optei por gravar no banco, é que queria fazer uma div onde fosse caindo a notícia mais nova, ou seja ele abre mostra as atuais por ordem de chegada e quando entrar outra no banco, ele abaixa as antigas e a nova fica em cima. Será que fui claro nos meus problemas ? Agradeço muito pela colaboração Esqueci. já andei por tudo no google e nada, por isso resolvi abrir o assunto.
  9. Ok, Bareta, vou explicar melhor... mas sem código ok ? em uma tabela eu tenho os campos: codigo, medico, especialidade, intervalo de atendimento, dia da semana, hora inicial, hora final. em outra tabela tenho a marcação de consulta. no primeiro código que postei, é onde ele monta um select dentro da página de marcação de consulta, conforme o médico selecionado e a data que escolheu (tipo tem médico q atende de seg a sexta, mas em horários diferentes e intervalos diferentes) o segundo código é onde ele monta em cima da página de marcação de consulta, uma espécie de agenda, mas desse jeito, esta mostrando os horários que estão ocupados naquele dia que a pessoa escolheu. o que eu queria era uma agenda em cima tipo aquelas que tem o dia e nesse dia tem das 08:00 às 18:00 (tem algumas que tem intervalo de 30 em 30 minutos). Mas essa agenda tem que ser conforme o horário de atendimento do médico naquele dia e com intervalo que esta cadastrado. nessa linha do segundo código: diasemanaatual = PegaDiaSemana(now) é onde eu pego a data que ele clicou e transformo em dia da semana. Melhorou a explicação ??? se não, posto novamente ok ? Ps. Rafael e sobre o BEETWEN, dei uma olhada, na verdade já fiz algumas coisas com ele, mas não estou vendo como fazer isso funcionar com esse comando, pois não tenho nenhuma consulta que seja entre data x e data y, se puder explicar melhor, vou tentando ver o que faço. Obrigado por enquanto
  10. Olá, pessoa, quer puder me ajudar agradeço. é o seguinte, tenho uma tabela com os campos, medico, intervalo de atendimento, dia da semana, hora inicial e hora final. quando entro na pagina de marcar a consulta, o médico a data já venho de outra página, portanto tenho uma rotina que verifica os horarios de atendimento de acordo com cada médico e cada dia da semana, então monto um select para escolher qual uma hora: vou postar o código do select aqui: dim intervalo,inicial,final,hi,hf,mi,mf,interv,voltas intervalo = rspd("intervaloatendimento") inicial = rspd("horainicial") final = rspd("horafinal") response.write("<select name='horaconsulta' id='horaconsulta' class='letraform' onchange='corrigir(this.value)'>") If inicial = "00:00" and final = "00:00" then response.write("<option value='""'>Médico não atende esse dia</option>") Else hi=left(inicial,2) mi=right(inicial,2) hf=left(final,2) mf=right(final,2) interv=intervalo 'inicio do gerador if mi=0 then total=(((hf-hi)*60)+mf)/interv else total=((((hf-hi)*60)-mi)+mf)/interv end if voltas=Int(total) response.write("<option value='""'>Selecione um Horário</option>") for i=0 to voltas if mi=60 then hi=eval(hi)+1 mi=0 elseif mi>60 then hi=eval(hi)+1 mi=(eval(mi)-60) end if if i=0 then if mi=0 then if hi<10 then response.write("<option value='"&hi&":"&mi&"'>"&hi&":"&mi&"</option>") else response.write("<option value='"&hi&":"&mi&"'>"&hi&":"&mi&"</option>") end if else if hi<10 then response.write("<option value='"&hi&":"&mi&"'>"&hi&":"&mi&"</option>") else response.write("<option value='"&hi&":"&mi&"'>"&hi&":"&mi&"</option>") end if end if mi=eval(mi)+eval(interv) else if mi=0 then if hi<10 then response.write("<option value='0"&hi&":"&mi&"0'>0"&hi&":"&mi&"0</option>") else response.write("<option value='"&hi&":"&mi&"0'>"&hi&":"&mi&"0</option>") end if else if hi<10 then response.write("<option value='"&hi&":"&mi&"'>"&hi&":"&mi&"</option>") else response.write("<option value='"&hi&":"&mi&"'>"&hi&":"&mi&"</option>") end if end if mi=eval(mi)+eval(interv) end if next End if response.write("</select>") até aqui esta tudo beleza, acontece que na página de marcação eu fiz em cima uma div que pega 5 dias apartir da data que a pessoa escolheu para mostrar a agenda. mas esta assim: <div id="Layer1"> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "CONEXAO" strQueryAgenda = "select * from consultorio where dataconsulta='"&dia1&"' and medicos='"&medicosatual&"' order by horaconsulta" Set rsagenda=Server.CreateObject("ADODB.Recordset") rsagenda.Open strQueryAgenda, objConn diasemanaatual = PegaDiaSemana(now) response.write("<table border='1'>") response.write("<tr><td colspan='2' align='center' class='laranjam'>"&diasemanaatual&"</td></tr>") response.write("<tr><td colspan='2' align='center'>"&dia1&"</td></tr>") if diasemanaatual = "Sábado" or diasemanaatual = "Domingo" then if diasemanaatual = "Sábado" then response.write("<tr><td colspan='2' align='center' class='azulagenda'>Não Atende</td>") response.write("</tr>") response.write("</table>") Elseif diasemanaatual = "Domingo" then response.write("<tr><td colspan='2' align='center' class='azulagenda'>Não Atende</td>") response.write("</tr>") response.write("</table>") End if else Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "CONEXAO" strQuerypd = "Select * from atenderdiasemana where medico='"&medicosatual&"' and diasemana='"&diasemanaatual&"' order by medico" Set rspd=Server.CreateObject("ADODB.Recordset") rspd.Open strQuerypd, objConn dim intervalo1,inicial1,final1 intervalo1 = rspd("intervaloatendimento") inicial1 = rspd("horainicial") final1 = rspd("horafinal") If inicial1 = "00:00" and final1 = "00:00" then response.write("<tr><td colspan='2' align='center' class='azulagenda'>Não Atende</td>") response.write("</tr>") response.write("</table>") Else while not rsagenda.EOF if rsagenda("horaconsulta") = "" then response.write("<tr><td class='laranjam'>"&rsagenda("horaconsulta")&"</td><td>LIVRE</td></tr>") else response.write("<tr><td class='laranjam'>"&rsagenda("horaconsulta")&"</td><td class='azulagenda'>OCUPADO</td></tr>") end if rsagenda.movenext wend response.write("</table>") objConn.close set objConn=nothing set rsagenda=nothing End if End if %> </div> esse código esta funcionando perfeito, mas esta assim; ele mostra o nome do dia da semana mostra a data que a pessoa clicou e mostra os horários que já tem consulta marcada e na frente a palavra OCUPADO. o que eu queria era que ele mostrasse todos os horário (igual ao select), conforme o dia da semana, e respeitando o intervalo de atendimento e somente os que já foram marcados, mostrasse OCUPADO e os outro deixava em branco. Será que ficou muito complicado a explicação ? agradeço a todos, obrigado
  11. Obrigado bareta por responder, mas resolvi assim: vou postar só o miolo while not rsat.EOF registro = registro+1 if registro=1 then response.write("<tr><td>"&rsat("medico")&"</td><td>"&rsat("especialidade")&"</td><td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>") Else if contalinha<=3 then response.write("<td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>") else contalinha=0 registro=0 response.write("<td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>") end if contalinha=contalinha+1 end if rsat.movenext wend tirei aquele if das linhas (eram dois) e coloquei um só com <= e coloquei o resultado do outro if sendo como else desse, deu certinho. Obrigado mais uma vez .... tenho mais um problema para resolver, vou postar, se puder de uma olhada.
  12. Olá, preciso de uma ajudinha ... Tenho uma tabela com os seguinte campos, medico, especialidade, dia da semana, hora inicial, hora final: na hora de preencher os registro fica assim: medico XXX neurocirurgião segunda-feira 08:00 12:00 medico XXX neurocirurgião terça-feira 08:00 10:00 medico XXX neurocirurgião quarta-feira 12:00 16:00 medico XXX neurocirurgião quinta-feira 16:00 18:00 medico XXX neurocirurgião sexta-feira 10:00 14:00 medico AAA neurocirurgião segunda-feira 08:00 12:00 medico AAA neurocirurgião terça-feira 08:00 10:00 medico AAA neurocirurgião quarta-feira 12:00 16:00 medico AAA neurocirurgião quinta-feira 16:00 18:00 medico AAA neurocirurgião sexta-feira 10:00 14:00 e assim por diante. O que eu queria fazer era uma tabela assim: Dias da Semana e Horários: Medico especialidade segunda terça quarta quinta sexta XXX neurocirurgião 08:00 12:00 08:00 10:00 12:00 16:00 16:00 18:00 10:00 14:00 AAA neurocirurgião 08:00 12:00 08:00 10:00 12:00 16:00 16:00 18:00 10:00 14:00 ai um colega me ajudou a chegar nesse código: <% registro=0 contalinha=1 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "CONEXAO" strQueryat = "Select * from atenderdiasemana" Set rsat=Server.CreateObject("ADODB.Recordset") rsat.Open strQueryat, objConn while not rsat.EOF registro = registro+1 if registro=1 then response.write("<tr><td>"&rsat("medico")&"</td><td>"&rsat("especialidade")&"</td><td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>") Else if contalinha<4 then response.write("<td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>") elseif contalinha=4 then response.write("<td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td></tr><tr>") else contalinha=0 registro=0 end if contalinha=contalinha+1 end if rsat.movenext wend response.write("</tr>") %> esta acontecendo o seguinte: os dados estão misturados, tipo ele começa com o primeiro médico, ai ele mostra só até quinta do primeiro e na mesma linha coloca a segunda-feira de outro, assim vai, até que o ultimo termina em terça e alguns médico ele não mostra. Alguém poderia me ajudar ??? Obrigado
  13. ok, fiz isso, mas acontece que o hidden não pode ficar igual ao que fez não é ? tem que ser igual ao o outro (inicio) pois o hidden é que vai mandar o nome do médico certo ? Não deu certo, porque ele envia a data vazia ... porque será ?
  14. O caléndário peguei pronto e esta assim: <table border="0"> <tr> <td width="190"><div align="center"> <table width="190" border="0" cellspacing="1" cellpadding="1"> <tr bgcolor="#3399CC"> <td><a href="medico.asp?mese=<%if mese > 1 then response.write mese-1 else response.write 12 End If%>&anno=<%if mese > 1 then response.write anno else response.write anno-1 End If%>" onMouseOut="window.status=''" onMouseOver="window.status=''"><img src="images/prev.gif" border="0"></a></td> <td width="50%" bordercolor="#666666" bgcolor="#3399CC"><div align="center"> <b><font color="#FFFFFF"><%=tmese%> </font></b></div></td> <td width="50%" bordercolor="#666666"><div align="center"><b><font color="#FFFFFF"><%=anno%></font></b></div></td> <td><a href="medico.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>" onMouseOut="window.status=''" onMouseOver="window.status=''"><img src="images/next.gif" border="0"></a></td> </tr> <tr> <td colspan="4"><table width="100%" border="1" cellspacing="1" cellpadding="1" bordercolor="#666666"> <tr bgcolor="#003399"> <td bgcolor="#003399"><div align="center"><font color="#CCCCCC">S</font></div></td> <td><div align="center"><font color="#CCCCCC">T</font></div></td> <td><div align="center"><font color="#CCCCCC">Q</font></div></td> <td><div align="center"><font color="#CCCCCC">Q</font></div></td> <td><div align="center"><font color="#CCCCCC">S</font></div></td> <td><div align="center"><font color="#CCCCCC">S</font></div></td> <td><div align="center"><font color="#CCCCCC">D</font></div></td> </tr> <tr> <% giorno1 = (day1-primog+x) Do While giorno1 <= (dayoff+7-ultimog) %> <td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#FFCC33""" End If%>><div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then response.write "#000000" Else response.write "#CCCCCC" End If%>"> <%if giorno1 >= day1 and giorno1 <= dayoff then%> <a href="teste.asp?data=<%=(day1-primog+x)%>&medico=Dr. XXXXX" target="_parent" onMouseOut="window.status=''" onMouseOver="window.status=''"><%=day(day1-primog+x)%></a> <%else%> <%=day(day1-primog+x)%> <%End If%> </font></div></td> <%If weekday(day1 - primog + x - 1) = 7 Then response.write "</tr>" End If%> <% giorno1 = giorno1 + 1 x=x+1 loop%> </table> Ps. tem atualmente no link do dia um médico XXX que estou colocando manualmente apenas para testar. Ps1. e acima disso tem todo o código ASP que faz o calendário funcionar.
  15. gostei da idéia, mas se puder, me explique melhor para eu testar ... não entendi como fazer o form dentro do calendário muito menos o imput ... Obrigado
  16. Jonathan Queiroz, entendi o que disse, mas não posso fazer assim, porque quem manda para a outra página é um link colocado no dia dentro do calendário. Ou seja quando se clica em uma data, é que vai para a teste.asp com o valor da data. Alguma outra luz ? Obrigado.
  17. Olá, estou com um sério problema e gostaria de ajuda dos feras aqui. Tenho uma página ASP o qual tem um select (com nomes que vem de uma banco de dados) e abaixo tenho um calendário feito em div. Quando o usuário clica em um dia no calendário ele vai para uma outra página que serve para marcar uma consulta naquela data que clicou. até ai esta tudo funcionando levo a data assim: <a href="teste.asp?data=<%=data%>> O que estou querendo é que nesse mesmo link vai o que selecionou no select. tentei fazer assim, mas não esta dando certo. no select dos nomes coloquei: onchange="document.getElementById('me').value=this.value;" e abaixo do select coloquei um text <input type="text" name="me" id="me" value="">. até ai tudo bem ele mostra o valor do select. Então peguei o input text e coloquei hidden, ai acrescentei naquele link acima o seguinte: <a href="teste.asp?data=<%=data%>&nome=<%=request("me")%>">, mas não funciona. O meu problema esta em mandar essa variavel, já que na teste.asp eu resgato a data assim: dataatual = request("data") e dá certinho. Então preciso de uma forma de levar essa variavel para a outra página, já tentei de tudo, mas não vai. já tive olhando algumas coisas sobre JS mas não consegui fazer. Então uma pergunta: só com JS que irei conseguir fazer isso ? Estou queimando a cuca nisso e não sai nada... Alguém poderia me ajudar ?
  18. Jonathan Queiroz obrigado por responder... fiz isso também, mas mesmo assim nada <option value="<%=Recordset1(0)%>"> <%=Recordset1(0)%> </option> acontece que com esse select <select name="paciente" id="paciente" onChange="document.form1.plano.value=this.options[selectedIndex].text;document.form1.tipo.value=this.options[selectedIndex].text;document.form1.numerocarteira.value=this.options[selectedIndex].text;document.form1.mesvalidade.value=this.options[selectedIndex].text;document.form1.anovalidade.value=this.options[selectedIndex].text"> esta aparecendo o nome que eu selecionei em todas as caixas e gostaria que fosse os dados que estão no banco de dados referente a esse nome, entendeu ? mais uma vez obrigado
  19. Andreia, não sei porque, mas não funcionou (agora fica em branco) vou colocar o código como esta ok ? 1 abro a conexão 2 faço a pesquisa Recordset1.Open "select nome,tel,cel from clientes ORDER BY nome" , Conexao, 1, 3 3 select <select name="clientes" id="clientes" onChange="form1.tel.value=this.options[selectedIndex].value;form1.cel.value=this.opti ons[selectedIndex].value"> 4 preencho o select do while not Recordset1.eof %> <option> <%=Recordset1(0)%> </option> <% Recordset1.movenext loop %> 5 text box <input name="tel" id="tel" type="text" value="tel" size="15" maxlength="50" disabled="disabled">
  20. Amigos, boa noite, e estou precisando de uma mãozinha dos feras daq. Primeiramente quero pedir desculpas se postei no lugar errado. Acontece o seguinte, estou tentando fazer um select onde após escolher um nome que aparece dentro, queria que ele mostrasse sozinho o tel e cel em caixa de texto, o qual já travei. Só que quando clico em um nome aparece a palavra "undefined" nas caixas de texto. o que estou fazendo de errado ? alguém poderia me dar uma ajuda básica. Segue abaixo o código simples. <select name="nome" id="nome" onChange="form1.tel.value=this.options[selectedIndex].tel;form1.cel.value=this.option s[selectedIndex].cel"> e as caixas de textos estou colocando normalmente; <input name="tel" id="tel" type="text" value="tel" size="15" maxlength="50" disabled="disabled"> coloquei o value proposital (para ver se mudava) e disabled. Obrigado
×
×
  • Criar Novo...