“Desarrollar a través de Consultoría y Capacitación especializadas MIPyME’s altamente eficientes y productivas con elevados estándares de calidad y responsabilidad social, así como capacitar a su personal para asegurar su productividad y permanencia.”
COMPITE
Próximos Eventos
<%
Set strConn = Server.CreateObject("ADODB.Connection")
strConn.Open "DRIVER={SQL Server};SERVER=193.169.170.181;Database=NOTICIAS;Uid=sa;PWD="
valormes = request.QueryString("valormes")
fecha_actual = date
mes_actual= Month(fecha_actual)
sql="Select * From eventos t1 order by fecha desc"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql,strConn,3,1
%>
<%Do While Not RS.Eof%>
<%
fecha=RS("fecha")
dia = DAY(fecha)
IF MONTH(fecha)="1" then
meses = "ENERO"
END IF
IF MONTH(fecha)="2" then
meses = "FEBRERO"
END IF
IF MONTH(fecha)="3" then
meses = "MARZO"
END IF
IF MONTH(fecha)="4" then
meses = "ABRIL"
END IF
IF MONTH(fecha)="5" then
meses = "MAYO"
END IF
IF MONTH(fecha)="6" then
meses = "JUNIO"
END IF
IF MONTH(fecha)="7" then
meses = "JULIO"
END IF
IF MONTH(fecha)="8" then
meses = "AGOSTO"
END IF
IF MONTH(fecha)="9" then
meses = "SEPTIEMBRE"
END IF
IF MONTH(fecha)="10" then
meses = "OCTUBRE"
END IF
IF MONTH(fecha)="11" then
meses = "NOVIEMBRE"
END IF
IF MONTH(fecha)="12" then
meses = "DICIEMBRE"
END IF
imglink = ""
mas = "Más información"
'Response.Write ""
formato_mostrar=FormatDateTime(fecha,1)
titulo=RS("titulo")
link=RS("link")
lugar=RS("lugar")
imagen=RS("imagen")
ciudad=RS("ciudad")
detalles=RS("detalles")
descripcion=rs("descripcion")
sql2="select * from EVENTOS where titulo='"&titulo&"'"
Set RS2 = Server.CreateObject("ADODB.RecordSet")
RS2.Open sql2,strConn,3,1
if rs2.eof then
enlace= link
enlace2=link2
else
enlace= ""&mas&""
enlace2= ""&imglink&""
end if
RS2.close
%>