|
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
-------------
https://www.lanocion.es - https://www.lanocion.games - https://www.lanocion.chat
|