En ASP sería con algo como esto:
Código ASP:
Ver original<%
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