<% 'sacamos el titulo del apartado sql = "select [ofertas especiales] as titulo from menu where idioma='"&session("idioma")&"'" set rs = con.Execute(sql,,adCmdText) if not rs.EOF then tituloOpcion = rs("titulo") end if rs.close sql = "select contactar from traducciones where idioma='"&session("idioma")&"'" set rs = con.Execute(sql) if not rs.EOF then contactar= rs("contactar") end if Rs.Close %>

	<%=tituloOpcion%>
	<% 'sacamos el texto de presentacion sql = "select * from [titulos_ofertas_especiales] where idioma='"&session("idioma")&"'" set rs = con.Execute(sql,,adCmdText) if not rs.EOF then material = rs("material") disponible = rs("disponible") mfidensidad = rs("mfi-densidad") aplicacion = rs("aplicacion") precio = rs("precio") end if rs.close set rs = Nothing %> <% 'sacamos el texto de presentacion sql = "select * from [ofertas especiales] where idioma='"&session("idioma")&"'" set rs = con.Execute(sql,,adCmdText) while not rs.EOF if color = "#FFEFF1" then color = "#FFFFFF" else color = "#FFEFF1" end if %> <% rs.movenext wend rs.close set rs = Nothing %> <%=UCase(material)%> <%=UCase(disponible)%> <%=UCase(mfidensidad)%> <%=UCase(aplicacion)%> <%=UCase(precio)%> <%=rs("material")%> <%=rs("disponible")%> <%=rs("mfi-densidad")%> <%=rs("aplicacion")%> <%=rs("precio")%>