Line 128: Dim zOGDescription As String = "<meta property=""og:description"" content=""" & oModel.Description & """ />"
Line 129: Dim zOGType As String = "<meta property=""og:type"" content=""product"" />"
Line 130: Dim zOGImage As String = "<meta property=""og:image"" content=""" & CType(oModel.Images(0), clsImageStream).FetchRawImageURL(1200, 630, "FFFFFF", "E") & """ />"
Line 131:
Line 132: litMetaData.Text = zTitle & vbCrLf & zDescription & vbCrLf & zOGTitle & vbCrLf & zOGDescription & vbCrLf & zOGType & vbCrLf & zOGImage
|