Funciones en ASP

[infolan]

Hola a todos,

Tengo estas dos funciones

Function openConnection ()
set cmd = Server.CreateObject("ADODB.Command")
set oConn=Server.CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")

strConnection = "******"
oConn.Open strConnection
oConn.CursorLocation = 2
rs.CursorLocation = 3
rs.LockType = 1
rs.CursorType = 3
End Function


Function checkLogin(usuario, password)
rst.Open "exec sp_usuario_login_l '"& usuario &"', "& password &"",oConn,1,2

'Si la consulta devuelve uno quiere decir que el usuario y password es correcto.
if rs.recordcount = 1 then
'Para los usuarios que tenga acceso a la parte de administracción
session("autorizacion")=1
select case ucase(rs.fields("descripcion").value)
case "ADMINISTRACCIO"
url = "admin_menu.asp?desc=" & rs.fields("descripcion").value
response.redirect(url)
case ""
end select
else
session("autorizacion")=-1
response.redirect("login.asp")
end if
End Function


Como puedo hacer que la funcioón de OpenConnection se use dentro de la otra para poder ejecutar la consulta

[ElAprendiz]

guardala dentro de un include, y agrega esta linea.

<!--#include file="archivo.asp"-->

[infolan]

tengo muchas funciones y me parece que dentro de cada función no se puede poner los include.

Alguna manera?

Saludos

[ElAprendiz]

no dentro de las funciones si no dentro de tu pagina principal

[a n g e l u s]

EJ:

Paginas que necesitan las funciones colocas el include.
<!--#include file="archivo.asp"-->

y dentro de tu pag que tienes las funciones las llamas entre si.
function comillas(txt)
comillas = chr(34) & formato(txt) & chr(34) &
end function

function formato(txt)
formato = "<center>" & txt & "</center>"
end funtion

una cosa asi seria (harto rebusca la funcion)