<% Dim objCommand, objrs, objrs2 Set objCommand = Server.CreateObject("ADODB.Command") ' crea el objeto Command set objrs = server.createobject("ADODb.RecordSet") ' da valores a las propiedades del comando objCommand.ActiveConnection = strConnect %>
ventas@denes.com.mx
+81 83-332202



















Directorio Telefonico

<% objCommand.CommandText ="SELECT Nombre,Puesto,Telefono FROM rh.dbo.Empleados WHERE Telefono <> '' ORDER BY 1 " objCommand.CommandType = adCmdText Set objrs = objCommand.Execute if not objrs.eof then objrs.MoveFirst end if while not objrs.eof Cadena="" Cadena=Cadena&"" Cadena=Cadena&"" response.write Cadena objrs.movenext wend objrs.close set objrs =nothing %>
Nombre Area Extension
"& objrs("Nombre") &""& objrs("Puesto") &""& objrs("Telefono") &"