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