gracias aqui va todo.
-----------------------------------------------
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/Transporte.mdb")
SQL="SELECT Estado.IFecha, Estado.Guia, Estado.Ingreso, Estado.Transportista, Estado.Receptor, Estado.Comentario "&_
"FROM CIng INNER JOIN Estado ON CIng.Guia = Estado.Guia "&_
"WHERE (((CIng.Empresa)='" & session("Empresa") & "') "&_
vGui & " " & vFec & " " & vCiu & " " & vReg & " " & vTra & " " & vEnt & " ) order by Estado.Guia;"
Set rs = Server.CreateObject("ADODB.RecordSet")
'response.write(sql)
rs.Open SQL, oConn, 1, 1
IF rs.EOF THEN
RESPONSE.WRITE ("<div align=center><span class=Estilo7>NO ENCONTRO DATOS<strong> <br>")
ELSE
if (request("pag") <> "") then
pagina_actual = request("pag")
else
pagina_actual = 1
end if
rs.pageSize = vPag
rs.absolutePage = pagina_actual
cantidad_campos = rs.Fields.Count
END IF
registros_mostrados = 0
'////////////////////////////////////////
'////////// Cargar Fecha ////////////////
'////////////////////////////////////////
If Not rs.eof then
if vFec = "" or vFec = null then
else
vFec = rs.fields("IFecha")
end if
Else
End If
'////////////////////////////////////////
While (Not rs.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
Response.Write( "<TR>" & vbCrlf )
vN = vN + 1