problemas em puxar informações de bd

[hunger 0]

opa!

 

entao...é o seguinte:

 

criei uma página com um select form q lista as SUBSTANCIAS cadastradas em um bd. a idéia é que, selecionando uma dessas substancias, vá para outra página que mostre a MONOGRAFIA desta substancia escolhida.

 

no caso, esta proxima página, também deverá ter o select form... pq assim ele poderá escolher outra substancia para ler e tals... o mais pratico mesmo seria fazer uma pagina só, onde o cara escolhesse a substancia e ali mesmo mostrasse a monografia, mas nao sei fazer isso.

 

entao, a pagina q criei fica dando erro...qdo seleciono uma substancia ele nao faz nada, e no rodape da janela aparece aquele icone como de um erro de script....bom, vou passar o codigo pra ver se alguem tem alguma sugestao, enquanto continuo tentando por aqui...

 

<%@LANGUAGE="VBSCRIPT"%><%if not session("logado")="sim" thenresponse.redirect "login_med.asp"end if%> <%S = SESSION("CRM")IF S = "" THENRESPONSE.REDIRECT "login_med.asp"END IF%><%Dim RSSub__MMColParamRSSub__MMColParam = "1"If (Request.QueryString("ID") <> "") Then   RSSub__MMColParam = Request.QueryString("ID")End If%><%Dim RSSubDim RSSub_numRowsSet RSSub = Server.CreateObject("ADODB.Recordset")RSSub.ActiveConnection = MM_Conexao_STRINGRSSub.Source = "SELECT * FROM substancia order by NOME ASC"RSSub.CursorType = 0RSSub.CursorLocation = 2RSSub.LockType = 1RSSub.Open()RSSub_numRows = 0%><div id="Layer1" style="position:absolute; left:0px; top:0; width:440px; height:66px; z-index:1"><form name="form1">	<table width="440" height="217" border="0">	  <tr bgcolor="#F9F9F9"> 		<td height="25" colspan="2"> 		  <div align="center" class="tituloform"><strong>SUBSTÂNCIAS 		  | MONOGRAFIAS</strong></div></td>	</tr>	<tr bgcolor="#F4F4F4"> 		<td width="18%" height="21" class="form"> </td>	  <td width="82%"> </td>	</tr>	<tr bgcolor="#F9F9F9"> 		<td height="28" class="form"> 		  <div align="right">SUBSTÂNCIA:</div></td>		<td> 		  <select name="SUBSTANCIA" size="1" class="preenche" onChange="MM_jumpMenu('parent',this,0)">		   <option value=""></option>			<%			While NOT RSSub.eof			response.write("<option value=""view_monografia.asp?ID="& response.write(RSSub("ID")) &""">"& RSSub("NOME") &"</option>"& Chr(13))			RSSub.movenext			Wend			RSSub.close			%>		  </select></tr>	<tr bgcolor="#F9F9F9"> 		<td height="21" class="form"> </td>		<td>  </td>	</tr>	<tr bgcolor="#F4F4F4"> 		<td height="110" class="form"> 		  <div align="right">MONOGRAFIA:</div></td>	  <td> <div align="left"> </div></td>	</tr>  </table>  </form></div>

VALEW!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Cidre 0]

Qual erro de script ele da???

[hunger 0]

opa...

 

entao, o erro q ele mostra é o seguinte:

 

 

Linha: 27

Caractere: 1

Erro: Objeto esperado

Código: 0

 

 

A linha 27, no caso, é a primeira de onde eu defino o RSSub. Colocarei o início aqui para indicar e facilitar de encontrar no código que postei anteriomente.

 

 

<%

Dim RSSub__MMColParam ----------------------------------> linha 27

RSSub__MMColParam = "1"

If (Request.QueryString("ID") <> "") Then

RSSub__MMColParam = Request.QueryString("ID")

End If

%>

 

Não sei mesmo o que fazer...já estou há dias neste problema e preciso entregar pra o cliente!! rs

 

VALEW! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[N3G4T1V3 0]

Estranho esse erro mas tenta mudar isso:<%Dim RSSub__MMColParamRSSub__MMColParam = "1"If (Request.QueryString("ID") <> "") Then RSSub__MMColParam = Request.QueryString("ID")End If%>pra isso:<%If Request.QueryString("ID") <> "" Then RSSub__MMColParam = Request.QueryString("ID")Else RSSub__MMColParam = "1"End If%>

[hunger 0]

dá o mesmo erro ainda. é estranho mesmo apontar aquela linha ali como o erro. ao meu ver nao ha relação entre uma coisa e outra....será q teria uma outra forma de fazer isso q preciso?

[Salgado 4]

Verifique a linha de cima, às vezes acontece do ASP mostrar como erro a linha de baixo quando e erro de criação de Objeto ou uso equivocado de objeto.

[N3G4T1V3 0]

Cara montei pra você como seria tudo em uma pagina da uma olhada e testa:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><script type="text/JavaScript"><!--function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].id+"'"); //document.write(selObj); document.form1.submit(); if (restore) selObj.selectedIndex=0;}//--></script></head><%Set RSSub = Server.CreateObject("ADODB.Recordset")RSSub.ActiveConnection = MM_Conexao_STRINGRSSub.Source = "SELECT * FROM substancia order by NOME ASC"RSSub.CursorType = 0RSSub.CursorLocation = 2RSSub.LockType = 1RSSub.Open()%><body><form name="form1" id="form1" method="post"> <select name="substacia" onchange="MM_jumpMenu('parent',this,0)"> <option selected="selected">Selecione</option> <option value="substancia1" id="pagina.asp">substacia1</option> <option value="substancia2" id="pagina.asp">subtancia2</option> <% While NOT RSSub.eof response.write("<option id=""pagina.asp"" value="""& RSSub("ID") &""">"& RSSub("NOME") &"</option>"& Chr(13)) RSSub.movenext Wend RSSub.close %> </select><br /><%if request.Form("substacia")<> "" then%> <select name="monografia"> <% Set rsMono = Server.CreateObject("ADODB.Recordset") rsMono.ActiveConnection = MM_Conexao_STRING rsMono.Source = "SELECT * FROM monografia where substacia = "& request.Form("substacia") &" order by NOME ASC" rsMono.CursorType = 0 rsMono.CursorLocation = 2 rsMono.LockType = 1 rsMono.Open() While NOT rsMono.eof response.write("<option value=""view_monografia.asp?ID="& response.write(rsMono("ID")) &""">"& rsMono("NOME") &"</option>"& Chr(13)) rsMono.movenext Wend rsMono.close %> </select> <%end if%></form></body></html>

[hunger 0]

fala negative...valew pela ajuda...entao, testei a pagina mas deu erro, o seguinte erro:Tipo de erro:ADODB.Recordset (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito./receita/arquivos/cad_rec.asp, line 21tp, eu testei a pagina com o codigo exatamente como você mandou...

[Deividy 0]

cade o inclide para a conexão com o banco de dados ?

[N3G4T1V3 0]

se você naum conectar com a base de dados ele vai dar erro mesmo, somente inclua la no topo a conexão com o banco de dados que está dentro da variavel MM_Conexao_STRING

[hunger 0]

opa...verdade! mancada minha! rs é q to doido ja com esse trampinho! vou testar e ja te falo. valew! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

entao, agora abriu a pagina corretamente, ele listou as substancias cadastradas, mas nao deu certo depois q escolhi. o q acontece é que as substancias e monografias estão na mesma tabela:

 

nome da tabela: substancia

campos: ID, NOME e MONOGRAFIA

 

Sendo assim mudaria aquela parte que você fez criando o RSMono, nao é?

[N3G4T1V3 0]

isso, fiz dakele jeito pq achei que estava em outra tabela mas só muda a select pra isso:rsMono.Source = SELECT * FROM substancia where ID = "& request.Form("substacia") &" order by NOME ASC

[hunger 0]

Legal...funcionou.... agora só precisamos de ajustes.... pq tp, quando seleciono uma substancia, no outro form está sendo escrita a substancia novamente, quando na verdade deveria ser escrita a monografia.e, sendo a monografia um texto apenas para consulta, ao inves de abrir em um select form, deveria abrir em um textarea....acho q resolveria ne?!

[N3G4T1V3 0]

ta mostrando o nome pq tem ke mudar essa linha:response.write("<option value=""view_monografia.asp?ID="& response.write(rsMono("ID")) &""">"& rsMono("NOME") para:response.write("<option value=""view_monografia.asp?ID="& response.write(rsMono("ID")) &""">"& rsMono("monografia") caso queira um select mude isso:<select name="monografia"><%Set rsMono = Server.CreateObject("ADODB.Recordset")rsMono.ActiveConnection = MM_Conexao_STRINGrsMono.Source = "SELECT * FROM monografia where substancia = "& request.Form("substancia") &" order by NOME ASC"rsMono.CursorType = 0rsMono.CursorLocation = 2rsMono.LockType = 1rsMono.Open()While NOT rsMono.eofresponse.write("<option value=""view_monografia.asp?ID="& response.write(rsMono("ID")) &""">"& rsMono("monografia") &"</option>"& Chr(13))rsMono.movenextWendrsMono.close%></select>para isso:<textarea name="monografia" id="monografia"><%Set rsMono = Server.CreateObject("ADODB.Recordset")rsMono.ActiveConnection = MM_Conexao_STRINGrsMono.Source = "SELECT * FROM substancia where substacia = "& request.Form("substancia") &" order by NOME ASC"rsMono.CursorType = 0rsMono.CursorLocation = 2rsMono.LockType = 1rsMono.Open()While NOT rsMono.eofresponse.write(rsMono("monografia"))rsMono.movenextWendrsMono.close%></textarea>

[hunger 0]

Consegui fazer!!

 

nem vou colocar num textarea...será ali na página mesmo.... da maneira q eu tinha imaginado antes mas nao estava conseguindo fazer!

 

Valew negative pela ajuda!!! se aparecer algum problema eu posto aqui, mas pelo q vi ali e testei já está td ok!!

 

brigadao mesmo!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif