<%

    Dim Conn
    Dim ConnFunction
    Dim DataCommand
    Dim DataParameter
	Dim Connect
    
    Server.ScriptTimeout = 6000
    
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set ConnFunction = Server.CreateObject("ADODB.Connection")
    Set DataCommand = Server.CreateObject("ADODB.command")
    
    Conn.ConnectionTimeout = 220
    Conn.CommandTimeout = 460
    
    ConnFunction.ConnectionTimeout = 220
    ConnFunction.CommandTimeout = 460
    
    Conn.ConnectionString = "Driver={SQL Server};Server=10.10.10.248\NATASQL2008EXPSS;Database=adeera;uid=sa;pwd=nataserv"
    ConnFunction.ConnectionString = "Driver={SQL Server};Server=10.10.10.248\NATASQL2008EXPSS;Database=adeera;uid=sa;pwd=nataserv"
	Connect = "Driver={SQL Server};Server=10.10.10.248\NATASQL2008EXPSS;Database=adeera;uid=sa;pwd=nataserv"
    
    Conn.Open
    ConnFunction.Open

    Conn.Execute(" SET DATEFORMAT dmy ") ' Para casos en que el sql este en otro idioma.
    ConnFunction.Execute(" SET DATEFORMAT dmy ") ' Para casos en que el sql este en otro idioma.

%>