ProfileBadge_Linkedin

Creates Linkedin profile badge for certain user as HTML output.


Public

Tested

My Own 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 688 Downloads 268

Classic ASP Texts + Strings
ANmarAmdeen
642
Attachments
Revisions

v1.0