% Opt1 = "" Opt2 = "" Opt3 = "" Opt4 = "" 'Variable que contiene los mensajes de errores del proceso sResultado="" if Request.QueryString("Pagina") <> "" then Pagina = Cint(Request.QueryString("Pagina")) else Pagina = 1 End if Sede = "1" If Request.form <> "" then Sede = Request.form("ddmSede") End if Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ConsultarCalendario " & Sede & ";" Rs.Open var_aux,Conn Select Case Sede Case 1 Opt1 = "selected" Case 2 Opt2 = "selected" Case 3 Opt3 = "selected" Case 4 Opt4 = "selected" End Select %>