Colegio de San Luis Colegio de San Luis CONACYT
 

 

 

 

Consulta de actividades

 

<% mesactual=request("guardames") anioactual=request("guardaanio") if mesactual = "" then mesactual = DatePart("m", Date) end if if anioactual = "" then anioactual = DatePart("yyyy", Date) end if Select Case mesactual Case 1 nombremes = "ENERO" Case 2 nombremes = "FEBRERO" Case 3 nombremes = "MARZO" Case 4 nombremes = "ABRIL" Case 5 nombremes = "MAYO" Case 6 nombremes = "JUNIO" Case 7 nombremes = "JULIO" Case 8 nombremes = "AGOSTO" Case 9 nombremes = "SEPTIEMBRE" Case 10 nombremes = "OCTUBRE" Case 11 nombremes = "NOVIEMBRE" Case 12 nombremes = "DICIEMBRE" Case Else nombremes = "seleccionar" End Select %>

<%response.write (nombremes)%>

<%response.Write(anioactual)%>

<% Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.ConnectionTimeout = Application("connWeb_ConnectionTimeout") objConnection.CommandTimeout = Application("connWeb_CommandTimeout") objConnection.Open "DSN=biblioteca; UID=sa; PWD=dnla;" 'crear objeto RecordSet Set resultado = Server.CreateObject("ADODB.Recordset") resultado.ActiveConnection = objConnection resultado.CursorType = adOpenKeyset resultado.Source = "eventos" resultado.Open "Select * from eventos where mes=" & mesactual & " AND anio like '%" & anioactual & "%' "%>
<% Do while not resultado.EOF %> <% resultado.MoveNext Loop %>

<% if resultado("link")="/calendario/" then Response.Write resultado("titulo") else Response.Write (""& resultado("titulo") & "") end if %>

<% response.write resultado("descripcion") %>


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
 

 

colsan