home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iibind.inc < prev    next >
Encoding:
Text File  |  1997-08-07  |  279 b   |  19 lines
  1. <% 
  2.  
  3. function getBinding(bindstr)
  4.  
  5.     Dim one, two, ia, ip, hn
  6.     
  7.     one=Instr(bindstr,":")
  8.     two=Instr((one+1),bindstr,":")
  9.     
  10.     ia=Mid(bindstr,1,(one-1))
  11.     ip=Mid(bindstr,(one+1),((two-one)-1))
  12.     hn=Mid(bindstr,(two+1))
  13.  
  14.     
  15.     getBinding=Array(ia,ip,hn)
  16. end function
  17.  
  18.  
  19.  %>