<%
'sacamos el titulo del apartado
sql = "select [la empresa] 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
'sacamos el texto de presentacion
sql = "select presentacion from [la empresa] where idioma='"&session("idioma")&"'"
set rs = con.Execute(sql,,adCmdText)
if not rs.EOF then
presentacion = rs("presentacion")
end if
rs.close
set rs = Nothing
%>
Documento sin título
<%=tituloOpcion%>
<%=presentacion%>
<% sql = "select nombre from imagenes"
set rs = con.Execute(sql,,adCmdText)
while not rs.EOF
%>
<%=tituloOpcion%>
