<% homeSQL = "SELECT * FROM homepage where id=1" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString Set homeSQL= Conn.Execute(homeSQL) ' Do Until homeSQL.EOF strflash1= homeSQL("flash1") strTxtflash1= homeSQL("txtflash1") strflash2= homeSQL("flash2") strTxtflash2= homeSQL("txtflash2") strflash3= homeSQL("flash3") strTxtflash3= homeSQL("txtflash3") strimgVideo1= homeSQL("imgvideo1") strLinkVideo1= homeSQL("linkVideo1") strimg1= homeSQL("img1") strSumario1= homeSQL("sumario1") strimg2= homeSQL("img2") strSumario2= homeSQL("sumario2") strimg3= homeSQL("img3") strSumario3= homeSQL("sumario3") strimg4= homeSQL("img4") strSumario4= homeSQL("sumario4") strLink1= homeSQL("link1") strLink2= homeSQL("link2") strLink3= homeSQL("link3") strLink4= homeSQL("link4") %>


<%=strTxtflash1 %> <%=strTxtflash2 %> <%=strTxtflash3 %>

<% 'Loop homeSQL.Close Set homeSQL= Nothing %>

NOVEDADES

<% subcatSQL = "SELECT * FROM news WHERE main=True order by fecha desc" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString Set subcatRS = Conn.Execute( subcatSQL ) Do Until subcatRS.EOF stridnews = subcatRS("idnews") strTitu= subcatRS("titu") ' strApellido = subcatRS("Apellido") ' strTipo = subcatRS("tipo") Response.Write "" Response.Write " " Response.Write strTitu Response.Write "
" subcatRS.MoveNext 'Wend Loop subcatRS.Close Set subcatRS= Nothing %>
 
 

<%=strSumario1%>

<%=strSumario2%>
<%=strSumario3%>

<%=strSumario4%>

 


 


 

 

 
<% 'End if %>