Get GUID string

Public Function GetNewGUIDStr() As String
Dim pGuid As GUID
Dim lResult As Long
Dim s As String
  
  'this is a buffer string to be passed in API function
  '100 chars will be enough
  s = String(100, " ")
  'creating new ID and obtaining result in pointer to GUID 
  lResult = CoCreateGuid(pGuid)
  'converting GUID structure to string
  lResult = StringFromGUID2(pGuid, s, 100)
  'removing all trailing blanks
  s = Trim(s)
  'converting a sting from unicode
  GetNewGUIDStr = StrConv(s, vbFromUnicode)
  
End Function
//REMOTE BANNER ENGINE
//By Sam Moses
//[email protected]
//Image Dimensions.
 var ob = '0'
 var obx = '740'
 var obx2 = '90'
//the target
 var target = '_blank'
//Image URL
//Enter the URL of the banner which you want to load.
 var image = 'http://localhost/wwwroot/adbannerz/homebanners/education.gif'
//Link
 var link = 'http://localhost/wwwroot/adbannerz/default1.asp'
 
//Writing The Banner To The Browser,
//All you have to do is put an src in your javascript tag,
//and the three lines of code below do the rest.
 document.write("<a target=\""+target+"\" href=\""+link+"\">");
 document.write("<img width=\""+obx+"\" height=\""+obx2+"\" border=\""+ob+"\" src=\""+image+"\">");
 document.write("<\/a>");
 document.write("<x\=SVM>");
 
//That's it, 
//Use it on your web site. Don't forget to have fun.