Line 1: #ExternalChecksum("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","7CF106E4E9E12135259C3035FA4FF04E5A051CA2")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports ASP
Line 16: Imports Microsoft.VisualBasic
Line 17: Imports System
Line 18: Imports System.Collections
Line 19: Imports System.Collections.Generic
Line 20: Imports System.Collections.Specialized
Line 21: Imports System.ComponentModel.DataAnnotations
Line 22: Imports System.Configuration
Line 23: Imports System.Data
Line 24: Imports System.Data.ODBC
Line 25: Imports System.Data.Oledb
Line 26: Imports System.Linq
Line 27: Imports System.Text
Line 28: Imports System.Text.RegularExpressions
Line 29: Imports System.Web
Line 30: Imports System.Web.Caching
Line 31: Imports System.Web.DynamicData
Line 32: Imports System.Web.Profile
Line 33: Imports System.Web.Security
Line 34: Imports System.Web.SessionState
Line 35: Imports System.Web.UI
Line 36: Imports System.Web.UI.HtmlControls
Line 37: Imports System.Web.UI.WebControls
Line 38: Imports System.Web.UI.WebControls.WebParts
Line 39: Imports System.Xml.Linq
Line 40:
Line 41: Namespace ASP
Line 42:
Line 43: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 44: Public Class service_rss_rss_aspx
Line 45: Inherits Global.AACPage
Line 46: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 47:
Line 48: Private Shared __initialized As Boolean
Line 49:
Line 50: Private Shared __fileDependencies As Object
Line 51:
Line 52:
Line 53: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",4)
Line 54:
Line 55:
Line 56: Function IsVuoto(ByVal str As Object) As boolean
Line 57: If TypeOf str Is System.DBNull Then
Line 58: Return true
Line 59: Else
Line 60: Return false
Line 61: End If
Line 62: End Function
Line 63:
Line 64:
Line 65: Function forumToDate(ByVal str As String) As Date
Line 66: '20030501135817
Line 67: 'stop
Line 68: Return New Date(str.Substring(0, 4), str.Substring(4, 2), str.Substring(6, 2), str.Substring(8, 2), str.Substring(10, 2), str.Substring(12, 2))
Line 69: End Function
Line 70:
Line 71:
Line 72: Function ToRssDate(ByVal ladat As String) As String
Line 73: Return ToRssDate(forumToDate(ladat))
Line 74: End Function
Line 75:
Line 76:
Line 77: Function ToRssDate(ByVal ladat As DateTime) As String
Line 78: Dim cltUS As New Globalization.CultureInfo("en-US")
Line 79:
Line 80: Return ladat.ToString("ddd, dd MMM yyyy HH:mm:ss", cltUS) & " +0100"
Line 81: End Function
Line 82:
Line 83:
Line 84: Function ConfrontaCampi(ByVal x As campiRss, ByVal y As campiRss) As Integer
Line 85: Return Date.Compare(x.quando, y.quando)
Line 86: End Function
Line 87:
Line 88:
Line 89: Function ToXmlString(ByVal str As String) As String
Line 90: str = str.Replace("""", """).Replace("<", "<")
Line 91: str = System.Text.RegularExpressions.Regex.Replace(str, "&(?![a-zA-Z]+;)", "&")
Line 92: Return str
Line 93: End Function
Line 94:
Line 95:
Line 96: Structure campiRss
Line 97: Dim titolo As String
Line 98: Dim link As String
Line 99: Dim ImgUrl As String
Line 100: Dim descri As String
Line 101: Dim quando As Date
Line 102: Dim categoria As String
Line 103: End Structure
Line 104:
Line 105: Dim titoloRss As String = "ARCADIACLUB.COM"
Line 106: Dim urlSito As String = "http://www.arcadiaclub.com/"
Line 107: Dim descriRss As String = "<strong>Aggiornamenti quotidiani del Network di AAC</strong> "
Line 108: Dim tipoRss As String = ""
Line 109: Dim urlLogo As String = "http://www.arcadiaclub.com/img/veste/aree/logo_aac_128x128.png"
Line 110:
Line 111:
Line 112:
Line 113: #End ExternalSource
Line 114:
Line 115:
Line 116: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 117: Public Sub New()
Line 118: MyBase.New
Line 119: Dim dependencies() As String
Line 120: CType(Me,Global.AACPage).AppRelativeVirtualPath = "~/service/rss/rss.aspx"
Line 121: If (Global.ASP.service_rss_rss_aspx.__initialized = false) Then
Line 122: dependencies = New String(18) {}
Line 123: dependencies(0) = "~/service/include/aggiornamenti.ascx"
Line 124: dependencies(1) = "~/service/include/adsense_generator.ascx"
Line 125: dependencies(2) = "~/service/include/autore_file.ascx"
Line 126: dependencies(3) = "~/service/include/telaio_footer.ascx"
Line 127: dependencies(4) = "~/service/include/mi_piace_fb.aspx"
Line 128: dependencies(5) = "~/forum/inc_ultimi_post_nuovo.ascx"
Line 129: dependencies(6) = "~/config_internal.aspx"
Line 130: dependencies(7) = "~/service/include/menu_aac.aspx"
Line 131: dependencies(8) = "~/service/include/aspect.ascx"
Line 132: dependencies(9) = "~/forum/commenta_forum.aspx"
Line 133: dependencies(10) = "~/service/include/segnalare.aspx"
Line 134: dependencies(11) = "~/footer.ascx"
Line 135: dependencies(12) = "~/forum/inc_ultimi_post.ascx"
Line 136: dependencies(13) = "~/service/include/telaio_header.ascx"
Line 137: dependencies(14) = "~/header.ascx"
Line 138: dependencies(15) = "~/service/include/social_network_presenza_aac.aspx"
Line 139: dependencies(16) = "~/service/rss/rss.aspx"
Line 140: dependencies(17) = "~/config.aspx"
Line 141: dependencies(18) = "~/forum/inc_ultimi_post_function.aspx"
Line 142: Global.ASP.service_rss_rss_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 143: Global.ASP.service_rss_rss_aspx.__initialized = true
Line 144: End If
Line 145: Me.Server.ScriptTimeout = 30000000
Line 146: End Sub
Line 147:
Line 148: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 149: Get
Line 150: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 151: End Get
Line 152: End Property
Line 153:
Line 154: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 155: Get
Line 156: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 157: End Get
Line 158: End Property
Line 159:
Line 160: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 161: Private Sub __BuildControlTree(ByVal __ctrl As service_rss_rss_aspx)
Line 162:
Line 163: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",1)
Line 164: __ctrl.EnableViewState = false
Line 165:
Line 166: #End ExternalSource
Line 167:
Line 168: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",1)
Line 169: __ctrl.EnableViewState = false
Line 170:
Line 171: #End ExternalSource
Line 172:
Line 173: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",1)
Line 174: __ctrl.ResponseEncoding = "iso-8859-1"
Line 175:
Line 176: #End ExternalSource
Line 177:
Line 178: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",1)
Line 179: Me.InitializeCulture
Line 180:
Line 181: #End ExternalSource
Line 182: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 183: End Sub
Line 184:
Line 185: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 186: __w.Write("<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 187:
Line 188: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\config_internal.aspx",18)
Line 189:
Line 190: 'Il controllo per il paging correntemente è registrato qua e là, ma andrebbe
Line 191: 'eliminato da tutte le parti e messo qui
Line 192: '<'%@ Register TagPrefix="aac" TagName="paging" Src="~/service/include/paging.ascx" %'>
Line 193:
Line 194:
Line 195: #End ExternalSource
Line 196:
Line 197: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",64)
Line 198:
Line 199: Response.ContentType = "text/xml"
Line 200: 'response.ContentType = "application/rss+xml"
Line 201:
Line 202:
Line 203: Const lunghezza As Integer = 300
Line 204: Dim num_aggio As Integer = Request("aggio")
Line 205: Dim num_aacnew As Integer = Request("aacNews")
Line 206: Dim num_forum As Integer = Request("forum")
Line 207: Dim num_newsEsterne As Integer = Request("newsEsterne")
Line 208: Dim num_tutte As Integer = Request("limit")
Line 209:
Line 210: If Request("tutte") <> 0 Then
Line 211: num_tutte = Request("tutte")
Line 212: num_aggio = num_tutte
Line 213: num_aacnew = num_tutte
Line 214: num_forum = num_tutte
Line 215: num_newsEsterne = num_tutte
Line 216: End If
Line 217:
Line 218: Dim voci As New Collections.Generic.List(Of campiRss)
Line 219:
Line 220:
Line 221: Dim objConn_so As System.Data.Odbc.OdbcConnection = getForumDb()
Line 222: Dim strSQL_so As String
Line 223:
Line 224: ' ---------------------------------------------------------------------------------- PRENDIAMO LE AAC NEWS
Line 225:
Line 226: If num_aacnew <> 0 Then
Line 227:
Line 228: tipoRss = " | News "
Line 229:
Line 230: Dim aacnews As String = ""
Line 231:
Line 232: If Request("forumSez") <> "" Then
Line 233: aacnews &= " (FORUM_TOPICS.FORUM_ID = " & rinomina(Request("forumSez")) & " OR FORUM_FORUM.F_PARENT_ID = " & rinomina(Request("forumSez")) & ") AND "
Line 234: End If
Line 235:
Line 236: Dim dr_so5 As New datatable()
Line 237: Dim objCmd24_so As New System.Data.Odbc.OdbcDataAdapter
Line 238:
Line 239: strSQL_so = "SELECT DISTINCT FORUM_USERFILES.F_TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_MESSAGE, FORUM_TOPICS.T_AUTHOR, "
Line 240: strSQL_so &= " FORUM_FORUM.F_SUBJECT from FORUM_TOPICS join FORUM_FORUM on FORUM_TOPICS.FORUM_ID = FORUM_FORUM.FORUM_ID join FORUM_USERFILES on "
Line 241: strSQL_so &= " FORUM_TOPICS.TOPIC_ID = FORUM_USERFILES.F_TOPIC_ID where " & aacnews & " (T_TIPO = 1) AND T_APPROVED <> -1 AND FORUM_FORUM.F_PRIVATEFORUMS = 0 "
Line 242: strSQL_so &= " ORDER BY FORUM_TOPICS.TOPIC_ID DESC LIMIT " & num_aacnew
Line 243:
Line 244: objCmd24_so = New System.Data.Odbc.OdbcDataAdapter(strSQL_so, objConn_so)
Line 245: objCmd24_so.Fill(dr_so5)
Line 246:
Line 247: For ce As Integer = 0 To dr_so5.rows.count - 1
Line 248: Dim nuova_voce As campiRss
Line 249:
Line 250: nuova_voce.titolo = dr_so5.rows(ce)("T_SUBJECT")
Line 251: nuova_voce.link = "http://news.arcadiaclub.com/" & dr_so5.rows(ce)("TOPIC_ID") & "/" & rinomina(dr_so5.rows(ce)("T_SUBJECT")) & ".htm"
Line 252: nuova_voce.ImgUrl = "http://www.arcadiaclub.com/img/artic/news/small/" & rinomina(dr_so5.rows(ce)("T_SUBJECT")) & "_M" & dr_so5.rows(ce)("T_AUTHOR") & "_T" & dr_so5.rows(ce)("TOPIC_ID") & ".JPG"
Line 253: nuova_voce.descri = "<strong>" & dr_so5.rows(ce)("F_SUBJECT") & "</strong> - " & ToXmlString(accorcia(antiTagHtml(dr_so5.rows(ce)("T_MESSAGE")).replace("(!firma!)", "").trim(), lunghezza))
Line 254: nuova_voce.quando = forumToDate(dr_so5.rows(ce)("T_DATE"))
Line 255: nuova_voce.categoria = dr_so5.rows(ce)("F_SUBJECT")
Line 256:
Line 257: voci.Add(nuova_voce)
Line 258:
Line 259: Next ce
Line 260:
Line 261: End If
Line 262:
Line 263:
Line 264: ' ---------------------------------------------------------------------------------- PRENDIAMO GLI ULTIMI POST
Line 265:
Line 266: If num_forum <> 0 Then
Line 267:
Line 268: tipoRss &= " | Discussioni "
Line 269:
Line 270: Dim aacnews As String = ""
Line 271:
Line 272: 'Se sono richieste le aac news qui non le ripete
Line 273: If Request("aacNews") <> "" Then
Line 274: aacnews &= " (T_TIPO <> 1) AND "
Line 275: End If
Line 276:
Line 277: If Request("forumSez") <> "" Then
Line 278: aacnews &= " (FORUM_TOPICS.FORUM_ID = " & rinomina(Request("forumSez")) & " OR FORUM_FORUM.F_PARENT_ID = " & rinomina(Request("forumSez")) & ") AND "
Line 279: End If
Line 280:
Line 281: Dim dr_so5 As New datatable()
Line 282: Dim objCmd24_so As New System.Data.Odbc.OdbcDataAdapter
Line 283:
Line 284: strSQL_so = "SELECT FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_MESSAGE, FORUM_TOPICS.T_AUTHOR, "
Line 285: strSQL_so &= " FORUM_FORUM.F_SUBJECT from FORUM_TOPICS join FORUM_FORUM on FORUM_TOPICS.FORUM_ID = FORUM_FORUM.FORUM_ID "
Line 286: strSQL_so &= " where " & aacnews & " FORUM_FORUM.F_PRIVATEFORUMS = 0 AND FORUM_TOPICS.T_STATUS = 1 AND FORUM_TOPICS.FORUM_ID <> 28 AND FORUM_TOPICS.T_REPLIES > 2 "
Line 287:
Line 288: If request("fb") <> "" Then
Line 289: strSQL_so &= " ORDER BY FORUM_TOPICS.T_DATE DESC LIMIT " & num_forum
Line 290: Else
Line 291: strSQL_so &= " ORDER BY FORUM_TOPICS.T_LAST_POST DESC LIMIT " & num_forum
Line 292: End If
Line 293:
Line 294: objCmd24_so = New System.Data.Odbc.OdbcDataAdapter(strSQL_so, objConn_so)
Line 295: objCmd24_so.Fill(dr_so5)
Line 296:
Line 297: If dr_so5.rows.count > 0 And Request("forumSez") <> "" Then
Line 298: tipoRss &= "sull'argomento " & dr_so5.rows(0)("F_SUBJECT").toUpper()
Line 299: End If
Line 300:
Line 301: For ce As Integer = 0 To dr_so5.rows.count - 1
Line 302: Dim nuova_voce As campiRss
Line 303:
Line 304: nuova_voce.titolo = dr_so5.rows(ce)("T_SUBJECT")
Line 305: nuova_voce.link = "http://www.arcadiaclub.com/forum/link.asp?TOPIC_ID=" & dr_so5.rows(ce)("TOPIC_ID")
Line 306: nuova_voce.ImgUrl = "http://www.arcadiaclub.com/img/news/default.JPG"
Line 307: nuova_voce.descri = "<strong>" & dr_so5.rows(ce)("F_SUBJECT") & "</strong> - " & ToXmlString(accorcia(antiTagHtml(dr_so5.rows(ce)("T_MESSAGE")).replace("(!firma!)", "").trim(), lunghezza))
Line 308: nuova_voce.quando = forumToDate(dr_so5.rows(ce)("T_DATE"))
Line 309: nuova_voce.categoria = dr_so5.rows(ce)("F_SUBJECT")
Line 310:
Line 311: voci.Add(nuova_voce)
Line 312:
Line 313: Next ce
Line 314:
Line 315: End If
Line 316:
Line 317: ' ---------------------------------------------------------------------------------- PRENDIAMO GLI AGGIORNAMENTI DELLE SEZIONI E LE NEWS INTERNE
Line 318:
Line 319: If num_aggio <> 0 Then
Line 320:
Line 321: tipoRss &= " | Aggiornamenti "
Line 322:
Line 323: Dim dr_so5 As New datatable()
Line 324: Dim objCmd24_so As New System.Data.Odbc.OdbcDataAdapter
Line 325:
Line 326: Dim sezion As String = ""
Line 327:
Line 328: If Request("sez") <> "" Then
Line 329: sezion &= " aac_aggiornamenti.sezione = " & rinomina(Request("Sez")) & " AND "
Line 330: End If
Line 331:
Line 332: ' Permette di specificare se solo articoli o solo comunicati
Line 333: If Request("comunic") <> "" Then
Line 334: sezion &= " aac_aggiornamenti.tipo = " & CInt(Request("comunic")) & " AND "
Line 335: End If
Line 336:
Line 337: strSQL_so = "SELECT aac_aggiornamenti.titolo, aac_aggiornamenti.linkarticolo, aac_lista.url, aac_aggiornamenti.cosa, aac_aggiornamenti.articolo, "
Line 338: strSQL_so &= " aac_aggiornamenti.quando, aac_lista.sezione, aac_aggiornamenti.tipo, aac_aggiornamenti.id"
Line 339: strSQL_so &= " from aac_aggiornamenti join aac_lista on aac_aggiornamenti.sezione = aac_lista.contx "
Line 340: strSQL_so &= " WHERE " & sezion & " aac_aggiornamenti.quando < '" & getNow().tostring("yyyy-MM-dd HH:mm:ss") & "'"
Line 341: strSQL_so &= " ORDER BY aac_aggiornamenti.quando DESC LIMIT " & num_aggio
Line 342:
Line 343: objCmd24_so = New System.Data.Odbc.OdbcDataAdapter(strSQL_so, objConn_so)
Line 344: objCmd24_so.Fill(dr_so5)
Line 345:
Line 346:
Line 347: If dr_so5.rows.count > 0 And Request("sez") <> "" Then
Line 348: tipoRss &= "della sezione " & dr_so5.rows(0)("sezione").toUpper()
Line 349: End If
Line 350:
Line 351: For ce As Integer = 0 To dr_so5.rows.count - 1
Line 352: Dim nuova_voce As campiRss
Line 353:
Line 354: If IsVuoto(dr_so5.rows(ce)("titolo")) Then
Line 355:
Line 356: If IsVuoto(dr_so5.rows(ce)("articolo")) Then
Line 357: nuova_voce.titolo = "errore"
Line 358: Else
Line 359: nuova_voce.titolo = accorcia(dr_so5.rows(ce)("articolo"), 45)
Line 360: End If
Line 361:
Line 362: Else
Line 363: nuova_voce.titolo = dr_so5.rows(ce)("titolo")
Line 364: End If
Line 365:
Line 366: If IsVuoto(dr_so5.rows(ce)("linkarticolo")) Then
Line 367: nuova_voce.link = "http://www.arcadiaclub.com/"
Line 368: Else
Line 369: nuova_voce.link = dr_so5.rows(ce)("linkarticolo")
Line 370: End If
Line 371:
Line 372: If nuova_voce.link.contains("?") Then nuova_voce.link &= "&" Else nuova_voce.link &= "?"
Line 373: nuova_voce.link &= "rss=" & dr_so5.rows(ce)("id")
Line 374:
Line 375: If TypeOf dr_so5.rows(ce)("linkarticolo") Is DBNull Then
Line 376: nuova_voce.ImgUrl = "http://www.arcadiaclub.com/img/artic/news/small/news_interne.jpg"
Line 377: Else
Line 378: nuova_voce.ImgUrl = "http://www.arcadiaclub.com/img/news/" & nomeImgAggio(dr_so5.rows(ce)("url"), dr_so5.rows(ce)("linkarticolo")) & ".JPG"
Line 379: End If
Line 380:
Line 381: Dim cheCosa As String
Line 382:
Line 383: If dr_so5.rows(ce)("tipo") = 1 Then
Line 384: cheCosa = "<strong>Comunicato di ArcadiA Club</strong> - "
Line 385: Else
Line 386: cheCosa = "<strong>" & ToXmlString(dr_so5.rows(ce)("cosa")) & "</strong> - "
Line 387: End If
Line 388:
Line 389:
Line 390: If IsVuoto(dr_so5.rows(ce)("articolo")) Then
Line 391: nuova_voce.descri = "errore"
Line 392: Else
Line 393: nuova_voce.descri = cheCosa & ToXmlString(accorcia(antiTagHtml(dr_so5.rows(ce)("articolo")).trim(), lunghezza))
Line 394: End If
Line 395:
Line 396: If IsVuoto(dr_so5.rows(ce)("quando")) Then
Line 397: nuova_voce.quando = ""
Line 398: Else
Line 399: nuova_voce.quando = dr_so5.rows(ce)("quando")
Line 400: End If
Line 401:
Line 402: nuova_voce.categoria = dr_so5.rows(ce)("sezione")
Line 403:
Line 404: voci.Add(nuova_voce)
Line 405:
Line 406: Next ce
Line 407:
Line 408: End If
Line 409: ' ---------------------------------------------------------------------------------- PRENDIAMO I SITI DEL NETWORK
Line 410:
Line 411: If num_newsEsterne <> 0 And Request("sito") <> "" Then
Line 412: 'newsEsterne
Line 413:
Line 414: Dim dr_so5 As New datatable()
Line 415: Dim objCmd24_so As New System.Data.Odbc.OdbcDataAdapter
Line 416:
Line 417: strSQL_so = "SELECT DISTINCT FORUM_USERFILES.F_TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_MESSAGE, "
Line 418: strSQL_so &= " FORUM_TOPICS.T_AUTHOR, FORUM_FORUM.F_SUBJECT, aac_siti.dominio, aac_siti.urlo, aac_siti.nome, aac_siti.logo from FORUM_TOPICS join "
Line 419: strSQL_so &= " FORUM_FORUM on FORUM_TOPICS.FORUM_ID = FORUM_FORUM.FORUM_ID join FORUM_USERFILES on FORUM_TOPICS.TOPIC_ID = FORUM_USERFILES.F_TOPIC_ID "
Line 420: strSQL_so &= " join aac_siti ON (aac_siti.forum_id = FORUM_FORUM.FORUM_ID OR aac_siti.forum_id = FORUM_FORUM.F_PARENT_ID) where (T_TIPO = 1) AND "
Line 421: strSQL_so &= " aac_siti.id = " & rinomina(Request("sito")) & " ORDER BY FORUM_TOPICS.TOPIC_ID DESC LIMIT " & num_newsEsterne
Line 422:
Line 423: 'response.write(strSQL_so)
Line 424: 'response.end()
Line 425:
Line 426: objCmd24_so = New System.Data.Odbc.OdbcDataAdapter(strSQL_so, objConn_so)
Line 427: objCmd24_so.Fill(dr_so5)
Line 428:
Line 429: For ce As Integer = 0 To dr_so5.rows.count - 1
Line 430: Dim nuova_voce As campiRss
Line 431:
Line 432: nuova_voce.titolo = dr_so5.rows(ce)("T_SUBJECT")
Line 433: nuova_voce.link = dr_so5.Rows(ce)("urlo") & "articoli/" & dr_so5.Rows(ce)("TOPIC_ID") & "/" & rinomina(dr_so5.Rows(ce)("T_SUBJECT")) & ".htm"
Line 434: nuova_voce.ImgUrl = "http://www.arcadiaclub.com/img/artic/news/small/" & rinomina(dr_so5.rows(ce)("T_SUBJECT")) & "_M" & dr_so5.rows(ce)("T_AUTHOR") & "_T" & dr_so5.rows(ce)("TOPIC_ID") & ".JPG"
Line 435: nuova_voce.descri = "<strong>" & dr_so5.rows(ce)("F_SUBJECT") & "</strong> - " & ToXmlString(accorcia(antiTagHtml(dr_so5.rows(ce)("T_MESSAGE")).replace("(!firma!)", "").trim(), lunghezza))
Line 436: nuova_voce.quando = forumToDate(dr_so5.rows(ce)("T_DATE"))
Line 437: nuova_voce.categoria = dr_so5.rows(ce)("F_SUBJECT")
Line 438:
Line 439: voci.Add(nuova_voce)
Line 440:
Line 441: Next ce
Line 442:
Line 443: titoloRss = dr_so5.Rows(0)("dominio").toUpper()
Line 444: urlSito = dr_so5.Rows(0)("urlo")
Line 445: descriRss = "Aggiornamenti di " & dr_so5.Rows(0)("nome")
Line 446: tipoRss = " | News "
Line 447: urlLogo = dr_so5.Rows(0)("urlo") & "img/" & rinomina(dr_so5.Rows(0)("dominio")) & "/128x128_" & dr_so5.Rows(0)("logo")
Line 448:
Line 449: End If
Line 450:
Line 451:
Line 452: voci.Sort(AddressOf ConfrontaCampi)
Line 453: voci.Reverse()
Line 454:
Line 455:
Line 456: #End ExternalSource
Line 457: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<rss version=""2.0"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<channel>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<title>")
Line 458:
Line 459: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",325)
Line 460: __w.Write(titoloRss.Replace("&", "and"))
Line 461:
Line 462:
Line 463: #End ExternalSource
Line 464: __w.Write(" ")
Line 465:
Line 466: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",325)
Line 467: __w.Write(tipoRss.Replace("&", "and"))
Line 468:
Line 469:
Line 470: #End ExternalSource
Line 471: __w.Write(" ")
Line 472:
Line 473: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",325)
Line 474: '[=GetNow().tostring("dd/MM/yyyy - hh:mm:ss") ]
Line 475:
Line 476: #End ExternalSource
Line 477: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link>")
Line 478:
Line 479: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",326)
Line 480: __w.Write(urlSito)
Line 481:
Line 482:
Line 483: #End ExternalSource
Line 484: __w.Write("</link>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<description>")
Line 485:
Line 486: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",327)
Line 487: __w.Write(descriRss)
Line 488:
Line 489:
Line 490: #End ExternalSource
Line 491: __w.Write("</description>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<language>it</language>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<copyright>Copyright 1999-")
Line 492:
Line 493: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",329)
Line 494: __w.Write(now.year )
Line 495:
Line 496:
Line 497: #End ExternalSource
Line 498: __w.Write(" ")
Line 499:
Line 500: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",329)
Line 501: __w.Write(titoloRss)
Line 502:
Line 503:
Line 504: #End ExternalSource
Line 505: __w.Write("</copyright>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<lastBuildDate>")
Line 506:
Line 507: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",330)
Line 508: __w.Write(toRssDate(getnow()) )
Line 509:
Line 510:
Line 511: #End ExternalSource
Line 512: __w.Write("</lastBuildDate>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<webMaster>service@arcadiaclub.com (")
Line 513:
Line 514: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",331)
Line 515: __w.Write(titoloRss)
Line 516:
Line 517:
Line 518: #End ExternalSource
Line 519: __w.Write(")</webMaster>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<image>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<url>")
Line 520:
Line 521: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",334)
Line 522: __w.Write(urlLogo)
Line 523:
Line 524:
Line 525: #End ExternalSource
Line 526: __w.Write("</url>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<title>")
Line 527:
Line 528: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",335)
Line 529: __w.Write(titoloRss)
Line 530:
Line 531:
Line 532: #End ExternalSource
Line 533: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<link>")
Line 534:
Line 535: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",336)
Line 536: __w.Write(urlSito)
Line 537:
Line 538:
Line 539: #End ExternalSource
Line 540: __w.Write("</link>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<width>128</width>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<height>128</height>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</image>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 541:
Line 542: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",341)
Line 543: '---------------------------------------------------- INSERIAMO LE VOCI RSS
Line 544: Dim daStampare As Integer = voci.Count
Line 545: If num_tutte <> 0 AndAlso daStampare > num_tutte Then
Line 546: daStampare = num_tutte
Line 547: End If
Line 548: For ce As Integer = 0 To daStampare - 1
Line 549:
Line 550:
Line 551:
Line 552: #End ExternalSource
Line 553: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<item>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<title><![CDATA[")
Line 554:
Line 555: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",351)
Line 556: __w.Write(voci(ce).titolo )
Line 557:
Line 558:
Line 559: #End ExternalSource
Line 560: __w.Write("]]></title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<link>")
Line 561:
Line 562: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",352)
Line 563: __w.Write(voci(ce).link )
Line 564:
Line 565:
Line 566: #End ExternalSource
Line 567: __w.Write("</link>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<description><![CDATA["&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td valign=""top"& _
Line 568: """ align=""center"" style=""padding: 10px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""")
Line 569:
Line 570: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",358)
Line 571: __w.Write(voci(ce).link )
Line 572:
Line 573:
Line 574: #End ExternalSource
Line 575: __w.Write("""><img src=""")
Line 576:
Line 577: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",358)
Line 578: __w.Write(ToXmlString(voci(ce).imgUrl) )
Line 579:
Line 580:
Line 581: #End ExternalSource
Line 582: __w.Write(""" border=""0""></a></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td valign=""top"" style=""padding: 10px"">")
Line 583:
Line 584: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",359)
Line 585: __w.Write(voci(ce).descri)
Line 586:
Line 587:
Line 588: #End ExternalSource
Line 589: __w.Write("<!--225a9b77ec6a441889a185bd95b834b1--></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"]]></d"& _
Line 590: "escription>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<pubDate>")
Line 591:
Line 592: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",364)
Line 593: __w.Write(ToXmlString(ToRssDate(voci(ce).quando)) )
Line 594:
Line 595:
Line 596: #End ExternalSource
Line 597: __w.Write("</pubDate>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<category>")
Line 598:
Line 599: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",365)
Line 600: __w.Write(ToXmlString(voci(ce).categoria) )
Line 601:
Line 602:
Line 603: #End ExternalSource
Line 604: __w.Write("</category>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<guid isPermaLink=""true"">")
Line 605:
Line 606: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",366)
Line 607: __w.Write(ToXmlString(voci(ce).link) )
Line 608:
Line 609:
Line 610: #End ExternalSource
Line 611: __w.Write("</guid>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</item>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 612:
Line 613: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\service\rss\rss.aspx",370)
Line 614: Next ce
Line 615:
Line 616:
Line 617: #End ExternalSource
Line 618: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</channel>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</rss>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 619: End Sub
Line 620:
Line 621: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 622: Protected Overrides Sub FrameworkInitialize()
Line 623: MyBase.FrameworkInitialize
Line 624: Me.__BuildControlTree(Me)
Line 625: Me.AddWrappedFileDependencies(Global.ASP.service_rss_rss_aspx.__fileDependencies)
Line 626: Me.Request.ValidateInput
Line 627: End Sub
Line 628:
Line 629: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 630: Public Overrides Function GetTypeHashCode() As Integer
Line 631: Return -1381655955
Line 632: End Function
Line 633:
Line 634: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 635: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 636: MyBase.ProcessRequest(context)
Line 637: End Sub
Line 638: End Class
Line 639: End Namespace
Line 640:
|