<% ' ################################### ' ' ##### imprimir_select ##### ' ' ################################### ' ' programador: pablo ' última modificación: 03/05/2004 ' ' propósito ' --------- ' crea un select en el formulario con los datos que se necesitan mostrar. ' ' lenguage: vbscript ' ' parámetros ' ---------- ' id_ ' es el nombre del campo que se va a usar como id y name del select ' query_ ' es el querystring que se va a usar para traer los datos que se van a mostrar ' value_ ' es el nombre del campo que se va a usar en el id de los option ' default_ ' es un valor por default para mostrar en los option ' texto_ ' es el nombre del campo a usar para mostrar en los option ' clase_ ' es un nombre de clase a usar en el select ' seleccionar_ ' agrega un option con el texto al principio si no está en blanco ' conexion_ ' es el objeto que tiene la conexion ' ' valor de retorno ' ---------------- ' no tiene ' --------------------------------------------------------------------------------------- sub imprimir_select (id_, query_, value_, default_, texto_, clase_, seleccionar_, conexion_) dim rs set rs = server.createobject("adodb.recordset") set rs = conexion_.execute(query_) response.write "" set rs = nothing end sub ' ############################## ' ' ##### nombre_mes ##### ' ' ############################## ' ' programador: pablo ' última modificación: 03/05/2004 ' ' propósito ' --------- ' función que devuelve el nombre del mes ' ' parámetros ' ---------- ' mes_ ' es el número de mes ' ' valor de retorno ' ---------------- ' el nombre del mes ' ----------------------------------------------------- function nombre_mes (mes_) select case mes_ case 1: nombre_mes = "Enero" case 2: nombre_mes = "Febrero" case 3: nombre_mes = "Marzo" case 4: nombre_mes = "Abril" case 5: nombre_mes = "Mayo" case 6: nombre_mes = "Junio" case 7: nombre_mes = "Julio" case 8: nombre_mes = "Agosto" case 9: nombre_mes = "Septiembre" case 10: nombre_mes = "Octubre" case 11: nombre_mes = "Noviembre" case 12: nombre_mes = "Diciembre" end select end function ' ############################# ' ' ##### fecha_sql ##### ' ' ############################# ' ' programador: pablo ' última modificación: 28/05/2004 ' ' propósito ' --------- ' devuelve la fecha en formato aaaammdd para usar en querys de sql ' ' parámetros ' ---------- ' fecha_ ' es una fecha válida con el formato dd/mm/aaaa ' ' valor de retorno ' ---------------- ' la fecha con el formato aaaammdd ' ----------------------------------------------------- function fecha_sql (fecha_) fecha_sql = right(fecha_, 4) & mid(fecha_, 4, 2) & left(fecha_, 2) end function %>