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