Scribd Logo
Upload

Welcome to Scribd!

  • 14 views

    Paper

    Uploaded by

    opop
    This document contains code for generating an HTML string that displays unit type information on a website. It checks if the browser is mobile, then builds out the HTML with different styling for mobile vs desktop. Data is retrieved from databases and used to dynamically generate slides with unit images, titles, and 360 degree views where available. Arrows and bullets are added for navigation between slides.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    Paper

    Uploaded by

    opop
    14 views3 pages
    This document contains code for generating an HTML string that displays unit type information on a website. It checks if the browser is mobile, then builds out the HTML with different styling for mobile vs desktop. Data is retrieved from databases and used to dynamically generate slides with unit images, titles, and 360 degree views where available. Arrows and bullets are added for navigation between slides.

    Original Title

    paper (1)

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains code for generating an HTML string that displays unit type information on a website. It checks if the browser is mobile, then builds out the HTML with different styling for mobile vs desktop. Data is retrieved from databases and used to dynamically generate slides with unit images, titles, and 360 degree views where available. Arrows and bullets are added for navigation between slides.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    14 views3 pages

    Paper

    Uploaded by

    opop
    This document contains code for generating an HTML string that displays unit type information on a website. It checks if the browser is mobile, then builds out the HTML with different styling for mobile vs desktop. Data is retrieved from databases and used to dynamically generate slides with unit images, titles, and 360 degree views where available. Arrows and bullets are added for navigation between slides.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    You are on page 1of 3

    Private Sub bindUnitType()

    Dim result As New StringBuilder


    Dim dt As New DataTable
    Dim dtSlider As New DataTable

    dtSlider = getListImageRefByTag(_domainRef, _tagRefRoom, False)


    dt = getContentInfoByTag(_domainRef, _tagRefRoom, False)
    Dim tagName As String = getTagName(_domainRef, _tagRefRoom, False)

    result.Append("<div id=""unittype"">")
    Dim mobile As HttpBrowserCapabilities = Context.Request.Browser
    If mobile.IsMobileDevice Then
    result.Append("<section class=""section-wrap call-to-action bg-light"" style=""background-color:#FCF8F2;
    margin-bottom: -80px;"">")
    Else
    result.Append("<section class=""section-wrap call-to-action bg-light"" style=""background-color:#FCF8F2;
    margin-bottom: -20px;"">")
    End If
    If mobile.IsMobileDevice Then
    'result.Append(" <h2 style=""margin-top: -50px !important;margin-bottom: 18px !important; font-size
    :30px;text-align: center;color: #ffffff;"" class=""intro__title nocaps"">")
    'result.Append(" "+tagName+"")
    'result.Append(" </h2>")
    result.Append(" <div style=""font-size:17px;padding-bottom: 10px;text-align: center;"">" + dtSlider.
    Rows(0).Item("content") + "</div>")
    result.Append(" <div class=""row"">")
    Else
    'result.Append(" <h2 style=""margin-top: 0px !important;margin-bottom: 10px !important;text-align:
    center;color: #ffffff;"" class=""intro__title nocaps"">")
    'result.Append(" "+tagName+"")
    'result.Append(" </h2>")
    result.Append(" <div style=""font-size:17px;padding-bottom: 10px;text-align: center;"">" + dtSlider.
    Rows(0).Item("content") + "</div>")

    result.Append(" <div class=""row"">")


    End If
    If mobile.IsMobileDevice Then
    result.Append(" <div class=""slider-product"" id=""jssor_4"" style=""position:relative;margin:0 auto;to
    p:0px;left:0px;width:1000%;height: 1300.152px;overflow:hidden;visibility:hidden;"">")
    Else
    result.Append(" <div class=""slider-product"" id=""jssor_3"" style=""position:relative;margin:0 auto;to
    p:0px;left:0px;width:950%;height: 650.152px;overflow:hidden;visibility:hidden;"">")
    End If

    result.Append(" <!-- Loading Screen -->")


    result.Append(" <div data-u=""loading"" class=""jssorl-009-spin slider-product"" style=""position:absol
    ute;top:0px;left:0px;width:100%;height:100%;text-align:center;background-color:rgba(0,0,0,0.7);"">")
    result.Append(" <img alt=""spin"" style=""margin-top:-19px;position:relative;top:50%;width:38px;hei
    ght:38px;"" src=""" + _rootPath + "Support/svg/loading/static-svg/spin.svg"" />")
    result.Append(" </div>")

    If mobile.IsMobileDevice Then
    result.Append(" <div data-u=""slides"" style=""cursor:default;position:relative;top:0px;left:0px;widt
    h:1000px;height:1200px;overflow:hidden;"">")
    Else
    result.Append(" <div data-u=""slides"" style=""cursor:default;position:relative;top:0px;left:0px;widt
    h:1000px;height:600px;overflow:hidden;"">")
    End If

    For i As Integer = 0 To dt.Rows.Count - 1

    result.Append(" <div>")
    result.Append(" <article>")
    result.Append(" <img data-u=""image"" class=""lazyload"" data-src=""" + _rootPath + "content.i
    mages/content/" + _parentRef + "/" + dtSlider.Rows(i).Item("imgRef").ToString + "/0/2000/1821" + ".jpg"" src="""
    + _rootPath + "content.images/content/" + _parentRef + "/" + dtSlider.Rows(i).Item("imgRef").ToString + "/0/0/5" +
    ".jpg"" alt=""image" + dtSlider.Rows(i).Item("title") + """>")
    If mobile.IsMobileDevice Then

    result.Append(" <div style=""text-align: -webkit-center;color: white;position: relative;font-size


    : 50px;margin-left: -6px;margin-top: 500px;background-color:rgba(43,45,15,0.5);""><span style=""font-size:50px;c
    olor:#ffffff;text-transform:capitalize;padding-top:5px !important;"">" + dtSlider.Rows(i).Item("title") + "</span><br
    />")
    Else
    result.Append(" <div style=""text-align: -webkit-center;color: white;position: relative;font-size
    : 33px;margin-left: -6px;margin-top: 6em;background-color:rgba(43,45,15,0.5);""><span style=""font-size:15px;col
    or:#ffffff;text-transform:capitalize;padding-top:5px !important;"">" + dtSlider.Rows(i).Item("title") + "</span><br/
    >")

    End If

    result.Append(" <div style=""text-align:center"">")


    If isUnitHave360(dt.Rows(i).Item("contentRef").ToString, False) = True Then
    result.Append(" <a target=""_blank"" style=""max-width: 150px !important;padd
    ing: 3px 0px !important;background: #8e5e42!important;"" href=""" + _VirtualOneAvenue + """ class=""send_mes
    sage button-effect button--moema button--text-thick button--text-upper button--size-s"" style=""background: #cea24
    3;"">")
    result.Append(" <img src=""" + _rootPath + "support/img/360.png"" style=""pad
    ding-top: 5px !important;"">")
    result.Append(" </a>")
    End If
    result.Append(" </div>")
    result.Append(" </div>")
    result.Append(" </article>")
    result.Append(" </div>")

    Next

    result.Append(" </div>")
    result.Append(" <!-- Bullet Navigator -->")
    result.Append(" <div data-u=""navigator"" class=""jssorb057"" style=""position:absolute;bottom:12px;righ
    t:12px;"" data-autocenter=""1"" data-scale=""0.5"" data-scale-bottom=""0.75"">")
    result.Append(" <div data-u=""prototype"" class=""i"" style=""width:16px;height:16px;"">")
    result.Append(" <svg viewBox=""0 0 16000 16000"" style=""position:absolute;top:0;left:0;width:100
    %;height:100%;"">")
    result.Append(" <circle class=""b"" cx=""8000"" cy=""8000"" r=""5000""></circle>")
    result.Append(" </svg>")
    result.Append(" </div>")
    result.Append(" </div>")
    result.Append(" <!-- Arrow Navigator -->")
    result.Append(" <div data-u=""arrowleft"" class=""jssora073"" style=""width:50px;height:50px;top:0px;lef
    t:30px;"" data-autocenter=""2"" data-scale=""0.75"" data-scale-left=""0.75"">")
    result.Append(" <svg viewBox=""0 0 16000 16000"" style=""position:absolute;top:0;left:0;width:100%;
    height:100%;"">")
    result.Append(" <path class=""a"" d=""M4037.7,8357.3l5891.8,5891.8c100.6,100.6,219.7,150.9,357.
    3,150.9s256.7-50.3,357.3-150.9 l1318.1-1318.1c100.6-100.6,150.9-219.7,150.9-357.3c0-137.6-50.3-256.7-150.9-35
    7.3L7745.9,8000l4216.4-4216.4 c100.6-100.6,150.9-219.7,150.9-357.3c0-137.6-50.3-256.7-150.9-357.3l-1318.1-13
    18.1c-100.6-100.6-219.7-150.9-357.3-150.9 s-256.7,50.3-357.3,150.9L4037.7,7642.7c-100.6,100.6-150.9,219.7-150
    .9,357.3C3886.8,8137.6,3937.1,8256.7,4037.7,8357.3 L4037.7,8357.3z""></path>")
    result.Append(" </svg>")
    result.Append(" </div>")
    result.Append(" <div data-u=""arrowright"" class=""jssora073"" style=""width:50px;height:50px;top:0px;r
    ight:30px;"" data-autocenter=""2"" data-scale=""0.75"" data-scale-right=""0.75"">")
    result.Append(" <svg viewBox=""0 0 16000 16000"" style=""position:absolute;top:0;left:0;width:100%;
    height:100%;"">")
    result.Append(" <path class=""a"" d=""M11962.3,8357.3l-5891.8,5891.8c-100.6,100.6-219.7,150.9-3
    57.3,150.9s-256.7-50.3-357.3-150.9 L4037.7,12931c-100.6-100.6-150.9-219.7-150.9-357.3c0-137.6,50.3-256.7,150
    .9-357.3L8254.1,8000L4037.7,3783.6 c-100.6-100.6-150.9-219.7-150.9-357.3c0-137.6,50.3-256.7,150.9-357.3l131
    8.1-1318.1c100.6-100.6,219.7-150.9,357.3-150.9 s256.7,50.3,357.3,150.9l5891.8,5891.8c100.6,100.6,150.9,219.7,1
    50.9,357.3C12113.2,8137.6,12062.9,8256.7,11962.3,8357.3 L11962.3,8357.3z""></path>")
    result.Append(" </svg>")
    result.Append(" </div>")
    result.Append(" </div>")
    result.Append(" </div>")
    result.Append(" </section> ")
    result.Append("</div>")

    ltrUnitType.Text = result.ToString

    End Sub

    You might also like