Line 1: <script runat="server">
Line 2:
Line 3: Dim connectionString_SH As String = System.Configuration.ConfigurationManager.AppSettings("connectionString_SH")
Line 4:
Line 5: Dim site_code As String = "mxleu"
Line 6:
Line 7: Dim BASE_URL = "https://www.maxcellinnerduct.eu"
Line 8:
Line 9: Sub doThisFirst(ByVal t As String, ByVal pg As String)Line 10: Line 11: Title = t
Line 12:
Line 13: META_desc.Content = getMETAContent(pg)
Line 14:
Line 15: setLang()
Line 16:
Line 17: End Sub
Line 18:
Line 19: Function getMETAContent(ByVal pg As String) As String
Line 20:
Line 21: Dim returnStr As String = ""
Line 22:
Line 23: resetArray(1)
Line 24:
Line 25: variableArray(0) = "@page"
Line 26: valueArray(0) = pg
Line 27:
Line 28: variableArray(1) = "@site_code"
Line 29: valueArray(1) = site_code
Line 30:
Line 31: Dim rsResults As SqlDataReader = executeSQL(connectionString_SH, "select META_desc from META_Content m INNER JOIN META_Content_Sites ms ON m.m_id = ms.m_id INNER JOIN Sites s ON s.s_id = ms.s_id AND site_code = @site_code WHERE page = @page", variableArray, valueArray)
Line 32:
Line 33: If rsResults.Read() Then returnStr = rsResults("META_desc")
Line 34:
Line 35: rsResults.Close()
Line 36: rsResults = Nothing
Line 37:
Line 38: Return returnStr
Line 39:
Line 40: End Function
Line 41:
Line 42: Sub redirLang(sender as Object, e as EventArgs)
Line 43: Response.Redirect("about.aspx")
Line 44: End Sub
Line 45:
Line 46: Function sessionToCode() As String
Line 47: Select Case Session("lang")
Line 48: Case "eng"
Line 49: return "en"
Line 50: Case "fr"
Line 51: return "fr"
Line 52: Case "spa"
Line 53: return "es"
Line 54: Case "ptg"
Line 55: return "pt"
Line 56: Case "ita"
Line 57: return "it"
Line 58: Case "ger"
Line 59: return "de"
Line 60: Case else
Line 61: return "en"
Line 62: End Select
Line 63: End Function
Line 64:
Line 65: Sub setLang()
Line 66:
Line 67: If Request.QueryString("lang") <> "" Then
Line 68: Session("lang") = Request.QueryString("lang")
Line 69: Else
Line 70: If Session("lang") = "" Then
Line 71: Session("lang") = "eng"
Line 72: End If
Line 73: End If
Line 74:
Line 75: href_anno.Text = "<link rel='canonical' href='" + BASE_URL + "/" + sessionToCode() + request.url.absolutepath + "' />"
Line 76: href_anno.Text += "<link rel='alternate' href='" + BASE_URL + "/en" + request.url.absolutepath + "' hreflang='en-eu' />"
Line 77: href_anno.Text += "<link rel='alternate' href='" + BASE_URL + "/fr" + request.url.absolutepath + "' hreflang='fr' />"
Line 78: href_anno.Text += "<link rel='alternate' href='" + BASE_URL + "/es" + request.url.absolutepath + "' hreflang='es' />"
Line 79: href_anno.Text += "<link rel='alternate' href='" + BASE_URL + "/pt" + request.url.absolutepath + "' hreflang='pt' />"
Line 80: href_anno.Text += "<link rel='alternate' href='" + BASE_URL + "/it" + request.url.absolutepath + "' hreflang='it' />"
Line 81: href_anno.Text += "<link rel='alternate' href='" + BASE_URL + "/de" + request.url.absolutepath + "' hreflang='de' />"
Line 82:
Line 83: Select Case Session("lang")
Line 84: Case "eng"
Line 85:
Line 86: 'LANG SELECTION
Line 87: img_flag.attributes.add("class", "flag flag-gb")
Line 88: ltl_lang.Text = "English"
Line 89:
Line 90: 'img_MaxedOut.src = "/img/MaxedOut.png"
Line 91: 'img_footer.src = "/img/MaxedOut.png"
Line 92:
Line 93: a_locate.InnerHtml = "Locate a Sales Rep"
Line 94: h4_foot.InnerHtml = "New build or at capacity, MaxCell gives your network more space."
Line 95: p_foot.InnerHtml = "MaxCell's conduit maximization solutions allow operators to maximize their OSP and ISP network capacity while reducing total system cost. MaxCell increases available conduit space and reduces pulling tension when installing cables. The MaxSpace service reclaims existing conduit space by safely removing innerduct over active cables. Max Out your network capacity and efficiency with MaxCell."
Line 96: p_copyright.InnerHtml = "Copyright MaxCell Innerduct. All Rights Reserved."
Line 97:
Line 98: Case "fr"
Line 99:
Line 100: 'LANG SELECTION
Line 101: img_flag.attributes.add("class", "flag flag-fr")
Line 102: ltl_lang.Text = "Française"
Line 103:
Line 104: 'img_MaxedOut.src = "/img/MaxedOut.png"
Line 105: 'img_footer.src = "/img/MaxedOut.png"
Line 106:
Line 107: a_locate.InnerHtml = "Localiser un représentant des ventes"
Line 108: h4_foot.InnerHtml = "Nouvelle construction ou capacité, MaxCell donne plus d'espace à votre réseau."
Line 109: p_foot.InnerHtml = "Les solutions de maximisation de conduit de MaxCell permettent aux opérateurs de maximiser leur capacité réseau OSP et FAI tout en réduisant le coût total du système. MaxCell augmente l'espace disponible dans les conduits et réduit la tension de traction lors de l'installation des câbles. Le service MaxSpace récupère l'espace de conduit existant en retirant en toute sécurité le conduit interne sur les câbles actifs. Maximisez la capacité et l'efficacité de votre réseau avec MaxCell."
Line 110: p_copyright.InnerHtml = "Copyright MaxCell Innerduct. Tous les droits sont réservés."
Line 111:
Line 112: Case "spa"
Line 113:
Line 114: 'LANG SELECTION
Line 115: img_flag.attributes.add("class", "flag flag-es")
Line 116: ltl_lang.Text = "Español"
Line 117:
Line 118: 'img_MaxedOut.src = "/img/MaxedOut-es.png"
Line 119: 'img_footer.src = "/img/MaxedOut-es.png"
Line 120:
Line 121: a_locate.InnerHtml = "Busque un representante de ventas"
Line 122: h4_foot.InnerHtml = "Nueva construcción o capacidad, MaxCell le da a su red más espacio."
Line 123: p_foot.InnerHtml = "Las soluciones de maximización de conductos de MaxCell permiten a los operadores maximizar su capacidad de red OSP e ISP a la vez que reducen el costo total del sistema. MaxCell aumenta el espacio disponible para el conducto y reduce la tensión de tracción al instalar los cables. El servicio MaxSpace recupera el espacio de conducto existente al eliminar de manera segura el conducto interno sobre los cables activos. Maximice la capacidad y la eficiencia de su red con MaxCell."
Line 124: p_copyright.InnerHtml = "Copyright MaxCell Innerduct. Todos los derechos reservados."
Line 125:
Line 126: Case "ptg"
Line 127:
Line 128: 'LANG SELECTION
Line 129: img_flag.attributes.add("class", "flag flag-pt")
Line 130: ltl_lang.Text = "Português"
Line 131:
Line 132: 'img_MaxedOut.src = "/img/MaxedOut-ptg.png"
Line 133: 'img_footer.src = "/img/MaxedOut-ptg.png"
Line 134:
Line 135: a_locate.InnerHtml = "Localize um representante de vendas"
Line 136: h4_foot.InnerHtml = "Nova compilação ou capacidade, o MaxCell dá à sua rede mais espaço."
Line 137: p_foot.InnerHtml = "As soluções de maximização de conduíte da MaxCell permitem que os operadores maximizem sua capacidade de rede OSP e ISP, reduzindo o custo total do sistema. MaxCell aumenta o espaço disponível no conduíte e reduz a tensão de tração durante a instalação de cabos. O serviço MaxSpace recupera o espaço de conduíte existente, removendo com segurança o conduto interno sobre os cabos ativos. Max Out sua capacidade de rede e eficiência com MaxCell."
Line 138: p_copyright.InnerHtml = "Direitos autorais MaxCell Innerduct. Todos os direitos reservados."
Line 139:
Line 140: Case "ita"
Line 141:
Line 142: 'LANG SELECTION
Line 143: img_flag.attributes.add("class", "flag flag-it")
Line 144: ltl_lang.Text = "Italiano"
Line 145:
Line 146: 'img_MaxedOut.src = "/img/MaxedOut-ptg.png"
Line 147: 'img_footer.src = "/img/MaxedOut-ptg.png"
Line 148:
Line 149: a_locate.InnerHtml = "Individuare un addetto vendite"
Line 150: h4_foot.InnerHtml = "Nuova costruzione o al massimo della capacità, Maxcell dà la rete più spazio."
Line 151: p_foot.InnerHtml = "Le soluzioni condotto massimizzazione del Maxcell permettono agli operatori di massimizzare la capacità OSP e rete ISP riducendo costo totale del sistema. Maxcell aumenta lo spazio disponibile condotto e riduce la tensione tirando l'installazione dei cavi. Il servizio MaxSpace recupera lo spazio condotto esistente rimuovendo sicuro condotto interno su cavi attivi. Max Out è la tua capacità di rete ed efficienza con Maxcell."
Line 152: p_copyright.InnerHtml = "Copyright Maxcell condotto interno. Tutti i diritti riservati."
Line 153:
Line 154: Case "ger"
Line 155:
Line 156: 'LANG SELECTION
Line 157: img_flag.attributes.add("class", "flag flag-de")
Line 158: ltl_lang.Text = "Deutsche"
Line 159:
Line 160: 'img_MaxedOut.src = "/img/MaxedOut-ptg.png"
Line 161: 'img_footer.src = "/img/MaxedOut-ptg.png"
Line 162:
Line 163: a_locate.InnerHtml = "Suchen Sie einen Vertriebsmitarbeiter"
Line 164: h4_foot.InnerHtml = "Neubau oder an der Kapazitätsgrenze, gibt MaxCell Ihr Netzwerk mehr Platz."
Line 165: p_foot.InnerHtml = "MaxCell der Leitung Maximierung Lösungen können Betreiber ihre OSP und ISP-Netzwerkkapazität maximieren und gleichzeitig die Systemkosten zu senken. MaxCell erhöht verfügbaren Leitungs Raum und reduziert die Spannung zieht, wenn Kabel installieren. Der MaxSpace Service Rückforderung vorhandenen Leitungsraum durch sichere Entfernen Röhrenleitung über aktive Kabel. Max Ihre Netzwerkkapazität und Effizienz mit MaxCell."
Line 166: p_copyright.InnerHtml = "Copyright MaxCell Innerduct. Alle Rechte vorbehalten."
Line 167:
Line 168: End Select
Line 169:
Line 170: p_copyright.InnerHtml += " | <a href='privacy.aspx'>Privacy Policy</a>"
Line 171:
Line 172: '-----------------
Line 173: ' SET INNERHTML
Line 174: '-----------------
Line 175:
Line 176: 'NAV
Line 177: a_default.InnerHtml = translate("Home")
Line 178: a_events.InnerHtml = translate("Events")
Line 179: a_enews.InnerHtml = translate("E-News")
Line 180:
Line 181: 'NAV - PRODUCTS
Line 182: a_products.InnerHtml = translate("Products")
Line 183: a_edge.InnerHtml = translate("MaxCell Edge")
Line 184: 'a_standard.InnerHtml = translate("Standard MaxCell")
Line 185: a_plenumRiser.InnerHtml = translate("MaxCell ISP")
Line 186: a_detectable.InnerHtml = translate("MaxCell Edge Detectable")
Line 187: 'a_selfSupport.InnerHtml = translate("Self-Supporting MaxCell")
Line 188: a_partNumbers.InnerHtml = translate("Part Numbers")
Line 189: a_installAcc.InnerHtml = translate("Installation Accessories")
Line 190: a_termAcc.InnerHtml = translate("Termination Accessories")
Line 191:
Line 192: 'NAV - ABOUT
Line 193: a_aboutNav.InnerHtml = translate("About")
Line 194: a_about.InnerHtml = translate("About MaxCell")
Line 195: a_why.InnerHtml = translate("Why MaxCell")
Line 196: a_applications.InnerHtml = translate("Applications")
Line 197: a_fits.InnerHtml = translate("MaxCell Fits")
Line 198: a_who.InnerHtml = translate("Who's Using")
Line 199: a_green.InnerHtml = translate("Green Initiative")
Line 200: 'a_NECA.InnerHtml = translate("NECA Findings")
Line 201:
Line 202: 'NAV - SUPPORT
Line 203: a_support.InnerHtml = translate("Support")
Line 204: a_literature.InnerHtml = translate("Literature")
Line 205: 'a_appGuide.InnerHtml = translate("Application Guide")
Line 206: a_faq.InnerHtml = translate("FAQ")
Line 207: a_fillRatio.InnerHtml = translate("Fill Ratio")
Line 208: a_pullTest.InnerHtml = translate("Pull Test Information")
Line 209: a_installation.InnerHtml = translate("Installation Instructions")
Line 210: a_videos.InnerHtml = translate("Videos")
Line 211:
Line 212: 'NAV - CONTACT
Line 213: a_us.InnerHtml = translate("USA")
Line 214: a_ca.InnerHtml = translate("Canada")
Line 215: a_cala.InnerHtml = translate("Caribbean & Latin America")
Line 216: a_asia.InnerHtml = translate("Asia")
Line 217: a_eu.InnerHtml = translate("Europe")
Line 218: a_me.InnerHtml = translate("Near/Middle East")
Line 219:
Line 220: a_contact.InnerHtml = translate("Contact Us")
Line 221: a_sampleRequest.InnerHtml = translate("Request a Sample")
Line 222: a_emailUs.InnerHtml = translate("Email Us")
Line 223:
Line 224: 'FOOTER
Line 225: h5_contact.InnerHtml = translate("Contact Us")
Line 226:
Line 227: '-----------
Line 228: ' SET URL
Line 229: '-----------
Line 230:
Line 231: 'NAV
Line 232: a_default.Href = "/" + SessionToCode + "/default.aspx"Line 233: a_events.Href = "/" + SessionToCode + "/events.aspx"Line 234: a_enews.Href = "/" + SessionToCode + "/enews.aspx"Line 235:
Line 236: 'NAV - PRODUCTS
Line 237: 'a_products.Href = "/" + SessionToCode + "/#"Line 238: a_edge.Href = "/" + SessionToCode + "/edge.aspx"Line 239: 'a_standard.Href = "/" + SessionToCode + "/xxxxx.aspx"Line 240: a_plenumRiser.Href = "/" + SessionToCode + "/premise.aspx"Line 241: a_detectable.Href = "/" + SessionToCode + "/detectable.aspx"Line 242: a_maxwrap.Href = "/" + SessionToCode + "/MaxWrap.aspx"
Line 243: 'a_selfSupport.Href = "/" + SessionToCode + "/xxxxx.aspx"Line 244: a_partNumbers.Href = "/" + SessionToCode + "/partNumbers.aspx"Line 245: a_installAcc.Href = "/" + SessionToCode + "/installAcc.aspx"Line 246: a_termAcc.Href = "/" + SessionToCode + "/termAcc.aspx"
Line 247: a_dataCenterEdge.Href = "/" + SessionToCode + "/dataCenterEdge.aspx"Line 248:
Line 249: 'NAV - ABOUT
Line 250: 'a_aboutNav.Href = "/" + SessionToCode + "#"Line 251: a_about.Href = "/" + SessionToCode + "/about.aspx"Line 252: a_why.Href = "/" + SessionToCode + "/why.aspx"Line 253: a_applications.Href = "/" + SessionToCode + "/applications.aspx"Line 254: a_fits.Href = "/" + SessionToCode + "/fits.aspx"Line 255: a_who.Href = "/" + SessionToCode + "/who.aspx"Line 256: a_green.Href = "/" + SessionToCode + "/green.aspx"Line 257: 'a_NECA.Href = "/" + SessionToCode + "/xxxxx.aspx"Line 258:
Line 259: 'NAV - SUPPORT
Line 260: 'a_support.Href = "/" + SessionToCode + "/xxxxx.aspx"Line 261: a_literature.Href = "/" + SessionToCode + "/literature.aspx"Line 262: 'a_appGuide.Href = "/" + SessionToCode + "/xxxxx.aspx"Line 263: a_faq.Href = "/" + SessionToCode + "/faq.aspx"Line 264: a_fillRatio.Href = "/" + SessionToCode + "/fillRatio.aspx"Line 265: a_pullTest.Href = "/" + SessionToCode + "/pullTest.aspx"Line 266: a_installation.Href = "/" + SessionToCode + "/installation.aspx"Line 267: a_videos.Href = "/" + SessionToCode + "/videos.aspx"Line 268:
Line 269: 'NAV - CONTACT
Line 270: a_us.Href = "/" + SessionToCode + "/contact.aspx?geo=USA"Line 271: a_ca.Href = "/" + SessionToCode + "/contact.aspx?geo=Canada"Line 272: a_cala.Href = "/" + SessionToCode + "/contact.aspx?geo=CALA"Line 273: a_asia.Href = "/" + SessionToCode + "/emailUs.aspx?geo=Asia"Line 274: a_eu.Href = "/" + SessionToCode + "/contact.aspx?geo=EU"Line 275: a_me.Href = "/" + SessionToCode + "/contact.aspx?geo=ME"Line 276: a_af.Href = "/" + SessionToCode + "/contact.aspx?geo=Africa"Line 277:
Line 278: 'a_contact.Href = "/" + SessionToCode + "/xxxxx.aspx"Line 279: a_sampleRequest.Href = "/" + SessionToCode + "/emailUs.aspx?geo=Sample"Line 280: a_emailUs.Href = "/" + SessionToCode + "/emailUs.aspx"Line 281: Line 282: a_MaxSpace.Href = "/" + SessionToCode + "/MaxSpace.aspx"Line 283:
Line 284: 'FOOTER
Line 285: 'h5_contact.Href = "/" + SessionToCode + "/MaxSpace.aspx"
Line 286:
Line 287: hdn_lang.Value = ""
Line 288:
Line 289: End Sub
Line 290:
Line 291: Function translate(ByVal t As String) As String
Line 292:
Line 293: Select Case t
Line 294: Case "Home"
Line 295: Select Case Session("lang")
Line 296: Case "eng"
Line 297: Return t
Line 298: Case "fr"
Line 299: Return "Accueil"
Line 300: Case "spa"
Line 301: Return "Casa"
Line 302: Case "ptg"
Line 303: Return "Casa"
Line 304: Case "ita"
Line 305: Return "Casa"
Line 306: Case "ger"
Line 307: Return "Zuhause"
Line 308: End Select
Line 309: Case "Events"
Line 310: Select Case Session("lang")
Line 311: Case "eng"
Line 312: Return t
Line 313: Case "fr"
Line 314: Return "Événements"
Line 315: Case "spa"
Line 316: Return "Eventos"
Line 317: Case "ptg"
Line 318: Return "Eventos"
Line 319: Case "ita"
Line 320: Return "Eventi"
Line 321: Case "ger"
Line 322: Return "Veranstaltungen"
Line 323: End Select
Line 324: Case "E-News"
Line 325: Select Case Session("lang")
Line 326: Case "fr"
Line 327: Return "E-NOUVELLES"
Line 328: Case "spa"
Line 329: Return "NOTICIAS ELECTRÓNICAS"
Line 330: Case "ptg"
Line 331: Return "E NOTÍCIAS"
Line 332: Case "eng"
Line 333: Return t
Line 334: Case "ita"
Line 335: Return t
Line 336: Case "ger"
Line 337: Return t
Line 338: End Select
Line 339: Case "Products"
Line 340: Select Case Session("lang")
Line 341: Case "eng"
Line 342: Return t
Line 343: Case "fr"
Line 344: Return "Des Produits"
Line 345: Case "spa"
Line 346: Return "Productos"
Line 347: Case "ptg"
Line 348: Return "Produtos"
Line 349: Case "ita"
Line 350: Return "Prodotti"
Line 351: Case "ger"
Line 352: Return "Produkte"
Line 353: End Select
Line 354: Case "MaxCell Edge"
Line 355: Return t
Line 356: Case "MaxSpace"
Line 357: Return t
Line 358: Case "Standard MaxCell"
Line 359: Select Case Session("lang")
Line 360: Case "eng"
Line 361: Return t
Line 362: Case "fr"
Line 363: Return "MaxCell Standard"
Line 364: Case "spa"
Line 365: Return "Standard MaxCell"
Line 366: Case "ptg"
Line 367: Return "MaxCell Padrão"
Line 368: End Select
Line 369: Case "MaxCell ISP"
Line 370: Return "MaxCell Premise"
Line 371: Case "MaxCell Edge Detectable"
Line 372: Select Case Session("lang")
Line 373: Case "eng"
Line 374: Return t
Line 375: Case "fr"
Line 376: Return "MaxCell Détectable"
Line 377: Case "spa"
Line 378: Return "MaxCell Edge Detectable"
Line 379: Case "ptg"
Line 380: Return "MaxCell Detectável"
Line 381: Case "ita"
Line 382: Return t
Line 383: Case "ger"
Line 384: Return t
Line 385: End Select
Line 386: Case "Part Numbers"
Line 387: Select Case Session("lang")
Line 388: Case "eng"
Line 389: Return t
Line 390: Case "fr"
Line 391: Return "Les numéros de Pièce"
Line 392: Case "spa"
Line 393: Return "Números de Pieza"
Line 394: Case "ptg"
Line 395: Return "Números de Peça"
Line 396: Case "ita"
Line 397: Return "Numeri del pezzo"
Line 398: Case "ger"
Line 399: Return "Teilnummern"
Line 400: End Select
Line 401: Case "Installation Accessories"
Line 402: Select Case Session("lang")
Line 403: Case "eng"
Line 404: Return t
Line 405: Case "fr"
Line 406: Return "Accessoires d'installation"
Line 407: Case "spa"
Line 408: Return "Accesorios de instalación"
Line 409: Case "ptg"
Line 410: Return "Acessórios de instalação"
Line 411: Case "ita"
Line 412: Return "Accessori per l'installazione"
Line 413: Case "ger"
Line 414: Return "Einbauzubehör"
Line 415: End Select
Line 416: Case "Termination Accessories"
Line 417: Select Case Session("lang")
Line 418: Case "eng"
Line 419: Return t
Line 420: Case "fr"
Line 421: Return "Accessoires de Terminaison"
Line 422: Case "spa"
Line 423: Return "Accesorios de Terminación"
Line 424: Case "ptg"
Line 425: Return "Acessórios de Terminação"
Line 426: Case "ita"
Line 427: Return "Terminazione Accessori"
Line 428: Case "ger"
Line 429: Return "Termination Zubehör"
Line 430: End Select
Line 431: Case "Reel Sizes"
Line 432: Select Case Session("lang")
Line 433: Case "eng"
Line 434: Return t
Line 435: Case "fr"
Line 436: Return "Reel Tailles"
Line 437: Case "spa"
Line 438: Return "Tamaños de Carrete"
Line 439: Case "ptg"
Line 440: Return "Tamanhos Reel"
Line 441: Case "ita"
Line 442: Return "Reel Taglie"
Line 443: Case "ger"
Line 444: Return "Reel Größen"
Line 445: End Select
Line 446: Case "About"
Line 447: Select Case Session("lang")
Line 448: Case "eng"
Line 449: Return t
Line 450: Case "fr"
Line 451: Return "Sur"
Line 452: Case "spa"
Line 453: Return "Acerca De"
Line 454: Case "ptg"
Line 455: Return "Sobre"
Line 456: Case "ita"
Line 457: Return "Di"
Line 458: Case "ger"
Line 459: Return "Uber"
Line 460: End Select
Line 461: Case "About MaxCell"
Line 462: Select Case Session("lang")
Line 463: Case "eng"
Line 464: Return t
Line 465: Case "fr"
Line 466: Return "À Propos de MaxCell"
Line 467: Case "spa"
Line 468: Return "Sobre MaxCell"
Line 469: Case "ptg"
Line 470: Return "Sobre MaxCell"
Line 471: Case "ita"
Line 472: Return "A Proposito di Maxcell"
Line 473: Case "ger"
Line 474: Return "Über MaxCell"
Line 475: End Select
Line 476: Case "Why MaxCell"
Line 477: Select Case Session("lang")
Line 478: Case "eng"
Line 479: Return t
Line 480: Case "fr"
Line 481: Return "Pourquoi MaxCell"
Line 482: Case "spa"
Line 483: Return "¿Por MaxCell"
Line 484: Case "ptg"
Line 485: Return "Por MaxCell"
Line 486: Case "ita"
Line 487: Return "Perché Maxcell"
Line 488: Case "ger"
Line 489: Return "Warum MaxCell"
Line 490: End Select
Line 491: Case "Applications"
Line 492: Select Case Session("lang")
Line 493: Case "eng"
Line 494: Return t
Line 495: Case "fr"
Line 496: Return "Applications"
Line 497: Case "spa"
Line 498: Return "Aplicaciones"
Line 499: Case "ptg"
Line 500: Return "Aplicações"
Line 501: Case "ita"
Line 502: Return "Applicazioni"
Line 503: Case "ger"
Line 504: Return "Anwendungen"
Line 505: End Select
Line 506: Case "MaxCell Fits"
Line 507: Select Case Session("lang")
Line 508: Case "eng"
Line 509: Return t
Line 510: Case "fr"
Line 511: Return "MaxCell Convient"
Line 512: Case "spa"
Line 513: Return "MaxCell se Adecúa"
Line 514: Case "ptg"
Line 515: Return "MaxCell Encaixa"
Line 516: Case "ita"
Line 517: Return "Fit Maxcell"
Line 518: Case "ger"
Line 519: Return "MaxCell Fits"
Line 520: End Select
Line 521: Case "Who's Using"
Line 522: Select Case Session("lang")
Line 523: Case "eng"
Line 524: Return t
Line 525: Case "fr"
Line 526: Return "Qui Utilise"
Line 527: Case "spa"
Line 528: Return "Quién lo Utiliza"
Line 529: Case "ptg"
Line 530: Return "Quem Está Usando"
Line 531: Case "ita"
Line 532: Return "Chi è Utilizzando"
Line 533: Case "ger"
Line 534: Return "Wer benutzt"
Line 535: End Select
Line 536: Case "Green Initiative"
Line 537: Select Case Session("lang")
Line 538: Case "eng"
Line 539: Return t + " <i class='fa fa-leaf text-success'></i>"
Line 540: Case "fr"
Line 541: Return "Initiative Verte" + " <i class='fa fa-leaf text-success'></i>"
Line 542: Case "spa"
Line 543: Return "Iniciativa Verde" + " <i class='fa fa-leaf text-success'></i>"
Line 544: Case "ptg"
Line 545: Return "Iniciativa Verde" + " <i class='fa fa-leaf text-success'></i>"
Line 546: Case "ita"
Line 547: Return "Iniziativa Verde" + " <i class='fa fa-leaf text-success'></i>"
Line 548: Case "ger"
Line 549: Return "Grüne Initiative" + " <i class='fa fa-leaf text-success'></i>"
Line 550: End Select
Line 551: Case "NECA Findings"
Line 552: Select Case Session("lang")
Line 553: Case "eng"
Line 554: Return t
Line 555: Case "fr"
Line 556: Return "Conclusions de la NECA"
Line 557: Case "spa"
Line 558: Return "Resultados de la NECA"
Line 559: Case "ptg"
Line 560: Return "Resultados da NECA"
Line 561: End Select
Line 562: Case "Support"
Line 563: Select Case Session("lang")
Line 564: Case "eng"
Line 565: Return t
Line 566: Case "fr"
Line 567: Return "Support"
Line 568: Case "spa"
Line 569: Return "Soporte"
Line 570: Case "ptg"
Line 571: Return "Suporte"
Line 572: Case "ita"
Line 573: Return "SUPPORTO"
Line 574: Case "ger"
Line 575: Return "UNTERSTÜTZUNG"
Line 576: End Select
Line 577: Case "Literature"
Line 578: Select Case Session("lang")
Line 579: Case "eng"
Line 580: Return t
Line 581: Case "fr"
Line 582: Return "Littérature"
Line 583: Case "spa"
Line 584: Return "Literatura"
Line 585: Case "ptg"
Line 586: Return "Literatura"
Line 587: Case "ita"
Line 588: Return "Letteratura"
Line 589: Case "ger"
Line 590: Return "Literatur"
Line 591: End Select
Line 592: Case "MaxCell Edge Detectable 4 Inch"
Line 593: Select Case Session("lang")
Line 594: Case "eng"
Line 595: Return t
Line 596: Case "fr"
Line 597: Return "MaxCell bord 4 pouces Détectables"
Line 598: Case "spa"
Line 599: Return "MaxCell Detectable borde de 4 pulgadas"
Line 600: Case "ptg"
Line 601: Return "MaxCell Borda detectável 4 polegadas"
Line 602: Case "ita"
Line 603: Return "Maxcell bordo rilevabile da 4 pollici"
Line 604: Case "ger"
Line 605: Return "MaxCell Rand Nachweisbare 4 Inch"
Line 606: End Select
Line 607:
Line 608: Case "MaxBag Installation Instructions"
Line 609: Select Case Session("lang")
Line 610: Case "eng"
Line 611: Return t
Line 612: Case "fr"
Line 613: Return "MaxBag Instructions d'installation"
Line 614: Case "spa"
Line 615: Return "Instrucciones de instalación MaxBag"
Line 616: Case "ptg"
Line 617: Return "Instruções de instalação MaxBag"
Line 618: Case "ita"
Line 619: Return "MaxBag Istruzioni per l'installazione"
Line 620: Case "ger"
Line 621: Return "MaxBag Montageanleitung"
Line 622: End Select
Line 623: Case "MaxCell Brochure"
Line 624: Select Case Session("lang")
Line 625: Case "eng"
Line 626: Return t
Line 627: Case "fr"
Line 628: Return "MaxCell Brochure"
Line 629: Case "spa"
Line 630: Return "MaxCell Folleto"
Line 631: Case "ptg"
Line 632: Return "MaxCell Brochura"
Line 633: Case "ita"
Line 634: Return "Maxcell Brochure"
Line 635: Case "ger"
Line 636: Return "MaxCell Broschüre"
Line 637: End Select
Line 638: Case "MaxCell Design Parameters"
Line 639: Select Case Session("lang")
Line 640: Case "eng"
Line 641: Return t
Line 642: Case "fr"
Line 643: Return "MaxCell Paramètres de conception"
Line 644: Case "spa"
Line 645: Return "Parámetros de diseño MaxCell"
Line 646: Case "ptg"
Line 647: Return "MaxCell Projeto Parâmetros"
Line 648: Case "ita"
Line 649: Return "Maxcell design Parametri"
Line 650: Case "ger"
Line 651: Return "MaxCell Designparameter"
Line 652: End Select
Line 653: Case "MaxCell Edge 1 Inch"
Line 654: Select Case Session("lang")
Line 655: Case "eng"
Line 656: Return t
Line 657: Case "fr"
Line 658: Return "MaxCell bord 1 pouce"
Line 659: Case "spa"
Line 660: Return "MaxCell Edge 1 pulgada"
Line 661: Case "ptg"
Line 662: Return "MaxCell Borda 1 Inch"
Line 663: Case "ita"
Line 664: Return "Maxcell Bordo 1 pollice"
Line 665: Case "ger"
Line 666: Return "MaxCell Rand 1 Zoll"
Line 667: End Select
Line 668: Case "MaxCell Edge 1.10 Inch"
Line 669: Select Case Session("lang")
Line 670: Case "eng"
Line 671: Return t
Line 672: Case "fr"
Line 673: Return "MaxCell bord 1.10 pouce"
Line 674: Case "spa"
Line 675: Return "MaxCell Edge 1.10 pulgada"
Line 676: Case "ptg"
Line 677: Return "MaxCell Borda 1.10 Inch"
Line 678: Case "ita"
Line 679: Return "Maxcell Bordo 1.10 pollice"
Line 680: Case "ger"
Line 681: Return "MaxCell Rand 1.10 Zoll"
Line 682: End Select
Line 683: Case "MaxCell Edge 1.25 Inch"
Line 684: Select Case Session("lang")
Line 685: Case "eng"
Line 686: Return t
Line 687: Case "fr"
Line 688: Return "MaxCell bord 1.25 pouce"
Line 689: Case "spa"
Line 690: Return "MaxCell Edge 1.25 pulgada"
Line 691: Case "ptg"
Line 692: Return "MaxCell Borda 1.25 Inch"
Line 693: Case "ita"
Line 694: Return "Maxcell Bordo 1.25 pollice"
Line 695: Case "ger"
Line 696: Return "MaxCell Rand 1.25 Zoll"
Line 697: End Select
Line 698: Case "MaxCell Edge 1.5 Inch"
Line 699: Select Case Session("lang")
Line 700: Case "eng"
Line 701: Return t
Line 702: Case "fr"
Line 703: Return "MaxCell bord 1.5 pouce"
Line 704: Case "spa"
Line 705: Return "MaxCell Edge 1.5 pulgada"
Line 706: Case "ptg"
Line 707: Return "MaxCell Borda 1.5 Inch"
Line 708: Case "ita"
Line 709: Return "Maxcell Bordo 1.5 pollice"
Line 710: Case "ger"
Line 711: Return "MaxCell Rand 1.5 Zoll"
Line 712: End Select
Line 713: Case "MaxCell Edge 1.75 Inch"
Line 714: Select Case Session("lang")
Line 715: Case "eng"
Line 716: Return t
Line 717: Case "fr"
Line 718: Return "MaxCell bord 1.75 pouce"
Line 719: Case "spa"
Line 720: Return "MaxCell Edge 1.75 pulgada"
Line 721: Case "ptg"
Line 722: Return "MaxCell Borda 1.75 Inch"
Line 723: Case "ita"
Line 724: Return "Maxcell Bordo 1.75 pollice"
Line 725: Case "ger"
Line 726: Return "MaxCell Rand 1.75 Zoll"
Line 727: End Select
Line 728: Case "MaxCell Edge 2 Inch"
Line 729: Select Case Session("lang")
Line 730: Case "eng"
Line 731: Return t
Line 732: Case "fr"
Line 733: Return "MaxCell bord 2 pouces"
Line 734: Case "spa"
Line 735: Return "MaxCell Edge 2 pulgadas"
Line 736: Case "ptg"
Line 737: Return "MaxCell Borda 2 Inch"
Line 738: Case "ita"
Line 739: Return "Maxcell Bordo 2 pollici"
Line 740: Case "ger"
Line 741: Return "MaxCell Rand 2 Zoll"
Line 742: End Select
Line 743: Case "MaxCell Edge 3 Inch"
Line 744: Select Case Session("lang")
Line 745: Case "eng"
Line 746: Return t
Line 747: Case "fr"
Line 748: Return "MaxCell bord 3 pouces"
Line 749: Case "spa"
Line 750: Return "MaxCell Edge 3 pulgadas"
Line 751: Case "ptg"
Line 752: Return "MaxCell Borda 3 Inch"
Line 753: Case "ita"
Line 754: Return "Maxcell bordo 3 pollici"
Line 755: Case "ger"
Line 756: Return "MaxCell Edge-3 Inch"
Line 757: End Select
Line 758: Case "MaxCell Edge 4 Inch"
Line 759: Select Case Session("lang")
Line 760: Case "eng"
Line 761: Return t
Line 762: Case "fr"
Line 763: Return "MaxCell bord 4 pouces"
Line 764: Case "spa"
Line 765: Return "MaxCell borde de 4 pulgadas"
Line 766: Case "ptg"
Line 767: Return "MaxCell Borda 4 polegadas"
Line 768: Case "ita"
Line 769: Return "Maxcell bordo da 4 pollici"
Line 770: Case "ger"
Line 771: Return "MaxCell Edge-4 Inch"
Line 772: End Select
Line 773: Case "MaxCell Edge Detectable 1 Inch"
Line 774: Select Case Session("lang")
Line 775: Case "eng"
Line 776: Return t
Line 777: Case "fr"
Line 778: Return "MaxCell bord 1 pouce Détectables"
Line 779: Case "spa"
Line 780: Return "MaxCell Detectable Edge 1 pulgada"
Line 781: Case "ptg"
Line 782: Return "MaxCell Borda detectável 1 Inch"
Line 783: Case "ita"
Line 784: Return "Maxcell Bordo rilevabile 1 pollice"
Line 785: Case "ger"
Line 786: Return "MaxCell Rand Nachweisbare 1 Inch"
Line 787: End Select
Line 788: Case "MaxCell Edge Detectable 1.25 Inch"
Line 789: Select Case Session("lang")
Line 790: Case "eng"
Line 791: Return t
Line 792: Case "fr"
Line 793: Return "MaxCell bord 1.25 pouce Détectables"
Line 794: Case "spa"
Line 795: Return "MaxCell Detectable Edge 1.25 pulgada"
Line 796: Case "ptg"
Line 797: Return "MaxCell Borda detectável 1.25 Inch"
Line 798: Case "ita"
Line 799: Return "Maxcell Bordo rilevabile 1.25 pollice"
Line 800: Case "ger"
Line 801: Return "MaxCell Rand Nachweisbare 1.25 Inch"
Line 802: End Select
Line 803: Case "MaxCell Edge Detectable 1.75 Inch"
Line 804: Select Case Session("lang")
Line 805: Case "eng"
Line 806: Return t
Line 807: Case "fr"
Line 808: Return "MaxCell bord 1.75 pouce Détectables"
Line 809: Case "spa"
Line 810: Return "MaxCell Detectable Edge 1.75 pulgada"
Line 811: Case "ptg"
Line 812: Return "MaxCell Borda detectável 1.75 Inch"
Line 813: Case "ita"
Line 814: Return "Maxcell Bordo rilevabile 1.75 pollice"
Line 815: Case "ger"
Line 816: Return "MaxCell Rand Nachweisbare 1.75 Inch"
Line 817: End Select
Line 818: Case "MaxCell Edge Detectable 2 Inch"
Line 819: Select Case Session("lang")
Line 820: Case "eng"
Line 821: Return t
Line 822: Case "fr"
Line 823: Return "MaxCell bord 2 pouces Détectables"
Line 824: Case "spa"
Line 825: Return "MaxCell Detectable Edge 2 pulgadas"
Line 826: Case "ptg"
Line 827: Return "MaxCell Borda detectável 2 Inch"
Line 828: Case "ita"
Line 829: Return "Maxcell bordo rilevabile 2 pollici"
Line 830: Case "ger"
Line 831: Return "MaxCell Rand Nachweisbare 2 Inch"
Line 832: End Select
Line 833: Case "MaxCell Edge Detectable 3 Inch"
Line 834: Select Case Session("lang")
Line 835: Case "eng"
Line 836: Return t
Line 837: Case "fr"
Line 838: Return "MaxCell bord 3 pouces Détectables"
Line 839: Case "spa"
Line 840: Return "MaxCell Detectable Edge 3 pulgadas"
Line 841: Case "ptg"
Line 842: Return "MaxCell Borda detectável 3 Inch"
Line 843: Case "ita"
Line 844: Return "Maxcell Bordo rilevabile da 3 pollici"
Line 845: Case "ger"
Line 846: Return "MaxCell Rand Nachweisbare 3 Inch"
Line 847: End Select
Line 848: Case "MaxCell Installation Swivels"
Line 849: Select Case Session("lang")
Line 850: Case "eng"
Line 851: Return t
Line 852: Case "fr"
Line 853: Return "Installation MaxCell émerillons"
Line 854: Case "spa"
Line 855: Return "Giratorios instalación MaxCell"
Line 856: Case "ptg"
Line 857: Return "Swivels instalação MaxCell"
Line 858: Case "ita"
Line 859: Return "Maxcell girevoli per l'installazione"
Line 860: Case "ger"
Line 861: Return "MaxCell Installations Wirbels"
Line 862: End Select
Line 863: Case "MaxCell MSDS"
Line 864: Select Case Session("lang")
Line 865: Case "eng"
Line 866: Return t
Line 867: Case "fr"
Line 868: Return "MaxCell FDS"
Line 869: Case "spa"
Line 870: Return "MaxCell MSDS"
Line 871: Case "ptg"
Line 872: Return "MaxCell MSDS"
Line 873: Case "ita"
Line 874: Return "Maxcell SDS"
Line 875: Case "ger"
Line 876: Return "MaxCell MSDS"
Line 877: End Select
Line 878: Case "MaxCell Overview Brochure"
Line 879: Select Case Session("lang")
Line 880: Case "eng"
Line 881: Return t
Line 882: Case "fr"
Line 883: Return "MaxCell Brochure de présentation"
Line 884: Case "spa"
Line 885: Return "MaxCell general Folleto"
Line 886: Case "ptg"
Line 887: Return "MaxCell Overview Brochure"
Line 888: Case "ita"
Line 889: Return "Maxcell Panoramica Brochure"
Line 890: Case "ger"
Line 891: Return "MaxCell Übersicht Broschüre"
Line 892: End Select
Line 893: Case "MaxCell Reel Sizes"
Line 894: Select Case Session("lang")
Line 895: Case "eng"
Line 896: Return t
Line 897: Case "fr"
Line 898: Return "MaxCell Tailles Reel"
Line 899: Case "spa"
Line 900: Return "MaxCell carrete Tamaños"
Line 901: Case "ptg"
Line 902: Return "MaxCell Tamanhos Reel"
Line 903: Case "ita"
Line 904: Return "Maxcell Reel Taglie"
Line 905: Case "ger"
Line 906: Return "MaxCell Reel Größen"
Line 907: End Select
Line 908: Case "MaxCell Rodder Head"
Line 909: Select Case Session("lang")
Line 910: Case "eng"
Line 911: Return t
Line 912: Case "fr"
Line 913: Return "MaxCell Rodder Head"
Line 914: Case "spa"
Line 915: Return "MaxCell Rodder Cabeza"
Line 916: Case "ptg"
Line 917: Return "MaxCell Rodder cabeça"
Line 918: Case "ita"
Line 919: Return "Maxcell Rodder Capo"
Line 920: Case "ger"
Line 921: Return "MaxCell Rodder Kopf"
Line 922: End Select
Line 923: Case "MaxSpace® Brochure"
Line 924: Select Case Session("lang")
Line 925: Case "eng"
Line 926: Return t
Line 927: Case "fr"
Line 928: Return "MaxSpace® Brochure"
Line 929: Case "spa"
Line 930: Return "MaxSpace® Folleto"
Line 931: Case "ptg"
Line 932: Return "MaxSpace® Brochura"
Line 933: Case "ita"
Line 934: Return "MaxSpace® Brochure"
Line 935: Case "ger"
Line 936: Return "MaxSpace® Broschüre"
Line 937: End Select
Line 938: Case "Plenum Specification"
Line 939: Select Case Session("lang")
Line 940: Case "eng"
Line 941: Return t
Line 942: Case "fr"
Line 943: Return "Plénum Spécification"
Line 944: Case "spa"
Line 945: Return "Pleno Especificación"
Line 946: Case "ptg"
Line 947: Return "Plenum Especificação"
Line 948: Case "ita"
Line 949: Return "Plenum Specifiche"
Line 950: Case "ger"
Line 951: Return "plenum Spezifikation"
Line 952: End Select
Line 953: Case "Re-Spool Instructions"
Line 954: Select Case Session("lang")
Line 955: Case "eng"
Line 956: Return t
Line 957: Case "fr"
Line 958: Return "Re-Spool Instructions"
Line 959: Case "spa"
Line 960: Return "Instrucciones de carrete Re"
Line 961: Case "ptg"
Line 962: Return "Re-spool Instruções"
Line 963: Case "ita"
Line 964: Return "Re-Spool Istruzioni"
Line 965: Case "ger"
Line 966: Return "Re-Spool Anleitung"
Line 967: End Select
Line 968: Case "Self-Supporting MaxCell"
Line 969: Select Case Session("lang")
Line 970: Case "eng"
Line 971: Return t
Line 972: Case "fr"
Line 973: Return "Autoportants MaxCell"
Line 974: Case "spa"
Line 975: Return "Autoportante MaxCell"
Line 976: Case "ptg"
Line 977: Return "Auto-sustentável MaxCell"
Line 978: Case "ita"
Line 979: Return "Self-Supporting Maxcell"
Line 980: Case "ger"
Line 981: Return "Selbsttragendes MaxCell"
Line 982: End Select
Line 983: Case "Application Guide"
Line 984: Select Case Session("lang")
Line 985: Case "eng"
Line 986: Return t
Line 987: Case "fr"
Line 988: Return "Guide d'Application"
Line 989: Case "spa"
Line 990: Return "Guía de Uso"
Line 991: Case "ptg"
Line 992: Return "Guia de Aplicação"
Line 993: End Select
Line 994: Case "FAQ"
Line 995: Select Case Session("lang")
Line 996: Case "eng"
Line 997: Return t
Line 998: Case "fr"
Line 999: Return "Questions - Réponses"
Line 1000: Case "spa"
Line 1001: Return "Preguntas Más Frecuentes"
Line 1002: Case "ptg"
Line 1003: Return "Perguntas Frequentes"
Line 1004: Case "ita"
Line 1005: Return "FAQ"
Line 1006: Case "ger"
Line 1007: Return "FAQ"
Line 1008: End Select
Line 1009: Case "Fill Ratio"
Line 1010: Select Case Session("lang")
Line 1011: Case "eng"
Line 1012: Return t
Line 1013: Case "fr"
Line 1014: Return "Remplir Ratio"
Line 1015: Case "spa"
Line 1016: Return "Índice de Llenado"
Line 1017: Case "ptg"
Line 1018: Return "Índice de Enchimento"
Line 1019: Case "ita"
Line 1020: Return "Riempire Rapporto"
Line 1021: Case "ger"
Line 1022: Return "Füllgrad"
Line 1023: End Select
Line 1024: Case "Pull Test Information"
Line 1025: Select Case Session("lang")
Line 1026: Case "eng"
Line 1027: Return t
Line 1028: Case "fr"
Line 1029: Return "Information Sur le Test de Tir"
Line 1030: Case "spa"
Line 1031: Return "Información Sobre la Prueba de Tirado"
Line 1032: Case "ptg"
Line 1033: Return "Informação Sobre o Teste de Tração"
Line 1034: Case "ita"
Line 1035: Return "Pull Informazioni Test"
Line 1036: Case "ger"
Line 1037: Return "Ziehen Testinformationen"
Line 1038: End Select
Line 1039: Case "Installation Instructions"
Line 1040: Select Case Session("lang")
Line 1041: Case "eng"
Line 1042: Return t
Line 1043: Case "fr"
Line 1044: Return "Instructions d'Installation"
Line 1045: Case "spa"
Line 1046: Return "Instrucciones de Instalación"
Line 1047: Case "ptg"
Line 1048: Return "Instruções de Instalação"
Line 1049: Case "ita"
Line 1050: Return "Istruzioni per l'installazione"
Line 1051: Case "ger"
Line 1052: Return "Installationsanleitung"
Line 1053: End Select
Line 1054: Case "Videos"
Line 1055: Select Case Session("lang")
Line 1056: Case "eng"
Line 1057: Return t
Line 1058: Case "fr"
Line 1059: Return "Vidéos"
Line 1060: Case "spa"
Line 1061: Return "Videos"
Line 1062: Case "ptg"
Line 1063: Return "Vídeos"
Line 1064: Case "ita"
Line 1065: Return "Video"
Line 1066: Case "ger"
Line 1067: Return "Videos"
Line 1068: End Select
Line 1069: Case "Contact Us"
Line 1070: Select Case Session("lang")
Line 1071: Case "eng"
Line 1072: Return t
Line 1073: Case "fr"
Line 1074: Return "Contactez Nous"
Line 1075: Case "spa"
Line 1076: Return "Contáctenos"
Line 1077: Case "ptg"
Line 1078: Return "Fale Conosco"
Line 1079: Case "ita"
Line 1080: Return "Contattaci"
Line 1081: Case "ger"
Line 1082: Return "Kontaktiere Uns"
Line 1083: End Select
Line 1084:
Line 1085: Case "Contact Us"
Line 1086: Select Case Session("lang")
Line 1087: Case "eng"
Line 1088: Return t
Line 1089: Case "fr"
Line 1090: Return "Contactez Nous"
Line 1091: Case "spa"
Line 1092: Return "Contáctenos"
Line 1093: Case "ptg"
Line 1094: Return "Fale Conosco"
Line 1095: Case "ita"
Line 1096: Return "Contattaci"
Line 1097: Case "ger"
Line 1098: Return "Kontaktiere Uns"
Line 1099: End Select
Line 1100: Case "USA"
Line 1101: Select Case Session("lang")
Line 1102: Case "eng"
Line 1103: Return t
Line 1104: Case "fr"
Line 1105: Return "Etats-Unis"
Line 1106: Case "spa"
Line 1107: Return "Estados Unidos"
Line 1108: Case "ptg"
Line 1109: Return "EUA"
Line 1110: Case "ita"
Line 1111: Return "Stati Uniti d'America"
Line 1112: Case "ger"
Line 1113: Return "Vereinigte Staaten von Amerika"
Line 1114: End Select
Line 1115: Case "Canada"
Line 1116: Select Case Session("lang")
Line 1117: Case "eng"
Line 1118: Return t
Line 1119: Case "fr"
Line 1120: Return "Canada"
Line 1121: Case "spa"
Line 1122: Return "Canadá"
Line 1123: Case "ptg"
Line 1124: Return "Canadá"
Line 1125: Case "ita"
Line 1126: Return "Canada"
Line 1127: Case "ger"
Line 1128: Return "Kanada"
Line 1129: End Select
Line 1130: Case "Caribbean & Latin America"
Line 1131: Select Case Session("lang")
Line 1132: Case "eng"
Line 1133: Return t
Line 1134: Case "fr"
Line 1135: Return "Carribean et Amérique latine"
Line 1136: Case "spa"
Line 1137: Return "Caribe y América Latina"
Line 1138: Case "ptg"
Line 1139: Return "Caribe e América Latina"
Line 1140: Case "ita"
Line 1141: Return "Caraibi e America Latina"
Line 1142: Case "ger"
Line 1143: Return "Karibik & Lateinamerika"
Line 1144: End Select
Line 1145: Case "Africa"
Line 1146: Select Case Session("lang")
Line 1147: Case "eng"
Line 1148: Return t
Line 1149: Case "fr"
Line 1150: Return "Afrique"
Line 1151: Case "spa"
Line 1152: Return "África"
Line 1153: Case "ptg"
Line 1154: Return "África"
Line 1155: Case "ita"
Line 1156: Return "Africa"
Line 1157: Case "ger"
Line 1158: Return "Afrika"
Line 1159: End Select
Line 1160: Case "Asia"
Line 1161: Select Case Session("lang")
Line 1162: Case "eng"
Line 1163: Return t
Line 1164: Case "fr"
Line 1165: Return "Asie"
Line 1166: Case "spa"
Line 1167: Return "Asia"
Line 1168: Case "ptg"
Line 1169: Return "Ásia"
Line 1170: Case "ita"
Line 1171: Return "Asia"
Line 1172: Case "ger"
Line 1173: Return "Asien"
Line 1174: End Select
Line 1175: Case "Europe"
Line 1176: Select Case Session("lang")
Line 1177: Case "eng"
Line 1178: Return t
Line 1179: Case "fr"
Line 1180: Return "L'Europe"
Line 1181: Case "spa"
Line 1182: Return "Europa"
Line 1183: Case "ptg"
Line 1184: Return "Europa"
Line 1185: Case "ita"
Line 1186: Return "Europa"
Line 1187: Case "ger"
Line 1188: Return "Europa"
Line 1189: End Select
Line 1190: Case "Near/Middle East"
Line 1191: Select Case Session("lang")
Line 1192: Case "eng"
Line 1193: Return t
Line 1194: Case "fr"
Line 1195: Return "Proche / Moyen-Orient"
Line 1196: Case "spa"
Line 1197: Return "Cerca / Oriente Medio"
Line 1198: Case "ptg"
Line 1199: Return "Próximo / Médio Oriente"
Line 1200: Case "ita"
Line 1201: Return "Vicino / Medio Oriente"
Line 1202: Case "ger"
Line 1203: Return "Naher / Mittlerer Osten"
Line 1204: End Select
Line 1205:
Line 1206: Case "Request a Sample"
Line 1207: Select Case Session("lang")
Line 1208: Case "eng"
Line 1209: Return t
Line 1210: Case "fr"
Line 1211: Return "Demander un Echantillon"
Line 1212: Case "spa"
Line 1213: Return "Solicitar una Muestra"
Line 1214: Case "ptg"
Line 1215: Return "Solicitar uma Amostra"
Line 1216: Case "ita"
Line 1217: Return "Richiedere un campione"
Line 1218: Case "ger"
Line 1219: Return "Muster anfordern"
Line 1220: End Select
Line 1221: Case "Email Us"
Line 1222: Select Case Session("lang")
Line 1223: Case "eng"
Line 1224: Return t
Line 1225: Case "fr"
Line 1226: Return "Envoyez-Nous un Courriel"
Line 1227: Case "spa"
Line 1228: Return "Envíenos Correo Electrónico"
Line 1229: Case "ptg"
Line 1230: Return "Envie-Nos um Email"
Line 1231: Case "ita"
Line 1232: Return "Mandaci una email"
Line 1233: Case "ger"
Line 1234: Return "Schreiben Sie uns eine E-Mail"
Line 1235: End Select
Line 1236: Case "Curb To Building"
Line 1237: Select Case Session("lang")
Line 1238: Case "eng"
Line 1239: Return t
Line 1240: Case "fr"
Line 1241: Return "Pour Curb bâtiment"
Line 1242: Case "spa"
Line 1243: Return "Para frenar la construcción"
Line 1244: Case "ptg"
Line 1245: Return "Curb Para Construção"
Line 1246: Case "ita"
Line 1247: Return "Marciapiede per costruzione"
Line 1248: Case "ger"
Line 1249: Return "Curb zum Aufbau von"
Line 1250: End Select
Line 1251: Case "Existing Construction"
Line 1252: Select Case Session("lang")
Line 1253: Case "eng"
Line 1254: Return t
Line 1255: Case "fr"
Line 1256: Return "Construction Existante"
Line 1257: Case "spa"
Line 1258: Return "Construcción Existente"
Line 1259: Case "ptg"
Line 1260: Return "Construção Existente"
Line 1261: Case "ita"
Line 1262: Return "Esistenti Edilizia"
Line 1263: Case "ger"
Line 1264: Return "Bestehende Baumaschinen"
Line 1265: End Select
Line 1266: Case "New Construction"
Line 1267: Select Case Session("lang")
Line 1268: Case "eng"
Line 1269: Return t
Line 1270: Case "fr"
Line 1271: Return "Nouvelle Construction"
Line 1272: Case "spa"
Line 1273: Return "Nueva Construcción"
Line 1274: Case "ptg"
Line 1275: Return "Nova Construção"
Line 1276: Case "ita"
Line 1277: Return "Nuova Costruzione"
Line 1278: Case "ger"
Line 1279: Return "Neubau"
Line 1280: End Select
Line 1281: Case "Occupied Conduit"
Line 1282: Select Case Session("lang")
Line 1283: Case "eng"
Line 1284: Return t
Line 1285: Case "fr"
Line 1286: Return "Conduit Occupé"
Line 1287: Case "spa"
Line 1288: Return "Conducto Ocupada"
Line 1289: Case "ptg"
Line 1290: Return "Conduit Ocupada"
Line 1291: Case "ita"
Line 1292: Return "Conduit Occupato"
Line 1293: Case "ger"
Line 1294: Return "Belegt Conduit"
Line 1295: End Select
Line 1296: Case "Videos with Spanish Subtitles"
Line 1297: Select Case Session("lang")
Line 1298: Case "eng"
Line 1299: Return t
Line 1300: Case "fr"
Line 1301: Return "Vidéos Avec Sous-titres Espagnols"
Line 1302: Case "spa"
Line 1303: Return "Videos con Subtítulos en Español"
Line 1304: Case "ptg"
Line 1305: Return "Vídeos com Legendas em Espanhol"
Line 1306: Case "ita"
Line 1307: Return "Video con Sottotitoli in Spagnolo"
Line 1308: Case "ger"
Line 1309: Return "Videos mit Spanischen Untertiteln"
Line 1310: End Select
Line 1311: Case "Cellular Backhaul"
Line 1312: Select Case Session("lang")
Line 1313: Case "eng"
Line 1314: Return t
Line 1315: Case "fr"
Line 1316: Return "Reseaux Cellulaires"
Line 1317: Case "spa"
Line 1318: Return "Red de Retorno Celular"
Line 1319: Case "ptg"
Line 1320: Return "Backhaul de Ligações Sem Fios"
Line 1321: End Select
Line 1322: Case "View More"
Line 1323: Select Case Session("lang")
Line 1324: Case "eng"
Line 1325: Return t
Line 1326: Case "fr"
Line 1327: Return "Afficher Plus"
Line 1328: Case "spa"
Line 1329: Return "Ver Más"
Line 1330: Case "ptg"
Line 1331: Return "Veja Mais"
Line 1332: Case "ita"
Line 1333: Return "Vedere Altre"
Line 1334: Case "ger"
Line 1335: Return "Mehr Sehen"
Line 1336: End Select
Line 1337: Case "Read More"
Line 1338: Select Case Session("lang")
Line 1339: Case "eng"
Line 1340: Return t
Line 1341: Case "fr"
Line 1342: Return "Lire la suite"
Line 1343: Case "spa"
Line 1344: Return "Lee Mas"
Line 1345: Case "ptg"
Line 1346: Return "Consulte Mais Informação"
Line 1347: Case "ita"
Line 1348: Return "Leggi di più"
Line 1349: Case "ger"
Line 1350: Return "Weiterlesen"
Line 1351: End Select
Line 1352: Case "Yes"
Line 1353: Select Case Session("lang")
Line 1354: Case "eng"
Line 1355: Return t
Line 1356: Case "fr"
Line 1357: Return "Oui"
Line 1358: Case "spa"
Line 1359: Return "Si"
Line 1360: Case "ptg"
Line 1361: Return "Sim"
Line 1362: Case "ita"
Line 1363: Return "Si"
Line 1364: Case "ger"
Line 1365: Return "Ja"
Line 1366: End Select
Line 1367: Case "No"
Line 1368: Select Case Session("lang")
Line 1369: Case "eng"
Line 1370: Return t
Line 1371: Case "fr"
Line 1372: Return "Non"
Line 1373: Case "spa"
Line 1374: Return "No"
Line 1375: Case "ptg"
Line 1376: Return "Não"
Line 1377: Case "ita"
Line 1378: Return "No"
Line 1379: Case "ger"
Line 1380: Return "Nein"
Line 1381: End Select
Line 1382: Case " Offices & Stocking Locations"
Line 1383: Select Case Session("lang")
Line 1384: Case "eng"
Line 1385: Return t
Line 1386: Case "fr"
Line 1387: Return "Bureaux et sites de stockage"
Line 1388: Case "spa"
Line 1389: Return "Oficinas y lugares de almacenamiento"
Line 1390: Case "ptg"
Line 1391: Return "Escritórios e lotação locais"
Line 1392: Case "ita"
Line 1393: Return "Uffici & Stocking Locations"
Line 1394: Case "ger"
Line 1395: Return "Büros & Stocking Standorte"
Line 1396: End Select
Line 1397: Case "Contacts for Quotes"
Line 1398: Select Case Session("lang")
Line 1399: Case "eng"
Line 1400: Return t
Line 1401: Case "fr"
Line 1402: Return "Contacts pour les devis"
Line 1403: Case "spa"
Line 1404: Return "Contactos para Cotizaciones"
Line 1405: Case "ptg"
Line 1406: Return "Contactos para Quotes"
Line 1407: Case "ita"
Line 1408: Return "Contatti per Quotes"
Line 1409: Case "ger"
Line 1410: Return "Kontakte für Zitate"
Line 1411: End Select
Line 1412: Case "TVC CALA Main Office"
Line 1413: Select Case Session("lang")
Line 1414: Case "eng"
Line 1415: Return t
Line 1416: Case "fr"
Line 1417: Return "TVC Bureau principal"
Line 1418: Case "spa"
Line 1419: Return "Oficina TVC CALA Principal"
Line 1420: Case "ptg"
Line 1421: Return "Escritório TVC CALA Principal"
Line 1422: Case "ita"
Line 1423: Return "Ufficio TVC CALA principale"
Line 1424: Case "ger"
Line 1425: Return "TVC CALA Hauptamt"
Line 1426: End Select
Line 1427: Case "Mexico"
Line 1428: Select Case Session("lang")
Line 1429: Case "eng"
Line 1430: Return t
Line 1431: Case "fr"
Line 1432: Return "Mexique"
Line 1433: Case "spa"
Line 1434: Return "México"
Line 1435: Case "ptg"
Line 1436: Return "México"
Line 1437: Case "ita"
Line 1438: Return "Messico"
Line 1439: Case "ger"
Line 1440: Return "Mexiko"
Line 1441: End Select
Line 1442: Case "Voice, Video and Data Distribution"
Line 1443: Select Case Session("lang")
Line 1444: Case "eng"
Line 1445: Return t
Line 1446: Case "fr"
Line 1447: Return "Voix, vidéo et distribution de données"
Line 1448: Case "spa"
Line 1449: Return "Voz, vídeo y Distribución de Datos"
Line 1450: Case "ptg"
Line 1451: Return "Voz, vídeo e distribuição de dados"
Line 1452: Case "ita"
Line 1453: Return "Voce, Video e distribuzione dei dati"
Line 1454: Case "ger"
Line 1455: Return "Sprach-, Video- und Datenverteilung"
Line 1456: End Select
Line 1457: Case ""
Line 1458: Select Case Session("lang")
Line 1459: Case "eng"
Line 1460: Return t
Line 1461: Case "fr"
Line 1462: Return ""
Line 1463: Case "spa"
Line 1464: Return ""
Line 1465: Case "ptg"
Line 1466: Return ""
Line 1467: Case "ita"
Line 1468: Return ""
Line 1469: Case "ger"
Line 1470: Return ""
Line 1471: End Select
Line 1472: Case "MaxCell Sales Manager, CALA Region"
Line 1473: Select Case Session("lang")
Line 1474: Case "eng"
Line 1475: Return t
Line 1476: Case "fr"
Line 1477: Return "MaxCell Directeur des ventes, CALA Région"
Line 1478: Case "spa"
Line 1479: Return "MaxCell Gerente de Ventas, Región CALA"
Line 1480: Case "ptg"
Line 1481: Return "MaxCell Gerente de Vendas, CALA Região"
Line 1482: Case "ita"
Line 1483: Return "Maxcell Sales Manager, CALA Regione"
Line 1484: Case "ger"
Line 1485: Return "MaxCell Sales Manager, CALA Region"
Line 1486: End Select
Line 1487: Case "Customer Service Manager / IP Support"
Line 1488: Select Case Session("lang")
Line 1489: Case "eng"
Line 1490: Return t
Line 1491: Case "fr"
Line 1492: Return "Service à la clientèle Gestionnaire / Support IP"
Line 1493: Case "spa"
Line 1494: Return "Cliente Administrador de servicios de apoyo / IP"
Line 1495: Case "ptg"
Line 1496: Return "Customer Support Service Manager / IP"
Line 1497: Case "ita"
Line 1498: Return "Clienti Service Manager Support / IP"
Line 1499: Case "ger"
Line 1500: Return "Customer Service Manager / IP-Unterstützung"
Line 1501: End Select
Line 1502: Case "Digital Video Solutions, CALA"
Line 1503: Select Case Session("lang")
Line 1504: Case "eng"
Line 1505: Return t
Line 1506: Case "fr"
Line 1507: Return "Digital Video Solutions, CALA"
Line 1508: Case "spa"
Line 1509: Return "Digital Video Solutions, CALA"
Line 1510: Case "ptg"
Line 1511: Return "Vídeo Digital Solutions, CALA"
Line 1512: Case "ita"
Line 1513: Return "Video Digital Solutions, Cala"
Line 1514: Case "ger"
Line 1515: Return "Digital Video Solutions, CALA"
Line 1516: End Select
Line 1517: Case "All Other Customer Service Requests"
Line 1518: Select Case Session("lang")
Line 1519: Case "eng"
Line 1520: Return t
Line 1521: Case "fr"
Line 1522: Return "Toutes les autres demandes de service à la clientèle"
Line 1523: Case "spa"
Line 1524: Return "Todas las demás solicitudes de servicio al cliente"
Line 1525: Case "ptg"
Line 1526: Return "Todos os outros pedidos de Atendimento ao Cliente"
Line 1527: Case "ita"
Line 1528: Return "Tutte le altre richieste Servizio Clienti"
Line 1529: Case "ger"
Line 1530: Return "Alle anderen Kundenserviceanfragen"
Line 1531: End Select
Line 1532: Case ""
Line 1533: Select Case Session("lang")
Line 1534: Case "eng"
Line 1535: Return t
Line 1536: Case "fr"
Line 1537: Return ""
Line 1538: Case "spa"
Line 1539: Return ""
Line 1540: Case "ptg"
Line 1541: Return ""
Line 1542: Case "ita"
Line 1543: Return ""
Line 1544: Case "ger"
Line 1545: Return ""
Line 1546: End Select
Line 1547: Case "Plenum & Riser MaxCell"
Line 1548: Select Case Session("lang")
Line 1549: Case "eng"
Line 1550: Return t
Line 1551: Case "fr"
Line 1552: Return "Plenum & Riser MaxCell"
Line 1553: Case "spa"
Line 1554: Return "Plenum y Riser de MaxCell"
Line 1555: Case "ptg"
Line 1556: Return "Plenum & Riser MaxCell"
Line 1557: Case "ita"
Line 1558: Return "Plenum & Riser MaxCell"
Line 1559: Case "ger"
Line 1560: Return "Plenum & Riser MaxCell"
Line 1561: End Select
Line 1562: Case ""
Line 1563: Select Case Session("lang")
Line 1564: Case "eng"
Line 1565: Return t
Line 1566: Case "fr"
Line 1567: Return "Décelables MaxCell"
Line 1568: Case "spa"
Line 1569: Return "Detectable MaxCell"
Line 1570: Case "ptg"
Line 1571: Return "Detectável MaxCell"
Line 1572: Case "ita"
Line 1573: Return "Detectable MaxCell"
Line 1574: Case "ger"
Line 1575: Return "Nachweisbare MaxCell"
Line 1576: End Select
Line 1577: Case Else
Line 1578: return t
Line 1579:
Line 1580: End Select
Line 1581:
Line 1582: End Function
Line 1583:
Line 1584: Dim variableArray(), valueArray(), variableArray2(), valueArray2(), variableArray3(), valueArray3() As String
Line 1585:
Line 1586: Function executeSQLDataAdapter(ByVal sqlConn As String, ByVal sql As String, Optional ByVal pVariable As Array = Nothing, Optional ByVal pValue As Array = Nothing) As SqlDataAdapter
Line 1587:
Line 1588: Dim sda As New SqlDataAdapter, i As Integer
Line 1589:
Line 1590: Dim objConn As SqlConnection = New SqlConnection(sqlConn)
Line 1591: objConn.Open()
Line 1592:
Line 1593: Dim sqlText As String = sql
Line 1594: Dim dbCommand As New SqlCommand(sqlText, objConn)
Line 1595: dbCommand.CommandTimeout = 0
Line 1596:
Line 1597: If pVariable IsNot Nothing Then
Line 1598: For i = 0 To UBound(pVariable)
Line 1599: If pVariable(i) = "" Then
Line 1600: Exit For
Line 1601: End If
Line 1602: dbCommand.Parameters.AddWithValue(pVariable(i), pValue(i))
Line 1603: Next
Line 1604: End If
Line 1605:
Line 1606: sda = New SqlDataAdapter(dbCommand)
Line 1607:
Line 1608: objConn.Close()
Line 1609:
Line 1610: Return sda
Line 1611:
Line 1612: End Function
Line 1613:
Line 1614: Function executeSQL(ByVal sqlConn As String, ByVal sql As String, Optional ByVal pVariable As Array = Nothing, Optional ByVal pValue As Array = Nothing) As SqlDataReader
Line 1615:
Line 1616: Dim sdr As SqlDataReader, i As Integer
Line 1617:
Line 1618: Dim objConn As SqlConnection = New SqlConnection(sqlConn)
Line 1619: objConn.Open()
Line 1620:
Line 1621: Dim sqlText As String = sql
Line 1622: Dim dbCommand As New SqlCommand(sqlText, objConn)
Line 1623: dbCommand.CommandTimeout = 0
Line 1624:
Line 1625: If pVariable IsNot Nothing Then
Line 1626: For i = 0 To UBound(pVariable)
Line 1627: If pVariable(i) = "" Then Exit For
Line 1628: dbCommand.Parameters.AddWithValue(pVariable(i), pValue(i))
Line 1629: Next
Line 1630: End If
Line 1631:
Line 1632: sdr = dbCommand.ExecuteReader(CommandBehavior.CloseConnection)
Line 1633:
Line 1634: Return sdr
Line 1635:
Line 1636: End Function
Line 1637:
Line 1638: Sub ExecuteNonQuery(ByVal sqlConn As String, ByVal sql As String, Optional ByVal pVariable As Array = Nothing, Optional ByVal pValue As Array = Nothing)
Line 1639:
Line 1640: Dim i As Integer
Line 1641:
Line 1642: Dim objConn As SqlConnection = New SqlConnection(sqlConn)
Line 1643: objConn.Open()
Line 1644:
Line 1645: Dim sqlText As String = sql
Line 1646: Dim dbCommand As New SqlCommand(sqlText, objConn)
Line 1647: dbCommand.CommandTimeout = 0
Line 1648:
Line 1649: If pVariable IsNot Nothing Then
Line 1650: For i = 0 To UBound(pVariable)
Line 1651: If pVariable(i) = "" Then Exit For
Line 1652: dbCommand.Parameters.AddWithValue(pVariable(i), pValue(i))
Line 1653: Next
Line 1654: End If
Line 1655:
Line 1656: dbCommand.ExecuteNonQuery()
Line 1657:
Line 1658: objConn.Close()
Line 1659:
Line 1660: End Sub
Line 1661:
Line 1662: Sub resetArray(ByVal uBound As Integer)
Line 1663:
Line 1664: ReDim variableArray(uBound)
Line 1665: ReDim valueArray(uBound)
Line 1666:
Line 1667: End Sub
Line 1668:
Line 1669: Sub resetArray2(ByVal uBound As Integer)
Line 1670:
Line 1671: ReDim variableArray2(uBound)
Line 1672: ReDim valueArray2(uBound)
Line 1673:
Line 1674: End Sub
Line 1675:
Line 1676: Sub resetArray3(ByVal uBound As Integer)
Line 1677:
Line 1678: ReDim variableArray3(uBound)
Line 1679: ReDim valueArray3(uBound)
Line 1680:
Line 1681: End Sub
Line 1682:
Line 1683: Function getTopOfArray() As Integer
Line 1684:
Line 1685: Dim i As Integer = 0
Line 1686:
Line 1687: For i = 0 To UBound(variableArray)
Line 1688: If variableArray(i) = "" Then Exit For
Line 1689: Next
Line 1690:
Line 1691: Return i
Line 1692:
Line 1693: End Function
Line 1694:
Line 1695: Function getDownload(ByVal d) As String
Line 1696:
Line 1697: If IsDBNull(d) Then
Line 1698: Return ""
Line 1699: Else
Line 1700: Return "/shared-downloads/" + d
Line 1701: End If
Line 1702:
Line 1703: End Function
Line 1704:
Line 1705: Function getBrand(ByVal logo) As String
Line 1706:
Line 1707: If IsDBNull(logo) Then
Line 1708: Return ""
Line 1709: Else
Line 1710: Return "/shared-suppliers/" + logo
Line 1711: End If
Line 1712:
Line 1713: End Function
Line 1714:
Line 1715: Sub sendEmail(ByVal isHTML As Boolean, ByVal strBody As String, ByVal strTo As String, ByVal strFrom As String, ByVal strSubject As String)
Line 1716:
Line 1717: Dim obj As New System.Net.Mail.SmtpClient
Line 1718: Dim Mailmsg As New System.Net.Mail.MailMessage
Line 1719: Dim i As Integer, sendEmail As Boolean = False
Line 1720:
Line 1721: Mailmsg.To.Add("jdewinter@tvcinc.com")
Line 1722: Mailmsg.To.Add("asluss@maxcell.us")
Line 1723: sendEmail = True
Line 1724:
Line 1725: If sendEmail Then
Line 1726:
Line 1727: Mailmsg.From = New MailAddress(strFrom)
Line 1728:
Line 1729: If isHTML Then
Line 1730: Mailmsg.IsBodyHtml = True
Line 1731: Mailmsg.Body = "<html><body>" + strBody.ToString + "</body></html>"
Line 1732: Else
Line 1733: Mailmsg.IsBodyHtml = False
Line 1734: Mailmsg.Body = strBody.ToString
Line 1735: End If
Line 1736:
Line 1737: Mailmsg.Subject = strSubject
Line 1738: obj.Host = getSMTPHost()
Line 1739: obj.Send(Mailmsg)
Line 1740:
Line 1741: End If
Line 1742:
Line 1743: Mailmsg = Nothing
Line 1744: obj = Nothing
Line 1745:
Line 1746: End Sub
Line 1747:
Line 1748: Function mapFix(ByVal str As String, Optional ByVal includeSlash As Boolean = False) As String
Line 1749:
Line 1750: If str = "" Then
Line 1751: Return ""
Line 1752: Else
Line 1753: If includeSlash Then
Line 1754: Return Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(LCase(str), "/", "-"), " ", "-"), "&", "-"), ",", "-"), ".", ""), "%", ""), "(", "-"), ")", ""), """", ""), "™", ""), "+", ""), "°", ""), "®", ""), ":", ""), "'", ""), "ã", "a"), "?", "") + "/"
Line 1755: Else
Line 1756: Return Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(LCase(str), "/", "-"), " ", "-"), "&", "-"), ",", "-"), ".", ""), "%", ""), "(", "-"), ")", ""), """", ""), "™", ""), "+", ""), "°", ""), "®", ""), ":", ""), "'", ""), "ã", "a"), "?", "")
Line 1757: End If
Line 1758: End If
Line 1759:
Line 1760: End Function
Line 1761:
Line 1762: Function getDate(ByVal dateToUse As String) As String
Line 1763:
Line 1764: Return Month(dateToUse) & "/" & Day(dateToUse) & "/" & Year(dateToUse)
Line 1765:
Line 1766: End Function
Line 1767:
Line 1768: Function getSMTPHost() As String
Line 1769:
Line 1770: Dim smtpHost As String
Line 1771:
Line 1772: resetArray(0)
Line 1773:
Line 1774: Dim rsHost As SqlDataReader = executeSQL(connectionString_SH, "select smtp_host from SMTP_Host")
Line 1775:
Line 1776: If rsHost.Read() Then smtpHost = rsHost("smtp_host")
Line 1777:
Line 1778: rsHost.Close()
Line 1779: rsHost = Nothing
Line 1780:
Line 1781: Return smtpHost
Line 1782:
Line 1783: End Function
Line 1784:
Line 1785: </script>
|