ProfileBadge_Linkedin

Creates Linkedin profile badge for certain user as HTML output.

CodeFunctionName
What is this?

Public

Tested

Original Work
Function ProfileBadge_Linkedin(UserFullURL_Linkedin, Or_UserLinkPart, Caption_Linkedin)
' You need to provide either Or_UserLinkPart or UserFullURL_Linkedin
' anmars or https://www.linkedin.com/in/anmars
' Preferrable Or_UserLinkPart
' UserFullURL_Linkedin Complete Linkedin URL
' example: https://www.linkedin.com/in/anmars
' Or_UserLinkPart The part of link after /in/ from your URL
' example: anmars from link above
' Caption_Linkedin Name to show in badge
' example: ANmar Amdeen
' <div class="LI-profile-badge" data-version="v1" data-size="large" data-locale="en_US" data-type="horizontal" data-theme="dark" data-vanity="anmars" > <a class="LI-simple-link" href='https://www.linkedin.com/in/anmars?trk=profile-badge' >ANmar Amdeen </a > </div >
'
Rett = ""
ProfileBadge_Linkedin= Rett
If Caption_Linkedin = "" Then Caption_Linkedin = "Linkedin user"
If Or_UserLinkPart > "" Then UserFullURL_Linkedin = "https://www.linkedin.com/in/" & Or_UserLinkPart
If UserFullURL_Linkedin = "" Then Exit Function
UserFullURL_Linkedin = UserFullURL_Linkedin & "?trk=profile-badge"
Rett = " <div class=""LI-profile-badge"" data-version=""v1"" data-size=""large"" "
Rett = Rett & " data-locale=""en_US"" data-type=""horizontal"" data-theme=""dark"" "
Rett = Rett & " data-vanity=""" & Or_UserLinkPart & """ > <a class=""LI-simple-link"" href='"
Rett = Rett & UserFullURL_Linkedin
Rett = Rett & "' >" & Caption_Linkedin & " </a > </div >"
Rett = Rett & ""
ProfileBadge_Linkedin= Rett
End Function

UserFullURL_Linkedin, Or_UserLinkPart, Caption_Linkedin

Response.Write ProfileBadge_Linkedin("", "ANmars", "ANmar Amdeen")

Views 1,942

Downloads 790

CodeID
DB ID