623

Como calcular la cantidad de meses y días entre un Rango de Fechas.

By jvargas

La pregunta parece bastante simple… utilicemos un DateDiff, pero DateDiff solo entrega la Cantidad de meses entre ese Rango y en forma separada te entrega la cantidad de días entre ese rango de fechas. Pero no devuelve ambas al mismo tiempo.   Por ejemplo: 20/04/2006 25/05/2006   Debería dar 1 Mes y 5 días.   A continuación adjunto 2 pequeños programas uno que fue creado por un amigo Colombiano Jorge Mario Restrepo y el otro por mi, ambos dan el mismo resultado.   Dim TotalMes As LongDim TotalDia As LongDim TotalFec As DateTotalMes = DateDiff(DateInterval.Month, dt1.Value, dt2.Value)If Day(dt1.Value) > Day(dt2.Value) … Continue reading Como calcular la cantidad de meses y días entre un Rango de Fechas.

Como ejecutar un DTS desde programa.

By jvargas

Algunas veces uno requiere ejecutar DTS mediante programa, necesariamente debes instalar componentes apartes que lo único que logran es tener que incluirlos al momentos de llevarlos a producción u otro equipo de un usuario.   HAy una solución muy simple, dejar que SQL Server mediante un sp ejecute dicho DTS y no directamente desde programa.   Espero les siva dicho ejemplo:   CREATE PROCEDURE sp_EjecutarDTS(@Paquete varchar(500) ) As    declare @Sql varchar(8000)    Set @Sql = ‘dtsrun /s (local) /e /n ‘ + @Paquete    exec master.dbo.xp_cmdshell @SqlGo

Como utilizar un Servicio Web de .NET en ASP tradicional o Visual Basic 6.0

By jvargas

Hace un tiempo me encontré con este problema, necesitaba ejecutar o usar un servicio web desde una aplicación ASP tradicional… pensé en un momento enviar los datos vía POST o GET a una página ASPX (ASP.NET) y desde ahi gatillar el servicio correspondiente, pero quería evitar este salto.   Pude hacerlo mediante Microsoft SOAP 3.0, por lo tanto antes de ejecutar la aplicación les recomiendo bajar dicho componente del siguiente link: BAJAR AQUI   Ejemplo:     ‘Función ASP tradicional que utiliza el Servicio Web. Function EjecutarSW(ByVal A, ByVal B)      Dim oSOAPClient, Resultado, ServicioWeb    ServicioWeb = “http://localhost/Prueba/ServicioPrueba.asmx?wsdl” … Continue reading Como utilizar un Servicio Web de .NET en ASP tradicional o Visual Basic 6.0

Como enviar archivos binarios al browser del cliente

By jvargas

Para este caso vamos a enviar una imagen jpg que se encuentra previamente en alguna carpeta que se tiene acceso desde el servidor. (revisar acceso de los usuarios anónimos IURS_nombreservidor e IWAM_nombreservidor).   Vamos a utilizar el objeto ADODB.Stream que nos estrega la funcionalidad de devolver archivos binarios.   <% ‘Seteamos el tipo de contenido que vamos a enviar, en este caso una imagen. Response.ContentType = “image/jpge”   Dim RutaArchivo   RutaArchivo = “C:\..\imagen.jpg”   Set objStream = Server.CreateObject(“ADODB.Stream”)     objStream.Open     objStream.Type = 1    ‘tipo binario     objStream.LoadFromFile RutaArchivo       Response.BinaryWrite objStream.Read       objStream.Close Set objStream = … Continue reading Como enviar archivos binarios al browser del cliente

Como enviar correos

By jvargas

Una consulta muy recurrente en los grupos de noticias tiene relación con el envío de correos. Para esto se puede utilizar el componente CDONTS que viene con W2000, WXP y W2003 para que funcione debe estar corriendo el SMTP en el IIS del servidor.   Ejemplo:   <% Sub EnviarMail(ByVal CorreoOrigen, ByVal CorreoDestino, ByVal Asunto, ByVal Cuerpo)         Set objMail = Server.CreateObject(“CDONTS.NewMail”)         objMail.BodyFormat = 0         objMail.MailFormat = 0         objMail.Send CorreoOrigen, CorreoDestino, Asunto, Cuerpo     Set objMail = Nothing   End Sub %> 

Como estructurar una página ASP

By jvargas

Esta es una idea para estructurar una página ASP para que sea más ordenada y entendible, obviamente lo ideal es establecer una estructura principal y centralizar los llamados de los botones que hacen SUBMIT en el formulario, para procesar dichas “Acciones” posteriormente en el Servidor. Con esto simplificarán enormemente el desarrollo.   Ejemplo:   Estructura Principal de un ASP   (Utilizar SIEMPRE Option Explicit) <% Option Explicit Dim Accion     ‘esta será nuestra centralización de las acciones que se realizarán en la página Accion = Request(“Accion”) Select Case Accion     Case “”    ‘Primera vez que se carga la página     Case “Eliminar” … Continue reading Como estructurar una página ASP