Facebook Image

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

I created a facebook code to insert into the image with a message. It works for me perfectly. By clicking on the button "like" inserts in facebook the message with the picture you have. If you have inserted the image we have by default.

I hope you understand. I do not know English and translated with a translator. If not well understood I hope the webmaster explain.

forum_posts.asp

Inserted in the header:

Dim lngStartPosf  'Holds search start postions
Dim lngEndPosf   'Holds end start postions
Dim lngEndPosfHttp  'Holds end start postions for domain

Inserted on line 667:

'Facebook Open Graph Protocol Meta Tags
If blnFacebookLike Then

  'Image Facebook
  If InStr(1, sarryPosts(1,0), "src=", 1) > 0 AND InStr(1, sarryPosts(1,0), """", 1) > 0 Then
  'Get the start and end of the Facebook
  lngStartPosf = InStr(1, sarryPosts(1,0), "src=", 1) + 5
  lngEndPosf = InStr(lngStartPosf, sarryPosts(1,0), """", 1)
  lngEndPosfHttp = InStr(lngStartPosf, sarryPosts(1,0), "//", 1)
  'Get the original code to be replaced in the message
  strFacebookImage = Trim(Mid(sarryPosts(1,0), lngStartPosf, lngEndPosf-lngStartPosf))
  'If the image is not inserted domain parent domain
  If lngEndPosfHttp = 0 Then strFacebookImage = strForumPath & strFacebookImage

  End If
End If

Edited by Roberto Randall - 15 January 2012 at 1:01pm

Windows Web Hosting 30 Day Free Trial

Facebook Image