showSkype = "<div class=""showSkype""><div ID=""showSkype_img""></div></div>"&vbCrLf
End Function
Function showSkype_JS()
If Skype = "" Then
showSkype_JS = "<script>"& vbcrlf &"document.getElementById(""showSkype_img"").innerHTML= '';" & vbcrlf&"</Script>"
Else
iSkype = Split(Skype,"|")
showSkype_JS = "<script src=""Scripts/SkypeCheck.js""></script>"&vbCrLf&"<script>"&vbCrLf&"var OutSkypeStr = ''"&vbCrLf
For N=LBound(iSkype) To UBound(iSkype)
showSkype_JS = showSkype_JS & " OutSkypeStr = OutSkypeStr + ""<div align=\""center\""><a href=\""skype:"&iSkype(N)&"?call\""><img src=\""http://mystatus.skype.com/smallclassic/"&iSkype(N)&"\"" style=\""border:0;\"" /></a></div>""" & vbcrlf
Next
showSkype_JS = showSkype_JS & "document.getElementById(""showSkype_img"").innerHTML= OutSkypeStr;" & vbcrlf
showSkype_JS = showSkype_JS & "</Script>" & vbcrlf
End If
End Function