problemas em puxar informações de bd

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