%@ Language=VBScript %> <% function visitcounter(visitor) cvisit=cstr(visitor) cvisitlen=len(cvisit) num="" if cvisitlen <> 8 then for i=1 to (8-cvisitlen) num=num & "0" next for i=1 to cvisitlen num = mid(cvisit,i,1) select case num case "0" num = "0" case "1" num = "1" case "2" num = "2" case "3" num = "3" case "4" num = "4" case "5" num = "5" case "6" num = "6" case "7" num = "7" case "8" num = "8" case "9" num = "9" end select cnum = cnum & num next end if visitcounter=cnum end function %>
|
|
||||
![]() Best viewed with IE 4.+ and monitor 1024x768 visited <%=visitcounter(Application("visit"))%> Maha Corporation Contact Mrs.Betty Cho ¢Ï Phone +82/2-416-5051 Fax +82/2-417-8547 E--Mail : info@medisana.co.kr Copyright(c) 1999 MAHA CORPORATION |