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
Topic Options
Post Options
Thanks(0)
