Hola a todos, pues les cuento que no me funciono lo planteado por cucox, no se que esta pasando........ les envio el codigo de la consulta donde carga la empresa en el select y el codigo de la pagina del detalle.
Agradezco a quien me pueda ayudar....
Codigo Pagina con resultado de consulta cargando en el select:
--------------------------------------
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
var rsVentas = Server.CreateObject("ADODB.Recordset");
rsVentas.ActiveConnection = MM_conex_STRING;
rsVentas.Source = "SELECT * FROM empresa INNER JOIN tblVentas ON tblVentas.id_empre = empresa.cod_empre ORDER BY empresa ASC";
rsVentas.CursorType = 0;
rsVentas.CursorLocation = 2;
rsVentas.LockType = 1;
rsVentas.Open();
var rsVentas_numRows = 0;
%>
<html>
<head>
<title>ADMINISTRADOR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form action="ventas_detail.asp" method="get" name="empresa" id="empresa">
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="contenidos">
<tr>
<td colspan=2 class="titulogrande"> <div align="center">
<p class="titulomediano">CONSULTAR EMPRESA</p>
</div></td>
</tr>
<tr>
<td width="50%" align="right" bgcolor="#FFFFFF"> <select name="consulta">
<option value="-1" <%=((-1 == Request.Form("empresa"))?"SELECTED":"")%>>
Seleccione una Empresa . . .</option>
<%
while (!rsVentas.EOF) {
%>
<option value="<%=(rsVentas.Fields.Item("empresa").Value)% >" <%=((rsVentas.Fields.Item("empresa").Value == Request.Form("empresa"))?"SELECTED":"")%> ><%=(rsVentas.Fields.Item("empresa").Value)%></option>
<%
rsVentas.MoveNext();
}
if (rsVentas.CursorType > 0) {
if (!rsVentas.BOF) rsVentas.MoveFirst();
} else {
rsVentas.Requery();
}
%>
</select></td>
<td width="25%" bgcolor="#FFFFFF"> <input name="submit" type=submit value=CONSULTAR>
</td>
</tr>
</table></td>
</form>
</body>
</html>
<%
rsVentas.Close();
%>
-------------------------------------------
Codigo Pagina Detalle :
--------------------------------------------
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
var rsVentas__MMColParam = "1";
if (String(Request.QueryString("consulta")) != "undefined" &&
String(Request.QueryString("consulta")) != "") {
rsVentas__MMColParam = String(Request.QueryString("consulta"));
}
%>
<%
var rsVentas = Server.CreateObject("ADODB.Recordset");
rsVentas.ActiveConnection = MM_conex_STRING;
rsVentas.Source = "SELECT * FROM empresa INNER JOIN tblVentas ON tblVentas.id_empre = empresa.cod_empre WHERE empresa = '"+ rsVentas__MMColParam.replace(/'/g, "''") + "' ORDER BY empresa ASC";
rsVentas.CursorType = 0;
rsVentas.CursorLocation = 2;
rsVentas.LockType = 1;
rsVentas.Open();
var rsVentas_numRows = 0;
%>
<html>
<head>
<title>ADMINISTRADOR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="4" cellspacing="1" class="contenidos">
<tr>
<td height="25" colspan=2 class="titulomediano"> <div align="center">INFORMACION
DE LA EMPRESA</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Empresa :</b></td>
<td><%=(rsVentas.Fields.Item("nom_empre").Value) %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><strong>Aviso No.:</strong></td>
<td><%=(rsVentas.Fields.Item("id_aviso").Value)% ></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><strong>Codigo Empresa :</strong></td>
<td><%=(rsVentas.Fields.Item("id_empre").Value)% ></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Contacto :</b></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Se entrego el directorio : </b></td>
<td><%=(rsVentas.Fields.Item("libro_entregado").Va lue)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><strong>Cantidad entregada<b> :</b></strong></td>
<td><%=(rsVentas.Fields.Item("cant_libro_entregado ").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Fecha de entrega :</b></td>
<td><%=(rsVentas.Fields.Item("fecha_libro_entrega" ).Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Edicion entregada : </b></td>
<td><%=(rsVentas.Fields.Item("edicion_libro").Valu e)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Se enviaron tarifas :</b></td>
<td><%=(rsVentas.Fields.Item("envio_tarifas").Valu e)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Fecha envío de tarifas :</b></td>
<td><%=(rsVentas.Fields.Item("fecha_envio_tarifas" ).Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Se visitó al cliente :</b></td>
<td><%=(rsVentas.Fields.Item("visita_cliente").Val ue)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23" align="right"><b>Fecha de visita :</b></td>
<td><%=(rsVentas.Fields.Item("fecha_visita_cliente ").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Ejecutivo :</b></td>
<td><%=(rsVentas.Fields.Item("ejecutivo_visita_cli ente").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Tipo de cliente :</b></td>
<td><%=(rsVentas.Fields.Item("tipo_cliente").Value )%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b> ¿Ha pautado alguna vez? : </b></td>
<td><%=(rsVentas.Fields.Item("pauta").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>fecha inicio última pauta :</b></td>
<td><%=(rsVentas.Fields.Item("pauta_desde").Value) %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>fecha fin de pauta :</b></td>
<td><%=(rsVentas.Fields.Item("pauta_hasta").Value) %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Tipo de pauta :</b></td>
<td><%=(rsVentas.Fields.Item("tipo_pauta").Value)% > </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Material entregado por el cliente : </b></td>
<td><%=(rsVentas.Fields.Item("material").Value)% > </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Forma de pago :</b></td>
<td><%=(rsVentas.Fields.Item("forma_pago").Value)% > </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Descuento % :</b></td>
<td><%=(rsVentas.Fields.Item("descuento").Value) %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>Valor de la pauta :</b></td>
<td><%=(rsVentas.Fields.Item("valor_pauta").Value) %> </td>
</tr>
</table>
</body>
</html>
<%
rsVentas.Close();
%>
---------------------------------------------
Como ven en la pagina de detalle estan cargando muchos datos de un registro y es dificil diferenciarlos por que una empresa puede comprar dos procuctos identicos.
Les agradezco infinitamente su ayuda, pues esto ya me esta sacando canas....
Un saludo a todos