<% Session.LCID=1040 %>
<% Response.buffer = True %>
<html>
<head>
<title>AySmS - Il forum aysms</title><STYLE TYPE="text/css">
<!--
A:hover {background-color: cornsilk; color: black; text-decoration: none;}
-->
</STYLE>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function checkFields() {
missinginfo = "";
if (document.form.name.value == "") {
missinginfo += "\n - Name";
}
if(document.form.subject.value == "") {
missinginfo += "\n - Subject";
}
if(document.form.comments.value == "") {
missinginfo += "\n - Comments";
}
if (missinginfo != "") {
missinginfo ="_____________________________\n" +
"You failed to correctly fill in your:\n" +
missinginfo + "\n_____________________________" +
"\nPlease re-enter and submit again!";
alert(missinginfo);
return false;
}
else return true;
}
//-->
</script>
<script language="JavaScript" src="aysmsinvio.js"></script></head>
<body onload='ridirigi(1,"http://www.aysms.it/");' ><!-- begin iubenda /common.virgilio.it/doc_root/community/cmp/iubenda_users_sw_libero.html -->
<script type="text/javascript" src="https://i.plug.it/cmp/iub_conf_libero.js"></script>
<script type="text/javascript" src="//cdn.iubenda.com/cs/tcf/stub-v2.js"></script>
<script type="text/javascript" src="//cdn.iubenda.com/cs/iubenda_cs.js" charset="UTF-8" async></script>
<script src='https://i.plug.it/cmp/qciol.min.js' async="true"></script>
<!-- end iubenda /common.virgilio.it/doc_root/community/cmp/iubenda_users_sw_libero.html -->
<!-- #Include File="basics.inc" -->
<!-- #Include file="db.inc" -->
<!--#include file="adovbs.inc"-->
<div align="center">
<center>
<table align="center" border="0" width="759" height="6" bordercolor="#C0C0C0">
<tr>
<td width="473" height="1" bgcolor="#C0C0C0" bordercolor="#CCFFFF" rowspan="3" colspan="2">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="468">
<tr>
<td align="center" bgcolor="#C0C0C0"> <iframe src="../banner1.htm" width="468" height="60" width=190 height=340 Marginwidth=0 Marginheight=0 Hspace=0 Vspace=0 Frameborder=0 Scrolling=No> </iframe></td>
</tr>
</table>
</div>
</td>
<td width="137" height="22" bgcolor="#000000" bordercolor="#CCFFFF">
<p align="center"><a href="http://www.aysms.it/" target="_top"><font face="Comic Sans MS" color="#0000ff" size="1">Homepage</font></a></td>
<td width="200" height="2" bgcolor="#CCFFFF" bordercolor="#CCFFFF" rowspan="3">
<p align="center"><img border="0" src="http://holidaycup.supereva.it/aysms.ays.jpg" width="74" height="49"><img border="0" src="http://holidaycup.supereva.it/aysms.ms.jpg" width="78" height="50"></p>
</td>
</tr>
<tr>
<td width="137" height="1" bgcolor="#000000" bordercolor="#CCFFFF">
<p align="center"><font face="Comic Sans MS" color="#0000ff" size="1"><a href="javascript:history.go(-1);">Torna
</a></font><a href="javascript:history.go(-1);"><font face="Comic Sans MS" color="#0000ff" size="1">indietro</font></a></td>
</tr>
<tr>
<td width="137" height="1" bgcolor="#000000" bordercolor="#CCFFFF">
<p align="center"><a href="mailto:ays@email.it"><font face="Comic Sans MS" color="#0000ff" size="1">Ultima
da a</font><font face="Comic Sans MS" size="1" color="#0000FF">ysms</font></a></td>
</tr>
<tr>
<td width="162" height="24" bgcolor="#000000" bordercolor="#CCFFFF"><font color="#FFFFFF" face="Trebuchet MS" size="1">Aysms
> Forum > Lista messaggi</font></td>
<td width="304" height="24" bgcolor="#000000" bordercolor="#CCFFFF">
<p align="center"><a href="forum/index.asp"><font face="Trebuchet MS" color="#FFFFFF" size="1">Pagina
iniziale</font></a><font face="Trebuchet MS" color="#FFFFFF" size="1"> -
</font><a href="forum/post.asp"><font face="Trebuchet MS" color="#FFFFFF" size="1">Scrivi
un messaggio</font></a><font face="Trebuchet MS" color="#FFFFFF" size="1">
- </font><a href="http://www.aysms.it/aysms/forum.htm"><font face="Trebuchet MS" color="#FFFFFF" size="1">Informazioni</font></a></p>
</td>
<td width="271" height="24" bgcolor="#000000" bordercolor="#CCFFFF" colspan="2">
<p align="center"><a href="inviosms.htm"><font color="#FFFFFF" face="Trebuchet MS" size="2">Invia
sms gratis</font></a> <font face="Trebuchet MS" size="2">|<a href="forum.htm"><font color="#FFFFFF">Forum</font></a>
<font color="#000080">|</font><font color="#FFFFFF"> <a href="smsnews.htm"><font face="Trebuchet MS" size="2" color="#FFFFFF">News</font></a>
<font face="Trebuchet MS" size="2" color="#FFFFFF">| <a href="supporto.htm"><font color="#FFFFFF">Supporto</font></a></font></font></font></td>
</tr>
</table>
</div>
<p style="margin-top: 0; margin-bottom: 0"> </center>
<div align="center">
<center>
<table border="0" width="746" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="18" bgcolor="#CCFFFF" valign="top"> </td>
<td width="315" bgcolor="#CCFFFF"><font face="trebuchet ms" color="#000080"><big><%=forumName%></big></font></td>
</center>
<td width="315" bgcolor="#CCFFFF">
<p align="right"><b><font face="trebuchet ms" color="#FFFFFF">
<%if Session("admin")="Yes" Then
%>
<%
End If
%>
<a href="<%=homeURL%>">Vai a AySmS</a></font></b></td>
<center>
<td width="48" bgcolor="#CCFFFF" valign="top">
<p align="left"> </p>
</td>
</tr>
<tr>
<td width="18" bgcolor="#CCFFFF" valign="top"> </td>
<td width="630" bgcolor="#CCFFFF" colspan="2">
<%
Set RS = Server.CreateObject("ADODB.Recordset")
MySql="SELECT Count(*) AS MessageTot FROM messages"
Rs.Open MySql, my_conn
MessageTot=rs("MessageTot")
rs.close
%>
<font face="Trebuchet MS" size="2" color="#000080">Benvenuto nel forum degli
sms gratis, il forum contiene <%=MessageTot%> messaggi.</font>
<p>
<% Rem Now extract the message list from the database and thread messages%>
<%
'MySql="SELECT messages.* FROM threads INNER JOIN messages ON threads.ThreadID = messages.threadID ORDER BY messages.threadID DESC, messages.MessageID;"
MySql="SELECT messages.* FROM messages ORDER BY messages.threadID DESC, messages.MessageID;"
RS.cursorlocation=aduseclient
RS.Open MySql, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
If Request.QueryString("page") = "" Then
iCurrentPage = 1
Else
iCurrentPage = CInt(Request.QueryString("page"))
End If
RS.PageSize = postsperpage
If RS.PageCount > 0 then
RS.AbsolutePage = iCurrentPage
Else
iCurrentPage = 0
End If
Session("CurrentPage") = iCurrentPage
indents=0
do while RS.AbsolutePage = iCurrentPage And Not RS.EOF
dim tt
tt = rs("messageID")
For n = 1 to len(tt)
if mid(tt, n, 1) = "." Then
indents = indents + 1
End If
next
Response.write "<font color = '#000000' face='Trebuchet MS'><small>"
For n= 1 to indents
Response.write " "
Next
lpDate=RS("Posted")
If DateDiff("d",lpDate , DATE) < DAYflag then
lastpostday=weekday(lpDate)
pTime = formatdatetime(lpDate, 4)
lpDate =pweekday(lastpostday) & " " & pTime
End If
Response.write " <img src='bull.gif'> <a href='display.asp?messageNo=" & rs("MessageNo") & "&threadID=" & rs("threadID") & "'>" & rs("Subject") & "</a> inviato da <font color=#000080> " & RS("Poster") & " </font>il <font color=#000080>" & lpDate & "</small></font>"
snow1 = Now
If DateDiff("d", snow1, DATE) < NEWflag then
Response.write "<font color = 'red' face='trebuchet ms'><small><i> - Nuovo!</i></small></font>"
End If
if Session("admin")="Yes" Then
response.write " - <a href='delete.asp?messageNo=" & rs("MessageNo") & "&threadID=" & rs("threadID") & "'>Cancella</a>"
if rs("MessageNo")=1 Then
Response.write " (thread)"
End If
End If
Response.write "<br>"
indents = 0
RS.MoveNext
Loop
%>
</p>
<p>
<%
If RS.PageCount > 1 then
'Print Previous Page if required
If iCurrentPage <> 1 then
Response.Write "<font face='trebuchet ms'><small><a href=""index.asp?page=" & iCurrentPage - 1 & """>Pagina precedente</a></small></font>"
Else
Response.Write "<font face='trebuchet ms'><small>Pagina precedente</small></font>"
End If
'Print direct access page numbers.
For intCount = 1 to RS.PageCount
If intCount = 1 then
Response.Write " | "
End If
If intCount = iCurrentPage then
Response.Write "<font face='trebuchet ms'><small>" & intCount & " | </small></font>"
Else
Response.Write "<font face='trebuchet ms'><small><a href=""index.asp?page=" & intCount & """>" & intCount & "</a> | </small></font>"
End If
Next
'Print Next Page if required
If iCurrentPage <> RS.PageCount then
Response.Write "<font face='trebuchet ms'><small><a href=""index.asp?page=" & iCurrentPage + 1 & """>Prossima pagina</a></small></font>"
Else
Response.Write "<font face='trebuchet ms'><small>Prossima pagina</small></font>"
End If
End If
Response.Write "<br><font face='trebuchet ms'><small>Pagina " & iCurrentPage & " di " & RS.PageCount & "</small></font>"
%>
</p>
<% Rem Not draw the form where new messages can be entered:%>
<%
TypeofPost="New"
PrevID=""
my_conn.close
%>
</center>
<p align="center"><font face='trebuchet ms' size=2>
<a hfref href="post.asp?TypeofPost=<%=Typeofpost%>&previd=<%=Previd%>">Scrivi un nuovo messaggio </a>|
<a href="mailto:ays@email.it">Contatta il moderatore</a>
<a href="default.asp">Torna all'elenco dei messaggi</a>
</font>
<center>
<hr>
</center>
</td>
<td width="46" bgcolor="#CCFFFF" valign="top"> </td>
</tr><tr>
<td width="28" bgcolor="#CCFFFF" valign="top"> </td>
<td width="745" valign="top" bgcolor="#CCFFFF" colspan="2">
<p align="center"><a href="http://www.aysms.it/"><b><font face="trebuchet ms" color="#000080">AySmS</font></b></a></p>
</td>
<td width="66" bgcolor="#CCFFFF" valign="top"> </td>
</tr>
</table>
</div>
<hr color="#000080" width="600">
<br>
<br>
<center>
<script language="JavaScript" src="http://www.svagostat.com/getjs.php?id=48">
</script></center>
<!-- DIV 728x90 IAM -->
<div id="ad72890bottom" align="center"></div>
<!-- START Digilander F -->
<SCRIPT LANGUAGE="Javascript">
if ( typeof(bsl1_boot) != 'undefined' ) {
setTimeout("bsl1_boot()",100);
}
var rs_DLR=1;
var rs_DLRERR=0;
</SCRIPT>
<SCRIPT LANGUAGE="Javascript" SRC="http://digilander.libero.it/_ad/digi_ad_13.js">
</SCRIPT>
<!-- END Digilander F -->
<!-- Libero COMSCORE start - Version 1.53 -->
<script type="text/javascript">
if ( rs_DLRERR == 1 ) {
var libero_comscore_error = 404;
}
</script>
<script type="text/javascript">
document.write(unescape("%3Cscript src='" + (document.location.protocol == "https:" ? "https://sb" : "http://b") + ".scorecardresearch.com/beacon.js'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
if (rs_DLR) {
document.write(unescape("%3Cscript id='libero_tracking_js_site' src='http://digistatic.libero.it/js/comscore_8_3_04/comscore_digilander.libero.it.js'%3E%3C/script%3E"));
document.write(unescape("%3Cscript id='libero_tracking_js_site' src='http://digistatic.libero.it/js/comscore_8_3_04/comscore_engine.js'%3E%3C/script%3E"));
}
</script>
<noscript>
<img src="http://b.scorecardresearch.com/p?c1=2&c2=13259779&cj=1&name=libero.others&ns_site=libero" />
</noscript>
<!-- Libero COMSCORE end -->
<!-- IOL Analytics -->
<script src="//i.plug.it/iplug/js/lib/iol/analytics/data/digilander-libero-it/tracking_digilander-libero-it.min.js"></script>
<script src="//i.plug.it/iplug/js/lib/iol/analytics/engine/IOL.Analytics.Tracking.min.js"></script>
<script type="text/javascript">
var iat = new IOL.Analytics.Tracking.Engine();
iat.send();
</script>
<noscript><img src="//italiaonline01.wt-eu02.net/215973748390194/wt.pl?p=315,libero.web.share.digiland.siti.digilander&cg1=libero&cg2=web&cg3=share&cg4=digiland&cg5=siti&cg6=digilander&cg7=libero.web.share.digiland.siti.digilander" height="1" width="1" alt=""></noscript>
<!-- /IOL Analytics -->
<!-- BEGIN Global site tag (gtag.js) - Google Analytics 4 -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-CZXYBDEJ2H"></script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());
gtag('config', 'G-CZXYBDEJ2H');
</script>
<!-- END Global site tag (gtag.js) - Google Analytics 4 -->
<!-- Begin Nielsen DCR SDK -->
<script>
if(window.location === window.parent.location){
// Static Queue Snippet
! function(t, n) {
t[n] = t[n] || {
nlsQ: function(e, o, c, r, s, i) {
return s = t.document, r = s.createElement("script"), r.async = 1, r.src =
("http:" === t.location.protocol ? "http:" : "https:") + "//cdn-gl.imrworldwide.com/conf/" +
e + ".js#name=" + o + "&ns=" + n, i = s.getElementsByTagName("script")[0],
i.parentNode.insertBefore(r, i), t[n][o] = t[n][o] || {
g: c || {},
ggPM: function(e, c, r, s, i) {
(t[n][o].q = t[n][o].q || []).push([e, c, r, s, i])
}
}, t[n][o]}}}
(window, "NOLBUNDLE");
// SDK Initialization
var nSdkInstance = NOLBUNDLE.nlsQ("P1504C48C-9D0B-4ADE-B7CD-04AF56A52362", "nlsnInstance");
// Content Metadata
var nielsenMetadata = {
type: 'static',
assetid: ( location.hostname + location.pathname + location.search ).replace( /([^\w]|_)+/g, '-' ).replace( /^-+|-+$/g, '' ) || 'homepage',
section: 'LiberoCommunity_BRW'
};
// Event 'staticstart' Call
nSdkInstance.ggPM("staticstart", nielsenMetadata);
}
</script>
<!-- End Nielsen DCR SDK -->
<div id="adinterstitial"></div></body>
</html>