<% ''''''''''''''''''''''''''''''''''''''''''' ' Komerci getCov - codVer - mastercard ''''''''''''''''''''''''''''''''''''''''''' ' Felipe Olivaes ' http://www.republicavirtual.com.br/blog/ ''''''''''''''''''''''''''''''''''''''''''' function getCod( varFiliacao, varTotal, varEndIP ) j = varFiliacao vd = mid(instr(varTotal, ","),len(varTotal),varTotal) if vd = "" then vd = 0 vi = mid(0,instr(varTotal, ","),varTotal) i1 = vi i = datepart("s", NOW()) byte0 = 0 select case i case 0 byte0 = 11 case 1 byte0 = 17 case 2 byte0 = 21 case 3 byte0 = 31 case 4 byte0 = 56 case 5 byte0 = 34 case 6 byte0 = 42 case 6 byte0 = 42 case 7 byte0 = 3 case 8 byte0 = 18 case 9 byte0 = 13 case 10 byte0 = 12 case 11 byte0 = 18 case 12 byte0 = 22 case 13 byte0 = 32 case 14 byte0 = 57 case 15 byte0 = 35 case 16 byte0 = 43 case 17 byte0 = 4 case 18 byte0 = 19 case 19 byte0 = 14 case 20 byte0 = 9 case 21 byte0 = 20 case 22 byte0 = 23 case 23 byte0 = 33 case 24 byte0 = 58 case 25 byte0 = 36 case 26 byte0 = 44 case 27 byte0 = 5 case 28 byte0 = 24 case 29 byte0 = 15 case 30 byte0 = 62 case 31 byte0 = 25 case 32 byte0 = 34 case 33 byte0 = 59 case 34 byte0 = 37 case 35 byte0 = 45 case 36 byte0 = 6 case 37 byte0 = 25 case 38 byte0 = 16 case 39 byte0 = 27 case 40 byte0 = 63 case 41 byte0 = 26 case 42 byte0 = 35 case 43 byte0 = 60 case 44 byte0 = 38 case 45 byte0 = 46 case 44 byte0 = 38 case 45 byte0 = 46 case 46 byte0 = 7 case 47 byte0 = 26 case 48 byte0 = 17 case 49 byte0 = 28 case 50 byte0 = 14 case 51 byte0 = 36 case 52 byte0 = 2 case 53 byte0 = 39 case 54 byte0 = 47 case 55 byte0 = 8 case 56 byte0 = 29 case 57 byte0 = 22 case 58 byte0 = 55 case 59 byte0 = 33 end select i = byte0 if i < 10 then s2 = "0" else s2 = "" end if s1 = varEndIP k1 = len( s1) if i1 = "" then i1 = 0 j1 = il + i l1 = i + k1 k = i * j s3 = k getCod = k & j1 & l1 &"-"& len( s3 ) & s2 & i end function %>