<% 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



















<% objCommand.CommandText ="SELECT Nombre, DAY(FechaNac) AS Dia FROM rh.dbo.Empleados WHERE (MONTH(FechaNac) = DATEPART(MONTH, GETDATE())) ORDER BY Dia" objCommand.CommandType = adCmdText Set objrs = objCommand.Execute if not objrs.eof then objrs.MoveFirst end if while not objrs.eof Cadena="" Cadena=Cadena&"" response.write Cadena objrs.movenext wend objrs.close set objrs =nothing %>
Nombre Dia
"& objrs("Nombre") &""& objrs("Dia") &"