<%
idlingua=request("idlingua")
if idlingua="" then
idlingua=1
end if
idsezione=request("idsezione")
if idsezione="" then
idsezione=1
end if
Set rcs = Server.CreateObject("ADODB.Recordset")
sql = "select * FROM servizio WHERE online=1 AND idlingua="&idlingua
rcs.open sql, DataConn
contatti=rcs("contatti")
download=rcs("download")
copyright=rcs("copyright")
privacy=rcs("privacy")
mappa=rcs("mappa")
credits=rcs("credits")
titolo=rcs("titolo")
parolechiave=rcs("parolechiave")
set rcs = Nothing
Set rcs = Server.CreateObject("ADODB.Recordset")
sql = "select * FROM contenuti WHERE online=1 AND idsezione="&idsezione
rcs.open sql, DataConn
if not rcs.EOF then
cont_sx=rcs("cont_sx")
cont_cn=rcs("cont_cn")
cont_dx=rcs("cont_dx")
immaginesezione=rcs("immaginesezione")
end if
set rcs = Nothing
%>
<%= titolo %>
