Tabla de referencia cruzada en ASP

[focesar]

Hola a todos!!!!...
y gracias por la ayuda de antemano..

tengo una tabla de referencia cruzada de una base de datos de access 97-2003.

el codigo de la consulta es este:

Código:

TRANSFORM Count(enrute.id_reg) AS CuentaDeid_reg
SELECT tecnico.cod_tec
FROM tecnico INNER JOIN (mov INNER JOIN enrute ON mov.cod_mov = enrute.cod_mov) ON tecnico.cod_tec = enrute.cod_tec
WHERE (((enrute.fech_ejec)>#6/1/2009# And (enrute.fech_ejec)<#6/30/2009#))
GROUP BY tecnico.cod_tec
ORDER BY tecnico.cod_tec, mov.cod_mov
PIVOT mov.cod_mov;

eso me develve algo asi:



Hasta alli estoy perfecto!!!!..

Mi duda es: Como hago para presentar estos datos en una tabla web de una pagina ASP clasico????..
Perdonen, pero no tengo ni idea.
Agradezco cualquier idea.

[focesar]

He buscando en todo lo que he podido..
no se si debo usar Crystal Reports para poder poner estos datos en la web!!!:.
lo malo es que no tengo ni idea como usar crystal reports.

Si alguien tiene una idea se lo agradeceria!!!!...

[gnzsoloyo]

¿Y por qué no preguntas en ASP Clásico o ASP .Net?
El tema no tiene nada que ver con Bases de Datos, sino con aplicaciones y formularios, y los formularios son asunto de programación, no bases de datos.
En este foro el asunto es SQL, no ASP...

[GatorV]

Tema movido desde Bases de Datos a ASP Clásico

[Myakire]

En ASP sería con algo como esto:

Código ASP:

<%
set conn = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\archivoAccess.mdb"
Conn.CommandTimeout  = 0
conn.Open  ConnString
 
set rs = Server.CreateObject("adodb.recordset")
SQL = "TRANSFORM Count(enrute.id_reg) AS CuentaDeid_reg " &_
      "SELECT tecnico.cod_tec "&_
      "FROM tecnico INNER JOIN (mov INNER JOIN enrute ON mov.cod_mov = enrute.cod_mov) ON tecnico.cod_tec = enrute.cod_tec " &_
      "WHERE (((enrute.fech_ejec)>#6/1/2009# And (enrute.fech_ejec)<#6/30/2009#)) " &_
      "GROUP BY tecnico.cod_tec "&_
      "ORDER BY tecnico.cod_tec, mov.cod_mov "&_
      "PIVOT mov.cod_mov; "
rs.Open vSQL, Conn
if not rs.EOF Then
%>
<table>
 <tr>
<%
For i=0 to rs.Fields.Count-1
 %><td><%=rs.Fields(i).Name%><% 'Fila con los encabezados %>
Next
%>
<tr>
<%
while not rs.eof
For i=0 to rs.Fields.Count-1
 %><td><%=rs.Fields(i).value%><% 'Filas con el contenido %>
Next
   rs.next
wend
%>
</table>
<%
end if
%>
 

Tecleado al vuelo, así que a lo mejor tiene algún error de sintaxis, pero la idea es esa