ComDiAnd
Posted in Visual Basic, on February 8, 2012 at 16:46
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="adovbs.inc"-->
<!--#include file="global.asa"-->
<%
'connessione al database
set comDB = server.createObject("ADODB.Connection")
comDB.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("public/main.mdb")
set laySet= Server.CreateObject("ADODB.RecordSet")
laySet.open "select * from layout order by id asc", comdb, 2, 2
if request("hv")="" then
laySet.movefirst
p_sfondodec="#e9eef2"
else
laySet.movelast
p_sfondodec="#000000"
end if
p_font =laySet("font")
p_fontsize =laySet("fontsize")
p_fontcolor=laySet("fontcolor")
p_body =laySet("body")
p_table =laySet("table")
p_visited =laySet("visited")
p_active =laySet("active")
p_hover =laySet("hover")
p_link =laySet("link")
p_moduli =laySet("moduli")
p_sfondo =laySet("sfondo")
laySet.close
set laySet=nothing
%>
<%
dim fsize, id, m, subm
fsize=request("s")
if fsize="" then
fsize=p_fontsize
else
end if
dim host, page, qryStr, url
host = Request.ServerVariables("HTTP_HOST")
page = Request.ServerVariables("SCRIPT_NAME")
qryStr = Request.QueryString
url = "http://" & host
url = url & page
%>
<head>
<% p_id=request("id")
if page="/leggi.asp" and p_id<>"" then%>
<%
set titSet= Server.CreateObject("ADODB.RecordSet")
titSet.CursorLocation=3
set titSet = comDB.Execute("select * from news where id="&p_id&"")
p_tit=titset("titolo")
titset.close
set titset=nothing
%>
<title><%=p_tit%> - Comune di Andria</title>
<%else%>
<title>Comune di Andria</title>
<%end if%>
<meta content="Portale istituzionale del Comune di Andria, cocapoluogo della provincia di Barletta Andria Trani" name="description"/>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="author" content="E-project di Roberto Petillo - Via Bologna 113 - 70031 Andria (BT) - tel.0883552461">
<meta content="andria, castel del monte, puglia, olio extra vergine, capoluogo, BAT, BT" name="keywords"/>
<style>
.Stile1 {
font-size: 10px;
font-weight: bold;
}
.Stile2 {
font-size: 10px;
}
body {
margin: 0px;
padding:0px;
text-align:center;
scrollbar-face-color : #286287;
scrollbar-shadow-color : #00436f;
scrollbar-highlight-color : #286287;
scrollbar-3dlight-color : #3100bc;
scrollbar-darkshadow-color : #3a922e;
scrollbar-track-color : #d4e6ee;
scrollbar-arrow-color : #d4e6ee;
font-family: p_font;
font-size: <%=fsize%>px;
color: <%=p_body%>;
line-height: 120%;
}
table, tr, td {
font-family: <%=p_font%>;
font-size: <%=fsize%>px;
line-height: 120%;
color: <%=p_fontcolor%>;
}
a:visited { font-family: <%=p_font%>; font-size: <%=fsize%>px; line-height: normal; color: <%=p_visited%>; text-decoration: none}
a:active { font-family: <%=p_font%>; font-size: <%=fsize%>px; line-height: normal; color: <%=p_active%>; text-decoration: none}
a:hover { font-family: <%=p_font%>; font-size: <%=fsize%>px; line-height: normal; color: <%=p_hover%>; text-decoration:underline}
a:link { font-family: <%=p_font%>; font-size: <%=fsize%>px; line-height: normal; color: <%=p_link%>; text-decoration: none}
input
{
font-family: verdana, tahoma, arial;
color: <%=p_moduli%>;
font-size: <%=fsize%>px;
border-style: solid;
border-color: #2a6488;
border-width: 1;
background: #e9eef2;
padding: 3px
}
select
{
font-family: verdana, tahoma, arial;
color: <%=p_moduli%>;
font-size: <%=fsize%>px;
border-style: solid;
border-color: #2a6488;
border-width: 1;
background: #e9eef2;
}
textarea
{
font-family: verdana, tahoma, arial;
color: <%=p_moduli%>;
font-size: <%=fsize%>px;
border-style: solid;
border-color: #2a6488;
border-width: 1;
background: #e9eef2;
}
<!--
.allinea_sinistra {
float:left;
}
.allinea_destra {
float:right;
}
.allinea_centro {
float:center;
}
.nessun_allineamento {
float:none;
}
}
.giustifica {
float:justify;
}
-->
</style>
<style type="text/css">
<!--
.allinea_sinistra {
float:left;
}
.allinea_destra {
float:right;
}
.nessun_allineamento {
float:none;
}
-->
</style>
<script type="text/javascript">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-10866163-5']);
_gaq.push(['_setDomainName', '.comune.andria.bt.it']);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' :
'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0];
s.parentNode.insertBefore(ga, s);
})();
</script>
<%=a%>
</head>
<body background="images/sfondo_hp.gif" style="background-position:top; background-repeat: repeat-x;" valign="top">
<div align="center">
<table width="950" border="0" cellspacing="0" cellpadding="0" bgcolor="<%=p_sfondo%>">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%"> </td>
<td width="10"> <div align="center"><a href="help.asp"><img src="images/help.jpg" alt="aiuto" width="10" height="17" border="0"></a></div></td>
<td width="10"> <div align="center"><a href="<%=url%>"><img src="images/cpicc.jpg" alt="carattare piccolo" width="15" height="17" border="0"></a></div></td>
<td width="10"> <div align="center"><a href="<%=url%>?s=<%=(fsize+1)%>"><img src="images/cgra.jpg" alt="carattere grande" width="20" height="17" border="0"></a></div></td>
<td width="10"> <div align="center"><a href="<%=url%>?hv=1"><img src="images/av.jpg" alt="alta visibilità" width="20" height="17" border="0"></a></div></td>
<td width="10"> <div align="center"><img src="images/print.jpg" width="19" height="17" onclick="window.print()" alt="stampa"></div></td>
<td width="10"> </td>
<td> </td>
</tr>
</table></td>
<td width="20%"> </td>
<td width="20%"> </td>
<td width="20%"><div align="right">Andria,
<% Response.Write(FormatDateTime(Now(),1) & " " )%>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#999999"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="180"><div align="center"><img src="images/logocomune.jpg" alt="logo comune"></div></td>
<td width="750" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="200">
<% ' inserimento dei banner di adrotator
set adr=Server.CreateObject("MSWC.AdRotator")
response.write(adr.GetAdvertisement("rotator.txt"))
%>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#999999"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="180" bgcolor="<%=p_sfondo%>">
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!-- Inizio codice ilMeteo.it -->
<iframe width="180" height="125" scrolling="no" frameborder="0" src="http://www.ilmeteo.it/box/previsioni.php?citta=234&type=real1&width=180&ico=3&lang=ita&days=6&font=Arial&fontsize=10&bg=FFFFFF&fg=000000&bgtitle=0099FF&fgtitle=FFFFFF&bgtab=FFFFFF&fglink=1773C2"></iframe>
<!-- Fine codice ilMeteo.it -->
</td>
</tr>
<tr><td> </td></tr>
<%
set menuSet= Server.CreateObject("ADODB.RecordSet")
set menuSet = comDB.Execute("select * from aree_funz where lato like 's' and att=1 order by ord asc")
while not menuSet.EOF
id_area=menuset("id")
%>
<tr>
<td height="0" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#00436f"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" height="24">
<div align="center"><img src="images/dot_giallo.jpg" width="10" height="10" alt="menu"></div></td>
<td width="84%"><strong><a href="index.asp?vsm=<%=menuset("id")%>"><font color="#ffffff"><%=menuset("nome")%></font></a></strong></td>
</tr>
</table></td>
</tr>
<%'if request("vsm")=id_area then%>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set submenuSet= Server.CreateObject("ADODB.RecordSet")
set submenuSet = comDB.Execute("select * from contenuti where id_area ="&id_area&" and id_dett_sub_area=0 and attivo=1 order by ord asc")
while not submenuSet.EOF
%>
<tr>
<td width="16%" valign="middle">
<div align="center"><img src="images/freccia.jpg" width="13" height="13" alt="menu"></div></td>
<td width="84%" height="20"><a href="content.asp?id=<%=submenuset("idpag")%>"><%=submenuset("titolo")%></a></td>
</tr>
<%
submenuSet.movenext
wend
%>
</table></td>
</tr>
<%'else%>
<%'end if%>
<tr>
<td height="0"><img src="images/sfondo_intmenu_dw.jpg" width="180" height="15" alt="menu"></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
<%
menuSet.movenext
wend
submenuset.close
set submenuset = nothing
menuset.close
set menuset = nothing
%>
</table>
</td>
<td width="3" background="images/dot_vert.jpg"> </td>
<td width="594">
Share this code
Use the link below to share the code:
http://www.codesend.com/view/fd63ed5bdd7cf3f422f4c2496a3e23b2/
HTML
<a href="http://www.codesend.com/view/fd63ed5bdd7cf3f422f4c2496a3e23b2/">ComDiAnd</a>
BBCode
[url=http://www.codesend.com/view/fd63ed5bdd7cf3f422f4c2496a3e23b2/]ComDiAnd[/url]
© 2010 CodeSend.com - send code quick and easy
Syntax highlighting by Alex Gorbatchev
Syntax highlighting by Alex Gorbatchev