<%@ Language=VBScript %> <% Response.Expires = 0 Response.Buffer = TRUE Server.ScriptTimeout=1024 %> <%RstPalabras = "Select * from PalabrasClaves" Set RstPalabras = dbConnection.Execute (RstPalabras)%> :: South Mining Suply :: "> <% if request("idioma")="1" then session("idioma")="" End if if request("idioma")="2" then session("idioma")="2" End if if session("idioma")="2" then RstNoticias = "Select Titulo_Superior2, Descripcion_Superior2, Titulo_Productos2, imagen1, Descripcion_Productos2, Titulo_Empresa2, Descripcion_Empresa2, imagen2, Texto_Inferior_Izquierdo2, Texto_Inferior_Derecho2 FROM Texto_Home" Else RstNoticias = "Select Titulo_Superior, Descripcion_Superior, Titulo_Productos, imagen1, Descripcion_Productos, Titulo_Empresa, Descripcion_Empresa, imagen2, Texto_Inferior_Izquierdo, Texto_Inferior_Derecho FROM Texto_Home" End if Set RstNoticias = dbConnection.Execute (RstNoticias)%>

<%=RstNoticias("Titulo_Superior" & session("idioma"))%>

<%=replace(RstNoticias("Descripcion_Superior" & session("idioma")),chr(13),"
")%>

<%If session("idioma") = "2" Then%>NEWS<%Else%>NOTICIAS<%End If%>


<%RstNoticias2 = "Select * From Noticias Order by Fecha Desc" Set RstNoticias2 = dbConnection.Execute (RstNoticias2) Do While NOT RstNoticias2.EOF%> "> (<%=day(RstNoticias2("Fecha")) &"/"& month(RstNoticias2("Fecha")) &"/"& year(RstNoticias2("Fecha"))%>) <%=RstNoticias2("Titulo" & session("idioma"))%>
<%=left(RstNoticias2("Descripcion" & session("idioma")),150)%>...
...............................................
<%RstNoticias2.Movenext Loop%>

<%=RstNoticias("Titulo_Productos" & session("idioma"))%>


">" width="200" style="padding-left: 10px; ">

<%=replace(RstNoticias("Descripcion_Productos" & session("idioma")),chr(13),"
")%>


 

<%=RstNoticias("Titulo_Empresa" & session("idioma"))%>


<%=replace(RstNoticias("Descripcion_Empresa" & session("idioma")),chr(13),"
")%>

">" width="200" style="padding-left: 10px; ">

 

<%=replace(RstNoticias("Texto_Inferior_Izquierdo" & session("idioma")),chr(13),"
")%>













































<%=replace(RstNoticias("Texto_Inferior_Derecho" & session("idioma")),chr(13),"
")%>