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