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
'
'
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 = "
Rett = Rett & " data-locale=""en_US"" data-type=""horizontal"" data-theme=""dark"" "
Rett = Rett & " data-vanity=""" & Or_UserLinkPart & """> Rett = Rett & UserFullURL_Linkedin
Rett = Rett & "'>" & Caption_Linkedin & "
"
Rett = Rett & ""
ProfileBadge_Linkedin= Rett
End Function

UserFullURL_Linkedin, Or_UserLinkPart, Caption_Linkedin

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

Views 1776 Downloads 724

Classic ASP Texts + Strings
ANmarAmdeen
806
Attachments
Revisions

v1.0