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