Buenos dias a todos, tengo el siguiente problema, cree una pagina que esta compuesta por un formulario y una vez seleccionada la opcion del formulario me ejecute la consulta y muestre los resultados en la misma pagina, lo que pasa es que no me muestra nada ni el formulario ni el resultado, y lo mas raro no me da ningun error, el codigo es el siguiente:
</head>
<body>
<%
If Request.Form <> "" Then
Set RstCofra = Server.CreateObject("ADODB.Recordset")
RstCofra.source="SELECT Confraria.NomeConfra FROM Confraria WHERE (((Confraria.Id)='"& request.Form("cboConf") &"'))"
RstCofra.Cursortype=adOpenStatic
RstCofra.ActiveConnection="DSN=master;'';'';"
RstCofra.Open%>
<table width="685" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="310" height="26" align="left" valign="middle" bgcolor="#99cdff" class="CabezaTabla">LISTADO DE EMBARCACIÓNS DA CONFRARIA DE:</td>
<td width="202" align="left" valign="middle" bgcolor="#e1f5ff" class="TextoResul"><div align="left"><%=RstCofra("NomeConfra")%></div></td>
<td width="173" align="center" valign="middle"><a href="/Embar/ListEmbar.asp"><img src="/imagenes/busqueda.gif" width="171" height="26" border="0"></a></td>
</table>
<% RstCofra.Close%>
<br>
<%
Set RstEmbar = Server.CreateObject("ADODB.Recordset")
RstEmbar.source="SELECT PersoasConfrarias.IdConfraria, Embarcacions.[NOME DA EMBARCACION], Embarcacions.MATRICULA, Embarcacions.FOLIO, Personas.Apelidos, Personas.Nome FROM (Personas INNER JOIN (Embarcacions INNER JOIN EmbarcacionTitular ON (Embarcacions.FOLIO = EmbarcacionTitular.FOLIO) AND (Embarcacions.MATRICULA = EmbarcacionTitular.MATRICULA)) ON Personas.DNI = EmbarcacionTitular.DNI) INNER JOIN PersoasConfrarias ON Personas.DNI = PersoasConfrarias.DNI WHERE (((PersoasConfrarias.IdConfraria)='"& request.Form("cboConf") &"'))ORDER BY Embarcacions.[NOME DA EMBARCACION]"
RstEmbar.Cursortype=adOpenStatic
RstEmbar.ActiveConnection="DSN=master;'';'';"
RstEmbar.Open%>
<table width="685" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="310" height="24" align="left" valign="middle" bgcolor="#99cdff" class="CabezaTablaInfo">NUMERO DE EMBARCACIÓNS:</td>
<td width="194" align="left" valign="middle" bgcolor="#e1f5ff" class="TextoResul"> <% = RstEmbar.RecordCount %>
<td width="181"> </td>
</table>
<br>
<table width="685" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr class="CabezaTabla">
<td width="160" height="21" align="center" valign="middle" class="CabezaTablaIzq">NOME EMBARCACIÓN </td>
<td width="72" align="center" valign="middle" bgcolor="#99cdff" class="CabezaTablaCentral">MATRÍCULA</td>
<td width="77" align="center" valign="middle" bgcolor="#99cdff" class="CabezaTablaCentral">FOLIO</td>
<td width="184" align="center" valign="middle" bgcolor="#99cdff" class="CabezaTablaCentral">APELIDOS</td>
<td width="192" align="center" valign="middle" bgcolor="#99cdff" class="CabezaTablaDer">NOME</td>
</tr>
<% while not RstEmbar.EOF%>
<tr class="DetalleTabla">
<td height="20" align="left" valign="middle" class="DetalleTablaLatIz"> <a href="#" onclick="javascript:window.open('/Embar/DetalleEmbar.asp?matricula=<%=RstEmbar("MATRICULA" )%>&folio=<%=RstEmbar("FOLIO")%>','','scrollbars=y es, statusbar=no, width=635, height=550')"> <%=RstEmbar("NOME DA EMBARCACION")%> </a></td>
<td align="left" valign="middle" class="DetalleTablaCentral" > <%=RstEmbar("MATRICULA")%> </td>
<td align="left" valign="middle" class="DetalleTablaCentral"> <%=RstEmbar("FOLIO")%> </td>
<td align="left" valign="middle" class="DetalleTablaCentral"> <%=RstEmbar("Apelidos")%> </td>
<td align="left" valign="middle" class="DetalleTablaLatDer"> <%=RstEmbar("Nome")%> </td>
</tr>
<% RstEmbar.MoveNext
wend
RstEmbar.Close%>
</table>
else
%>
<br>
<span class="Estilo2">LISTADO DE EMBARCACIÓNS POR CONFRARíAS </span>
<span class="Estilo2"><br>
<br>
<span class="Estilo4">SELECCIONE CONFRARÍA</span> </span>
<form name="FormListEmbar" method="post" action="PruebaListEmbar.asp">
<p>
<select name="cboConf" class="CabezaTabla">
<%
Set RstConfr = server.CreateObject("ADODB.Recordset")
RstConfr.source="SELECT * FROM Confraria ORDER BY NomeConfra"
RstConfr.Cursortype=adOpenStatic
RstConfr.ActiveConnection="DSN=master;'';'';"
RstConfr.Open%>
<%If RstConfr.recordcount > 0 then
do while not RstConfr.eof
Response.write("<option value= " & RstConfr("Id") & ">" & RstConfr("NomeConfra") & "</option>")
RstConfr.movenext
loop
end if
RstConfr.Close
Set RstConfr=Nothing%>
%>
</select>
<input name="Enviar" type="submit" id="Enviar" value="Enviar">
</form>
<%
end if
%>
</body>
</html>
alguno sabe lo que puede pasar.
saludos
