escolher algo num selectform e ir para pagina

[hunger 0]

galera.... estou trabalhando ha tanto tempo aqui em parar q minha cabeça está rodando... no fim nao estou fazendo um negocio q deve ser ridiculo!!!!!!!

 

é assim: ha uma tab. no bd chamada "consultas". ela possui alguns campos como DATA, HORA, PACIENTE...

 

enfim...

 

o que quero fazer é, criar uma página com uns selectforms.. pro cara escolher o dia, mes e ano. apertando em "ok" estas informações vao pro banco e veem se existe registro nesta data. se houver, ele lista abaixo as consultas cadastradas.... caso nao haja, retorne apenas uma mensagem.

 

hehehhe isso é facil ne?! pois é... e eu nao to conseguindo!!!!!!!!!!!!!!!!!

 

por favor alguem me de uma luz.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

eu ja tinha a pagina da listagem...funcionando e tals. mas agora q fui tentar fazer esse lance dos selects, nao estou conseguindo.....segue o cod:

 

ASP

[*]<%@LANGUAGE="vb script:history.go(-1);'>Clique aqui para voltar à página anterior</a></span>"

 

[*]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

 

[*]

 

[*]%>

 

[*]

 

[*]<%

 

[*]Dim RS

 

[*]Dim RS_numRows

 

[*]

 

[*]RS_numRows = 0

 

[*]%>

 

[*]<%

 

[*]Dim Repeat1__numRows

 

[*]Dim Repeat1__index

 

[*]

 

[*]Repeat1__numRows = -1

 

[*]Repeat1__index = 0

 

[*]RS_numRows = RS_numRows + Repeat1__numRows

 

[*]%>

 

[*]<title>Receituário Médico | Lista de Consultas</title>

 

[*]<style type="text/css">

 

[*]<!--

 

[*]@import url("../receitastyle.css");

 

[*]-->

 

[*]</style>

 

[*]

 

[*]<script language="JavaScript" type="text/JavaScript">

 

[*]<!--

 

[*]function MM_openBrWindow(theURL,winName,features, myWidth, myHeight, isCenter) { //v3.0

 

[*] if(window.screen)if(isCenter)if(isCenter=="true"){

 

[*] var myLeft = (screen.width-myWidth)/2;

 

[*] var myTop = (screen.height-myHeight)/2;

 

[*] features+=(features!='')?',':'';

 

[*] features+=',left='+myLeft+',top='+myTop;

 

[*] }

 

[*] window.open(theURL,winName,features+((features!='')?',':'')+'width='+myWidth+',height='+myHeight);

 

[*]}

 

[*]

 

[*]function MM_goToURL() { //v3.0

 

[*] var i, args=MM_goToURL.arguments; document.MM_returnValue = false;

 

[*] for (i=0; i<(args.length-1); i+=2) eval(args+".location='"+args[i+1]+"'");

 

[*]}

 

[*]//-->

 

[*]</script>

 

[*]<table width="780">

 

[*] <tr> 

 

[*] <td width="169" height="493" align="left" valign="top"> <!--#include file="med_menu.asp" --> </td>

 

[*] <td width="599" align="center" valign="top"><p class="tituloform">Escolha 

 

[*] o dia para exibir a lista de consultas agendadas

 

[*] <form name="form1" method="post" action="">

 

[*] <select name="dia" size="1" class="preenche">

 

[*] <% For x = 1 To 31 %>

 

[*] <option <% If ( x = Day(Now) ) Then response.write "selected" %> value="<%=x%>"><%=x%></option>

 

[*] <% Next %>

 

[*] </select>

 

[*] <select name="mes" size="1" class="preenche">

 

[*] <% For x = 1 To 12 %>

 

[*] <option <% If ( x = Month(Now) ) Then response.write "selected" %> value="<%=x%>"><%=x%></option>

 

[*] <% Next %>

 

[*] </select>

 

[*] <select name="ano" size="1" class="preenche">

 

[*] <% For x = Year(Now) To Year(Now) + 6 %>

 

[*] <option <% If ( x = Year(Now) ) Then response.write "selected" %> value="<%=x%>"><%=x%></option>

 

[*] <% Next %>

 

[*] </select>

 

[*] <input name="Ver" type="button" class="preenche" id="Ver" onClick="MM_goToURL('parent','lista_cons.asp?dia=<%= RS("dia")%>&mes=<%= RS("mes")%>&ano=<%= RS("ano")%>');return document.MM_returnValue" value="Listar consultas">

 

[*] </p> 

 

[*] </form>

 

[*] <p class="tituloform">  </p>

 

[*] <p> </p>

 

[*] <p> 

 

[*] <input name="Imprimir" type="button" class="preenche" id="Imprimir" onClick="MM_openBrWindow('print_lista_cons.asp?ID=<%= RS("ID")%>','','status=yes,menubar=yes,scrollbars=yes','540','410','false')" value="Versão para impressão">

 

[*] </p>

 

[*] <table width="435" bordercolor="#CCCCCC">

 

[*] <tr> 

 

[*] <td width="227"> <div align="left" class="tituloform">PACIENTE</div></td>

 

[*] <td width="135"> <div align="left" class="tituloform">DATA</div></td>

 

[*] <td> <div align="center" class="tituloform">Ação</div></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td width="135" height="24" class="preenche"> 

 

[*] <%

 

[*]

 

[*]'------------------- AQUI VEM TUDO O QUE SERÁ PAGINADO -----------------------

 

[*]

 

[*]While intrec < RS.PageSize and not RS.EOF 

 

[*]If (cor = "#F5F5F5") Then

 

[*]cor = "#F9F9F9"

 

[*]Else

 

[*]cor ="#F5F5F5"

 

[*]End If

 

[*]

 

[*]%> 

 

[*] <tr> 

 

[*] <td width="135" height="18" bgcolor="<%=cor%>"> 

 

[*] <div align="left" class="preenche"><a href="view_cons.asp?ID=<%=(RS("ID"))%>"><%=(RS("PACIENTE"))%></a></div></td>

 

[*] <td width="227" bgcolor="<%=cor%>"> 

 

[*] <div align="left" class="preenche"><%=(RS("dia"))%>/<%=(RS("mes"))%>/<%=(RS("ano"))%></div></td>

 

[*] <td width="57" bgcolor="<%=cor%>" align="center" valign="bottom"> 

 

[*] <div align="center"><a href="altera_cons.asp?ID=<%=(RS("ID"))%>"><img src="img/bt_altera.gif" alt="ALTERAR CONSULTA" width="18" height="18" border="0"></a> 

 

[*] <a href="exclui_cons.asp?ID=<%=(RS("ID"))%>"><img src="img/bt_exclui.gif" alt="EXCLUIR CONSULTA" width="18" height="18" border="0"></a></div></td>

 

[*] <% 

 

[*]Repeat1__index=Repeat1__index+1

 

[*]Repeat1__numRows=Repeat1__numRows-1

 

[*]RS.MoveNext()

 

[*]intrec=intrec+1 

 

[*]Wend

 

[*]%>

 

[*] </tr>

 

[*] </table>

 

[*] <%

 

[*]'---------------------------------------------------------------------------------------------

 

[*]

 

[*]

 

[*]

 

[*]%>

 

[*] <div align="center"><br>

 

[*] <%

 

[*]

 

[*]'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 

 

[*]IF intpagina > 1 then 

 

[*]%>

 

[*] <a href="lista_cons.asp?pagina=<%=intpagina-1%>" class="preenche">[ 

 

[*] 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="lista_cons.asp?pagina=<%=intpagina + 1%>" class="preenche">[ 

 

[*] Próxima ]</a> 

 

[*] <% 

 

[*]END IF

 

[*]%>

 

[*] <%

 

[*]RS.Close()

 

[*]Set RS = Nothing

 

[*]%>

 

[*] </div> 

 

[*]</table>

 

[*] <div align="center"></div>

 

abção!!! se precisarem saber algo, ....falem ae!!

 

t+

 

marcos hunger.

[explore 3]

Seguinte, olha como você está fazendo seu SELECt elá que vai estar o segredo!Pelo que eu sei tem bastante coisa do forum sobre isto da uma pesquisada tb!

[hunger 0]

fala meu...milagre alguem agora pra ajudar!! heheheentao, postei meu codigo ae em cima...da uma olhadinha?! to zureta aqui... ontem trampei nesas programação das 10 da manha ate as 4:30 da madruga...

[Mário Monteiro 179]

que erro ta dando??

[hunger 0]

fala mario....beleza?

 

entao, do jeito q está essa página ae.... nada está funcionando! vou explicar..

 

qdo você escolhe a data q deseja ver os registros e da o "ok" para prosseguir, nao acontece nada! a página continua ali, e muda apenas a URL, incluindo o q seria a busca, por exemplo:

 

....lista_cons.asp?dia=4&mes=8&ano=2005

 

mas, o problema é q ele nem sequer acrescenta ali a data que eu mandei, ele só acrescenta a data atual....

 

 

outro problema.... qdo abre a página, o certo seria já listar as consultas agendadas para o dia atual... e não acontece... ele sempre lista todas as consultas cadastradas no banco!

 

eu preciso entregar isso hj....hehehe estou madrugando ha dois dias... vai ver é por isso q nao to raciocinando mais... qquer empurraozinho q puder dar ae será uma ENORME AJUDA!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

brigadao!

 

marcos.

[Salgado 4]

Existe um erro no JS na linha Linha 129

ASP

1. <input name="Ver" type="button" class="preenche" id="Ver" onClick="MM_goToURL('parent','lista_cons.asp?dia=<%= RS("dia")%>&mes=<%= RS("mes")%>&ano=<%= RS("ano")%>');return document.MM_returnValue" value="Listar consultas">
   

Repare que você está montando o link com os dados do RecordSet e não com os dados preenchidos no Form.

[hunger 0]

fala salgado....

 

é verdade, tenho q colocar com os nomes do form.... mas como faço isso?

 

ao invés de

ASP

[*]lista_cons.asp?dia=<%= RS("dia")%>&mes=<%= RS("mes")%>&ano=<%= RS("ano")%>

 

teria q ser tp

ASP

[*]lista_cons.asp?dia="dia"&mes="mes"&ano="ano"

 

cara, to mto burro com td isso. ja fiz tanta coisa q nao raciocino mais. devo ter falado uma besteira ae em cima... mas sei la, de uma ideia ae.... por favor! enquanto isso vou tentando aqui...

 

valew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

marcos hunger.

[Salgado 4]

JS não é muito minha praia, mas deve ser algo assim:

ASP

1. <input name="Ver" type="button" class="preenche" id="Ver" onClick="MM_goToURL('parent','lista_cons.asp?dia='+Dia.Value+'&mes='+Mes.Value+'&ano='+Ano.Value+'');return document.MM_returnValue" value="Listar consultas">
   

[hunger 0]

é.... assim ele nao muda nada e acusa "erro da pagina" la embaixo da janela...

 

eu mudei onde você tinha colocar em maiusculo, por minusculo, pra ficar igual ao nome mesmo dos campos.... assim:

 

ASP

[*] <input name="Ver" type="button" class="preenche" id="Ver" onClick="MM_goToURL('parent','lista_cons.asp?dia='+dia.Value+'&mes='+mes.Value+'&ano='+ano.Value+'');return document.MM_returnValue" value="Listar consultas">

 

ae qdo testei, ele escreve na URL:

 

...lista_cons.asp?dia=undefined&mes=undefined&ano=undefined

[Mário Monteiro 179]

tem que referenciar o nome do form tbem vez dedia.Valueponhadocument.NOMEDOFORM.NOMEDOCAMPO.valueparece que pra funcionar em todos os navegadores precisa adicionar forms.document.forms.NOMEDOFORM.NOMEDOCAMPO.valuebem este final não tenho certeza...

[hunger 0]

fala mario.......entao, agora ele escreve la na url..... mas nao faz nada... entende? tp, ele só escreve la.... mas nao existe uma "busca" no bd.....e na verdade ele está escrevendo td menos o ano.... fica assim por exemplo:...lista_cons.asp?dia=3&mes=7&ano=estranho ne?cara, nao sei mais o q fazer... o tempo está passando e eu nao consigo resolver essa besteira.... to ficando louco aqui!!!!!!!!!!!!!!!!!!!!!!!!!!!! :blink: tp, nao sei mais o q tentar.... nao sei se começo de novo a pagina... mas mesmo q faça isso, eu nao sei mais como fazer!!!!!!!!!!!!!!!!!!!!!!

[hunger 0]

consegui resolver o problema de nao mostrar o ano. agora está beleza.... só preciso fazer funfar a bagaça agora....rs... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

o nome do ultimo campo esta certo??bem a busca do db deve ser em outra pagina e não nessa ai

[hunger 0]

aé? ...putz.... como devo fazer entao? aquele link eu mando pra uma outra pagina, levando os valores dos campos do form?

[Salgado 4]

aé? ...putz.... como devo fazer entao? aquele link eu mando pra uma outra pagina, levando os valores dos campos do form?

<{POST_SNAPBACK}>

Para facilitar, Sim. Na outra página você recupera os dados e faz a sua busca.

[hunger 0]

entendi...........

 

desculpa perguntar tanto...eu ja nao manjo mto, e ainda sob pressao aqui ta fd...

 

como eu recupero aqui q foi escrito no form anterior? por meio de variaveis ou coisa assim?

 

e a busca eu faço no select e tals? tp, select * from consultar where dia = "vdia" .... assim?

 

nao me xinguem..rs... vcs ja estão ajudando BASTANTE!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Salgado 4]

Na outra página você recebe numa var, assim:

ASP

1. Dia = Request("Dia")
   

E na monta a sua SQL dessa forma mesmo que você mostrou.

[hunger 0]

UFA!! nossa.... tu caiu do ceu....rs.... ja estava achando q nao conseguiria terminar isso aqui.

 

bom, claro q esse é só o começo pra terminar esta pagina...ainda tem alguns detalhes q vou mudar, mas só de funcionar ja é um grande passo!!

 

valew mesmo a você e todos q ajudaram!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

qquer problema (q com certeza terei), postarei aqui!

 

 

- só uma coisa: a minha ideia era q, ao clicar no menu, a primeira página q aparecesse já listasse as consultas marcadas para o dia atual. como eu colocaria então no link do botão essa propriedade? pq do jeito q está hj, eu dependo de preencher um form para jogar as informações ne....

 

abço!!!!