<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="../adovbs.inc"-->
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.TextoResul {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
font-weight: bold;
}
.CabezaTabla {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
color: #003399;
background-position: center center;
font-weight: bold;
background-color: #99cdff;
}
.DetalleTabla {
background-color: #e1f5ff;
background-position: left center;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
font-style: normal;
color: #000000;
}
-->
</style>
</head>
<body>
<br>
<%
Set RstCofra = Server.CreateObject("ADODB.Recordset")
RstCofra.source="SELECT Confraria.Nome FROM Confraria WHERE (((Confraria.Id)='"& request.Form("cboConf") &"'))"
RstCofra.Cursortype=adOpenStatic
RstCofra.ActiveConnection="DSN=master;'';'';"
RstCofra.Open%>
<table width="737" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="277" height="24" align="left" valign="middle" class="CabezaTabla">LISTADO DE EMBARCACIÓNS DA CONFRARIA DE:</td>
<td width="396" align="center" valign="middle" class="TextoResul"><div align="left"><%=RstCofra("Nome")%></div></td>
<td width="64"> </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="737" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="276" height="24" align="left" valign="middle" class="CabezaTabla">NUMERO DE EMBARCACIÓNS:</td>
<td width="205" align="left" valign="middle" class="TextoResul"><% = RstEmbar.RecordCount %>
<td width="250"> </td>
</table>
<br>
<table width="737" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr class="CabezaTabla">
<td width="192" height="20" align="center" valign="middle">Nome</td>
<td width="80" align="center" valign="middle">Matricula</td>
<td width="93" align="center" valign="middle">Folio</td>
<td width="236" align="center" valign="middle">Apelidos</td>
<td width="136" align="center" valign="middle">Nome</td>
</tr>
<% while not RstEmbar.EOF%>
<tr class="DetalleTabla">
<td height="18" align="left" valign="middle"> <%=RstEmbar("NOME DA EMBARCACION")%></td>
<td align="left" valign="middle"> <%=RstEmbar("MATRICULA")%></td>
<td align="left" valign="middle"> <%=RstEmbar("FOLIO")%></td>
<td align="left" valign="middle"> <%=RstEmbar("Apelidos")%></td>
<td align="left" valign="middle"> <%=RstEmbar("Nome")%></td>
</tr>
<tr>
<td height="0"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<% RstEmbar.MoveNext
wend
RstEmbar.Close%>
</table>
</body>
</html>
Esto es la forma en que me conecto a la base de datos, estaria bien asi o me recomendais otra forma.
Otra cosilla en esta pagina con vbscript puedo usar los javascript??
un saludo a todos.