<%@ Language=VBScript %> <%Option explicit Dim cmd, rs, connect, intNumber,SalaVictorUrquidi,SalaMarioOjeda,SalaBiblioteca,SalaAulaMagna,SalaGuillerminaValdes Const adCmdStoredProc = &H0004 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adVarChar = 200 Const adInteger = 3 Const adDate = 8 Set cmd = Server.CreateObject ("ADODB.Command") connect = "driver={SQL Server};server=PORTAL_COLEF;database=Eventos;uid=sisadmind;pwd=kirro" cmd.ActiveConnection = connect cmd.CommandText = "Disponibilidad" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter ("@FechaInicio",adDate,adParamInput,8,"1/1/2006") cmd.Parameters.Append cmd.CreateParameter ("@FechaFinal",adDate,adParamInput,8,"1/1/2006") cmd.Parameters.Append cmd.CreateParameter ("@HoraInicio",adInteger,adParamInput,4,request.form("HoraInicio")) cmd.Parameters.Append cmd.CreateParameter ("@HoraFinal",adInteger,adParamInput,4,request.form("HoraFinal")) cmd.Parameters.Append cmd.CreateParameter ("@SalaVictor",adVarChar,adParamOutput,100,"") cmd.Parameters.Append cmd.CreateParameter ("@SalaMario",adVarChar,adParamOutput,100,"") cmd.Parameters.Append cmd.CreateParameter ("@SalaBiblioteca",adVarChar,adParamOutput,100,"") cmd.Parameters.Append cmd.CreateParameter ("@SalaAula",adVarChar,adParamOutput,100,"") cmd.Parameters.Append cmd.CreateParameter ("@SalaGuillermina",adVarChar,adParamOutput,100,"") cmd.Execute SalaVictorUrquidi = cmd.Parameters ("@SalaVictor") SalaMarioOjeda = cmd.Parameters ("@SalaMario") SalaBiblioteca = cmd.Parameters ("@SalaBiblioteca") SalaAulaMagna = cmd.Parameters ("@SalaAula") SalaGuillerminaValdes = cmd.Parameters ("@SalaGuillermina") Set cmd = nothing Response.Write (SalaVictorUrquidi&"
") Response.Write (SalaMarioOjeda&"
") Response.Write (SalaBiblioteca&"
") Response.Write (SalaAulaMagna&"
") Response.Write (SalaGuillerminaValdes&"
") %>