<% idm = Request.QueryString("idm") if idm <> "" then session("idioma") = idm end if if session("idioma") = "" then session("idioma") = "es" end if sql = "select creditos,[saltar intro],catalogo from traducciones where idioma='"&session("idioma")&"'" set rs = con.Execute(sql) if not rs.EOF then creditos = rs("creditos") saltarIntro = rs("saltar Intro") catalogo = rs("catalogo") end if Rs.Close sql = "select * from [datos empresa]" set rs = con.Execute(sql) if not rs.EOF then razonsocial = rs("razonsocial") direccion = rs("direccion") cp = rs("codigopostal") poblacion = rs("poblacion") provincia = rs("provincia") pais = rs("pais") telefono = rs("telefono") fax = rs("fax") end if Rs.Close %> Resiplast, S.L.
 
<% sql = "select * from menu where idioma='"&session("idioma")&"'" set rs = con.Execute(sql,,adCmdText) if not rs.EOF then %> <%=rs("la empresa")%> | <%=rs("localizacion")%> | <%=rs("contactar")%> | <%=rs("Ofertas Especiales")%> <% end if rs.close set rs = Nothing %>
<%=catalogo%>:
 
<%=creditos%>
<%=razonsocial%> · <%=direccion%>
Telf.: <%=telefono%> - Fax: <%=fax%> · <%=cp& " "&poblacion%> (<%=provincia%>) · <%=pais%>
<% con.close set con = Nothing %>