%
'sacamos el titulo del apartado
sql = "select [contactar] 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 * 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")
correo = rs("correo")
end if
Rs.Close
%>