<%@ Language=VBScript %>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%> 
<% 
   Dim oConn,strSQL, objRS 
    
   Set oConn = Server.CreateObject("ADODB.Connection") 

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &  Server.MapPath("agenda.mdb")) 
    
   strSQL = "SELECT * FROM agenda ORDER BY nombre ASC" 
   Set objRS = oConn.Execute(strSQL) 

   x=1
   
   while (not objRS.Eof) 
      
   Response.Write "&Tel"&x&"=" & objRS("telefono") & "&Nom"&x&"=" & objRS("nombre")
   
   objRS.MoveNext 
   x=x+1
   
   wend 

   Response.write "&totreg="&x-1
     
   oConn.Close 
   set objRS = nothing 
   set oConn = nothing 

%>