Hola Mickel, esto es lo que listo y abajo me gustaría que aparecieran los totales, no entiendo como encajar tu select.
<%
Dim oConn,strSQL, objRS, sColor
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tarifario.mdb"))
strSQL = "SELECT * FROM Ingreso_llamados order by Nro_llamado, Fecha, Llamador "
Set objRS = oConn.Execute(strSQL)
%>
<P>Fecha Actual <%=Date%> </P>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><td bgcolor=#cccccc>FECHA<TD bgcolor=#cccccc>NUMERO LLAMADO </TD><TD bgcolor=#cccccc>HORA </TD><TD bgcolor=#cccccc> ANEXO </TD><TD bgcolor=#cccccc> LLAMADO SOLICITADO POR </TD><TD bgcolor=#cccccc> OBSERVACIONES </TD><TD bgcolor=#cccccc> DURACION </TD><TD bgcolor=#cccccc> COSTO </TD><TD bgcolor=#cccccc> OTROS </TD><TD bgcolor="#FF0000"><font color="#FFFFFF">Borrar</font></TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Fecha")& " </td><td> " & objRS("Nro_llamado") & "</td><td> " & objRS("Hora") & " </td><td> " & objRS("Anexo") & " </td><td> " & objRS("Llamador") & " </td><td> " & objRS("Observaciones") & " </td><td> " & objRS("Duracion") & " </td><td> " & objRS("Costo") & " </td><td> " & objRS("Otros") & " </td><td><a href=""borra_llamados.asp?id=" & objRS("id") & """>Borrar</a></td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</TABLE>