JEEP VIN Decoder 1.64


<% On Error Resume Next If Request.Form("hname") = "" Then ' This part of the script allows a person ' to enter data on an HTML form. %>

Decode only JEEP codes (from 1981 and later)!
This VIN-decoder checks a correctness of the VIN-code, but does not check a history of the automobile, as Carfax

The letters I, O and Q may not contain in a VIN-code on any position!

Notes and messages about errors please send here

(deutsche Version hier: VIN-Dekoder)

Enter VIN:


<% Else code = Request.Form("name") code = Trim(UCase(code)) '*********************************************** Îïðåäåëÿåì ïåðåìåííûå äëÿ ñòîëáöà Äîïóñòèìûå çíà÷åíèÿ '*********************************************** cell_color_1 = "#0000FF" cell_color_2 = "#0000FF" cell_color_3 = "#0000FF" cell_color_4 = "#0000FF" cell_color_5 = "#0000FF" cell_color_6 = "#0000FF" cell_color_7 = "#0000FF" cell_color_8 = "#0000FF" cell_color_9 = "#0000FF" cell_color_10 = "#0000FF" cell_color_11 = "#0000FF" cell_color_12 = "#0000FF" cell_color_13 = "#0000FF" cell_color_14 = "#0000FF" cell_color_15 = "#0000FF" cell_color_16 = "#0000FF" cell_color_17 = "#0000FF" ch_1=Mid(code, 1, 1) if ch_1="O" or ch_1="I" or ch_1="Q" or ch_1="Ñ" Then cell_color_1 = "#CC6600" ch_2=Mid(code, 2, 1) if ch_2="O" or ch_2="I" or ch_2="Q" or ch_2="Ñ" Then cell_color_2 = "#CC6600" ch_3=Mid(code, 3, 1) if ch_3="O" or ch_3="I" or ch_3="Q" or ch_3="Ñ" Then cell_color_3 = "#CC6600" ch_4=Mid(code, 4, 1) if ch_4="O" or ch_4="I" or ch_4="Q" or ch_4="Ñ" Then cell_color_4 = "#CC6600" ch_5=Mid(code, 5, 1) if ch_5="O" or ch_5="I" or ch_5="Q" or ch_5="Ñ" Then cell_color_5 = "#CC6600" ch_6=Mid(code, 6, 1) if ch_6="O" or ch_6="I" or ch_6="Q" or ch_6="Ñ" Then cell_color_6 = "#CC6600" ch_7=Mid(code, 7, 1) if ch_7="O" or ch_7="I" or ch_7="Q" or ch_7="Ñ" Then cell_color_7 = "#CC6600" ch_8=Mid(code, 8, 1) if ch_8="O" or ch_8="I" or ch_8="Q" or ch_8="Ñ" Then cell_color_8 = "#CC6600" ch_9=Mid(code, 9, 1) if ch_9="O" or ch_9="I" or ch_9="Q" or ch_9="Ñ" Then cell_color_9 = "#CC6600" ch_10=Mid(code, 10, 1) if ch_10="O" or ch_10="I" or ch_10="Q" or ch_10="Ñ" Then cell_color_10 = "#CC6600" ch_11=Mid(code, 11, 1) if ch_11="O" or ch_11="I" or ch_11="Q" or ch_11="Ñ" Then cell_color_11 = "#CC6600" ch_12=Mid(code, 12, 1) if ch_12="O" or ch_12="I" or ch_12="Q" or ch_12="Ñ" Then cell_color_12 = "#CC6600" ch_13=Mid(code, 13, 1) if ch_13="O" or ch_13="I" or ch_13="Q" or ch_13="Ñ" Then cell_color_13 = "#CC6600" ch_14=Mid(code, 14, 1) if ch_14="O" or ch_14="I" or ch_14="Q" or ch_14="Ñ" Then cell_color_14 = "#CC6600" ch_15=Mid(code, 15, 1) if ch_15="O" or ch_15="I" or ch_15="Q" or ch_15="Ñ" Then cell_color_15 = "#CC6600" ch_16=Mid(code, 16, 1) if ch_16="O" or ch_16="I" or ch_16="Q" or ch_16="Ñ" Then cell_color_16 = "#CC6600" ch_17=Mid(code, 17, 1) if ch_17="O" or ch_17="I" or ch_17="Q" or ch_17="Ñ" Then cell_color_17 = "#CC6600" '********************************************* Function CheckStop(vin_code) CheckStop = 0 If Instr(vin_code, "I") <> 0 or Instr(vin_code, "O") <> 0 or Instr(vin_code, "Q") <> 0 or Instr(vin_code, "Ñ") <> 0 Then CheckStop = 1 End function '********************************************* %>

VIN : <%= code %>

 

Symbol

<%= ch_1 %>

<%= ch_2 %>

<%= ch_3 %>

<%= ch_4 %>

<%= ch_5 %>

<%= ch_6 %>

<%= ch_7 %>

<%= ch_8 %>

<%= ch_9 %>

<%= ch_10 %>

<%= ch_11 %>

<%= ch_12 %>

<%= ch_13 %>

<%= ch_14 %>

<%= ch_15 %>

<%= ch_16 %>

<%= ch_17 %>

Position

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

<% If len(code)<> 17 Then %>

The code should consist of 17 symbols

Return

<% Elseif CheckStop(code) = 1 Then%>

The letters I, O and Q may not contain in a VIN-code on any position!

 

Incorrect symbols marked red.

Typical errors:
Instead of a symbol "1" wrongly write a symbol "I"
Instead of a symbol "0" wrongly write a symbol "O"
Instead of a symbol "0" wrongly write a symbol "Q"

 

Return <% Else Function Old(vin_code) Old=False If GetYear(Mid(vin_code, 10, 1)) < 1989 Then Old=True End function '************************** 1 ñèìâîë - ñòðàíà ******************************* Function GetCountry (countrycode) Select case countrycode Case "1" GetCountry = "USA" Case "2" GetCountry = "Canada" Case "3" GetCountry = "Mexico" Case "4" GetCountry = "USA" Case "6" GetCountry = "Australia" Case "9" GetCountry = "Brazil" Case "J" GetCountry = "Japan" Case "K" GetCountry = "Korea" Case "L" GetCountry = "Taiwan" Case "S" GetCountry = "England" Case "V" GetCountry = "France" Case "W" GetCountry = "Germany" Case "Y" GetCountry = "Sweden" Case "Z" GetCountry = "Italy" Case else GetCountry = "n/a" End select End function '*************************** 2 ñèìâîë - ïðîèçâîäèòåëü ******************************** Function GetMake (makecode) Select case makecode Case "J" GetMake = "Jeep (USA)" Case "B" GetMake = "Jeep (Kanada)" Case "E" GetMake = "Beijing Jeep Corp.. LTD, (China)" Case else GetMake = "n/a" End select End function '*************************** 3 ñèìâîë - òèï ******************************** Function GetType (vin_code) symbol_3 = Mid(vin_code, 3, 1) If Old (vin_code) Then Select case symbol_3 Case "C" GetType = "MPV" Case "T" GetType = "TRUCK" Case "D" GetType = "non complect" Case else GetType = "n/a" End select Else Select case symbol_3 Case "1" GetType = "MPV" Case "4" GetType = "MPV" Case "2" GetType = "TRUCK" Case "6" GetType = "non complect" Case "7" GetType = "TRUCK" Case "8" GetType = "MPV" Case else GetType = "n/a" End select End if End function '*************************** 4 GVWR ******************************** Function GetWeight (symbol_4) Select case symbol_4 Case "D" GetWeight = "1-1363 kg" Case "E" GetWeight = "1364-1818 kg" Case "F" GetWeight = "1819-2272 kg" Case "G" GetWeight = "2273-2727 kg" Case "H" GetWeight = "2728-3181 kg" Case "J" GetWeight = "3182-3636 kg" Case else GetWeight = "n/a" End select End function ' ******************************* ïÿòûé ñèìâîë - ìîäåëü ************************* 'Âñïîìîãàòåëüíàÿ ôóíêöèÿ function Truck_code (vin_code) Truck_code = Mid(vin_code, 5, 1) If Old(vin_code) Then Truck_code = Mid(vin_code, 6, 2) End function ' ******************************* GetTruck ************************* function GetTruck (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) tt=Truck_code(vin_code) Select case tt Case "K" GetTruck = "Liberty 2WD" Case "L" GetTruck = "Liberty 4WD" Case "M" GetTruck = "Cherokee 4WD, RHD" Case "A" GetTruck = "Wrangler" Case "4" GetTruck = "Wrangler, RHD" Case "E" GetTruck = "Wrangler, RHD" Case "B" if cur_year < 2007 Then GetTruck = "Cherokee - 2WD, RHD" else GetTruck = "Wrangler - 2WD" Case "F" if cur_year < 2007 Then GetTruck = "Cherokee - 4WD" else GetTruck = "Compass Left Hand Drive (4X4)" Case "G" GetTruck = "Commander (XK)" Case "J" GetTruck = "Cherokee - 4WD" case "N" if cur_year < 1991 then GetTruck = "Cherokee Wagoneer" elseif cur_year > 1992 then GetTruck = "Cherokee 4WD, RHD" else GetTruck = "Cherokee Briarwood" end if Case "R" GetTruck = "Grand Cherokee (WK)" Case "T" if cur_year < 2007 Then GetTruck = "Cherokee - 2WD" else GetTruck = "Compass Left Hand Drive (FWD)" Case "W" GetTruck = "Grand Cherokee (WJ) - 4WD" Case "2" if cur_year < 2001 Then GetTruck = "Grand Cherokee (WJ) - 2WD" else GetTruck = "Grand Cherokee (WJ) - 4WD" Case "7" if cur_year < 2007 Then GetTruck = "Grand Cherokee (WJ) - 2WD, RHD" else GetTruck = "Compass(4x4), RHD" Case "8" GetTruck = "Grand Cherokee(WJ) - 4WD, RHD" Case "X" if cur_year < 2001 Then GetTruck = "Grand Cherokee (ZJ) - 2WD, RHD" else GetTruck = "Grand Cherokee (WJ) - 2WD" Case "Y" GetTruck = "Wrangler" Case "Z" GetTruck = "Grand Cherokee (ZJ) - 4WD" Case "S" if cur_year < 2005 Then GetTruck = "Grand Wagoneer" else GetTruck = "Grand Cherokee (WK)" ' Åñëè äî 1989 ãîäà Case "13" GetTruck = "Wagoneer/SJ MPV 4-door" Case "14" GetTruck = "Wagoneer/SJ MPV 4-door" Case "15" GetTruck = "GRAND WAGONEER/SJ" Case "16" GetTruck = "Cherokee/SJ MPV 2-door" Case "17" GetTruck = "Cherokee/SJ MPV 2-door, WT" Case "18" GetTruck = "Cherokee/SJ MPV 4-door" Case "19" GetTruck = "Cherokee/SJ MPV 4-door, WT" Case "25" GetTruck = "J10 TRUCK 119 WHEELBASE" Case "26" GetTruck = "J10 TRUCK 131 WHEELBASE" Case "27" GetTruck = "J20 TRUCK 131 WHEELBASE" Case "63" GetTruck = "4WD COMANCHE 6`BOX" Case "64" GetTruck = "Hinterantrieb COMANCHE 6`BOX" Case "65" GetTruck = "4WD COMANCHE 7`BOX" Case "66" GetTruck = "2WD COMANCHE 7`BOX" Case "73" GetTruck = "CHEROKEE (XJ) - 2WD, 2-door" Case "74" GetTruck = "CHEROKEE (XJ) - 2WD, 4-door" Case "75" GetTruck = "CHEROKEE (XJ) - 4WD, 4-door" Case "77" GetTruck = "CHEROKEE (XJ) - 4WD, 2-door" Case "78" GetTruck = "CHEROKEE (XJ) - 4WD, 4-door" Case "79" GetTruck = "CHEROKEE (XJ) - 4WD, 4-door" Case "81" GetTruck = "WRANGLER" Case "85" GetTruck = "CJ-5" Case "86" GetTruck = "CJ-6" Case "87" GetTruck = "CJ-7" Case "88" GetTruck = "SJ-8, SCRAMBLER" Case else GetTruck = "n/a" End select End function '************************** øåñòîé ñèìâîë - ìîäèôèêàöèÿ ******************************************** Function GetSeries (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) ss=Mid(vin_code, 6, 1) tt=Truck_code(vin_code) if tt = "Y" or tt = "A" Then 'åñëè Wrangler select case ss case "1" GetSeries = "Sport (Wrangler)" case "2" GetSeries = "Base/SE" case "3" if cur_year < 2002 then GetSeries = "ISLANDER" else GetSeries = "X" end if case "4" if cur_year < 2000 then GetSeries = "Sahara" 'elseif cur_year > 2003 then 'GetSeries = "Unlimited" else GetSeries = "Sport" end if case "5" if cur_year < 2000 then GetSeries = "Laredo" else GetSeries = "Sahara" end if case "6" if cur_year < 2002 then GetSeries = "Renegade" else GetSeries = "Rubicon" end if case "7" GetSeries = "Limited or Country" case "A" GetSeries = "3-speed Automatic Transmission (Europe)" case "B" GetSeries = "4-speed Automatic Transmission (Europe)" case "N" GetSeries = "5-speed Manual Transmission (Europe)" case else GetSeries = "n/a" end select elseif tt = "Z" Then 'Grand Cherokee (ZJ) select case ss case "4" if cur_year < 1998 Then GetSeries = "Laredo" else GetSeries = "TSI or Laredo Special Edition" case "5" GetSeries = "Laredo" case "6" GetSeries = "Base" case "7" GetSeries = "Limited" case "8" if cur_year < 1998 Then GetSeries = "Grand Wagoneer" else GetSeries = "5,9 Limited" case "A" GetSeries = "3-speed Automatic Transmission (Europe)" case "B" GetSeries = "4-speed Automatic Transmission (Europe)" case "N" GetSeries = "5-speed Manual Transmission (Europe)" case else GetSeries = "n/a" end select elseif tt = "W" or tt = "2" Then '*************åñëè Grand Cherokee 99 ãîäà select case ss case "3" GetSeries = "Sport" case "4" GetSeries = "Laredo" case "5" if cur_year < 2000 then GetSeries = "Laredo" else GetSeries = "Limited" case "6" if cur_year < 2000 then GetSeries = "Limited" else GetSeries = "Overland" case "C" GetSeries = "5-speed Automatic Transmission (Europe)" case "E" GetSeries = "5-speed Automatic Transmission (Europe)" case "B" GetSeries = "4-speed Automatic Transmission (Europe)" case else GetSeries = "n/a" end select elseif tt = "K" or tt = "L" or tt = "M" Then '*************åñëè Liberty select case ss case "3" GetSeries = "Renegad" case "4" GetSeries = "Sport" case "5" GetSeries = "Limited" case "E" GetSeries = "5-speed Automatic Transmission (Europe)" case else GetSeries = "n/a" end select elseif tt = "X" Then '***********åñëè Grand Cherokee Hinterantrieb (ZJ or WJ) select case ss case "4" GetSeries = "Laredo" case "5" if cur_year < 1999 then GetSeries = "Laredo" else GetSeries = "Limited" end if case "6" GetSeries = "Base" case "7" GetSeries = "Limited" case "8" if cur_year < 1998 Then GetSeries = "Grand Wagoneer" else GetSeries = "5,9 Limited" case "A" GetSeries = "3-speed Automatic Transmission (Europe)" case "B" GetSeries = "4-speed Automatic Transmission (Europe)" case "N" GetSeries = "5-speed Manual Transmission (Europe)" case else GetSeries = "n/a" end select elseif tt = "R" or tt = "S" Then '***********åñëè Grand Cherokee (WK) select case ss case "4" GetSeries = "Laredo" case "5" GetSeries = "Limited" case else GetSeries = "n/a" end select elseif tt = "G" Then '***********if Commander (XK) select case ss case "4" GetSeries = "Base" case "5" GetSeries = "Limited" case "7" GetSeries = "SRT 8" case else GetSeries = "n/a" end select else 'if rest select case ss case "1" GetSeries = "Sport" case "2" GetSeries = "SE" case "3" GetSeries = "PIONEER" case "4" GetSeries = "Sport" case "5" if cur_year < 2000 then GetSeries = "Laredo" elseif cur_year = 2000 then GetSeries = "Classic" else GetSeries = "Limited" end if case "6" GetSeries = "Sport/Classic" case "7" GetSeries = "Limited oder Country" case "8" GetSeries = "Grundausstattung" case "A" GetSeries = "3-speed Automatic Transmission (Europe)" case "B" GetSeries = "4-speed Automatic Transmission (Europe)" case "N" GetSeries = "5-speed Manual Transmission (Europe)" case else GetSeries = "n/a" end select End if If Old(vin_code) Then GetSeries = "Till 1989 SERIES in a VIN-code was absent" End function '************************************** òðàíñìèññèÿ äëÿ ìîäåëåé äî 1989 ãîäà ****************** Function GetTrans (vin_code) Select case Mid(vin_code, 5, 1) case "A" if cur_year < 1986 then GetTrans = "3 Speed, Automatic Transmission, Column Shift, Full Time Transfer Case" else GetTrans = "3-speed automatic, column gear shift, 2WD" end if case "B" GetTrans = "Automatic Transmission, Floor Shift, Part Time Transfer Case" case "C" GetTrans = "3 Speed,Automatic Transmission, Full Time Transfer Case" case "D" GetTrans = "3 Speed, Automatic Transmission, 2WD" case "E" GetTrans = "3 Speed, Automatic Transmission Part Time Transfer Case" case "F" GetTrans = "5 Speed,Manual Transmission, Part Time Transfer Case" case "G" if cur_year < 1987 then GetTrans = "4-Speed,Manual Transmission, Full Time Transfer Case" else GetTrans = "4-speed automatic, column gear shift, 2WD" end if case "H" GetTrans = "4-Speed, Manual Transmission, Part Time or Full Time Transfer Case" case "J" if cur_year < 1987 then GetTrans = "3-Speed, Automatic Transmission, column gear shift, Part Time or Full Time Transfer Case" else GetTrans = "4-speed automatic, column gear shift, Full Time Transfer Case" end if case "1" GetTrans = "3-speed, Automatic Transmission, Part Time Transfer Case" case "K" GetTrans = "Automatic Transmission, Part Time or Full Time Transfer Case" case "L" GetTrans = "5-Speed, Manual Transmission, Part Time Transfer Case" case "M" GetTrans = "4-Speed, Manual Transmission, Part Time Transfer Case" case "N" if cur_year < 1984 then GetTrans = "5-Speed, Manual Transmission, Part Time Transfer Case" else GetTrans = "5 Speed, Manual Transmission, Full Time Transfer Case" end if case "P" if cur_year < 1987 then GetTrans = "5-Speed, Manual Transmission, Full Time Transfer Case" else GetTrans = "4-speed, Automatic Transmission, column gear shift, Part Time Transfer Case" end if case "R" GetTrans = "Automatic Transmission, Part Time Transfer Case" case "S" GetTrans = "4-Speed,Manual Transmission, 2WD" case "T" GetTrans = "Automatic Transmission, Full Time Transfer Case" case "U" GetTrans = "4-Speed,Automatic Transmission, 2WD" case "V" GetTrans = "5-Speed, Manual Transmission, Part Time Transfer Case" case "W" GetTrans = "5-Speed, Manual Transmission, 2WD" case "X" GetTrans = "4-Speed, Manual Transmission, Part Time Transfer Case" case "Y" GetTrans = "4-Speed, Manual Transmission, Part Time Transfer Case" case "Z" GetTrans = "3-Speed, Automatic Transmission, Transfer Case NP231" case else GetTrans = "n/a" End select If not Old(vin_code) Then GetTrans = "Till 1989 Transmission/Transfer Case type in a VIN-code was absent" End function '************************************** 7 symbol *********************************************** Function GetBody (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) select case Mid(vin_code, 7, 1) case "6" GetBody = "Comanche, 2-door pick-up" case "7" if cur_year < 2007 then GetBody = "2-door" else GetBody = "4-door" end if case "8" GetBody = "4-door" case "4" if cur_year < 2007 then GetBody = "Extended Open Body" else GetBody = "Open Body" end if case "9" if cur_year < 2007 then GetBody = "Open Body" else GetBody = "Extended Open Body" end if case else GetBody = "n/a" end select If Old(vin_code) Then GetBody = " Till 1989 body type in a VIN-code was absent" End function '********************************* ñåäüìîé ñèìâîë - òèï êóçîâà ************************** Function GetEngine (vin_code) ec = Mid(vin_code, 8, 1) model = Mid(vin_code, 5, 1) if Old(vin_code) Then ec = Mid(vin_code, 4, 1) model = Mid(vin_code, 6, 2) End if cur_year = GetYear(Mid(vin_code, 10, 1)) Select case ec case "1" if cur_year < 2007 then GetEngine = "2,4 litres, I-4, multipoint injection" else GetEngine = "3,8 litres, V-6, multipoint injection" end if case "3" GetEngine = "6,1 litres, V-8" case "4" GetEngine = "3,1 litres, I-5, Turbo Diesel" case "K" GetEngine = "3,7 litres, V-6" case "C" GetEngine = "4,2 litres, I-6, carburettor" case "D" GetEngine = "2,5 litres, I-4" case "E" GetEngine = "2,5 litres, I-4, central injection" case "J" GetEngine = "4,7 litres, V-8, multipoint injection, HO" case "G" GetEngine = "2,5 litres, I-4, central injection" case "L" GetEngine = "4,0 litres, I-6" case "S" GetEngine = "4,0 litres, I-6, HO" case "T" GetEngine = "4,2 litres, I-6" case "V" GetEngine = "4,0 litres, I-6, multipoint injection, gas leaded" case "Y" if cur_year < 2007 then GetEngine = "5,2 litres, V-8, multipoint injection" else GetEngine = "2,0 litres, I-4, Diesel" end if case "W" if cur_year < 2000 then GetEngine = "2,8 litres, V-6, carburettor" else GetEngine = "2,4 litres, 4-cyl, multipoint injection" end if case "Z" GetEngine = "5,9 litres, V-8, multipoint injection" case "B" if cur_year > 1983 then GetEngine = "Diesel, 2,1 litres, I-4, Renault" else GetEngine = "2,5 litres, I-4, GM" case "2" if cur_year < 2005 then GetEngine = "Diesel, 2,7 litres, I-5, Mercedes" else GetEngine = "5,7 litres, V-8" end if case "A" if cur_year < 2002 then GetEngine = "4,2 litres, I-6" else GetEngine = "Diesel, 2,7 litres, I-5, Mercedes" end if case "5" GetEngine = "Turbo Diesel, 2,8 litres, I-4, VM Motori" case "7" if cur_year < 2000 then GetEngine = "5,9 litres, V-8, multipoint injection" else GetEngine = "2,5 litres, I-4, 16-valve,Turbo Diesel" end if case "P" if cur_year < 1987 then GetEngine = "Diesel, 2,1 litres, I-4, Renault" elseif cur_year < 1991 then GetEngine = "2,5 litres, I-4, central injection" else GetEngine = "2,5 litres, I-4, multipoint injection" end if case "H" if cur_year < 1986 then GetEngine = "5,0 litres, V-8" elseif cur_year < 1991 then GetEngine = "2,5 litres, I-4, central injection" else GetEngine = "2,5 litres, I-4, multipoint injection" end if case "F" if cur_year > 1986 then GetEngine = "2,5 litres, I-4, carburettor" else GetEngine = "Diesel, 2,5 litres, Isuzu" case "M" if cur_year = 1989 or cur_year = 1990 then GetEngine = "4,2 litres, I-6, carburettor" elseif cur_year = 1987 or cur_year = 1988 then GetEngine = "4,0 litres, I-6, EFI" else GetEngine = "Turbo Diesel, 2,5 litres, I-4, VM Motori" end if 'åñëè CJ-7 case "U" if model = "87" Then GetEngine = "4,0 litres, I-6, carburettor" else GetEngine = "2,5 litres, I-4, carburettor" case "N" if cur_year < 1999 Then GetEngine = "5,9 litres, V-8" else GetEngine = "4,7 litres, V-8, multipoint injection" case else GetEngine = "n/a" end select End function '************************* îäèííàäöàòûé ñèìâîë - çàâîä ******************************* Function GetPlant (plant) Select Case plant Case "A" GetPlant ="Auburn Hills" Case "B" GetPlant ="Brampton Plant (Bramalea, Ontario)" Case "C" GetPlant ="Detroit (Jefferson North)" Case "D" GetPlant ="Belvidere Assembly" Case "J" GetPlant ="Brampton Plant (Bramalea, Ontario)" Case "L" GetPlant ="Toledo #1" Case "P" GetPlant ="Toledo #2" Case "E" GetPlant ="Beijing Jeep Corp., Ltd" Case "T" GetPlant ="Toledo, Ohio" Case "W" GetPlant ="Toledo #3, Ohio, USA" Case "Y" GetPlant ="Steyr, Austria" Case else GetPlant = "n/a" End Select End function '********************************************************************************************************************** Function ChartoDigit (symbol) Select Case symbol Case "A" ChartoDigit = 1 Case "B" ChartoDigit = 2 Case "C" ChartoDigit = 3 Case "D" ChartoDigit = 4 Case "E" ChartoDigit = 5 Case "F" ChartoDigit = 6 Case "G" ChartoDigit = 7 Case "H" ChartoDigit = 8 Case "J" ChartoDigit = 1 Case "K" ChartoDigit = 2 Case "L" ChartoDigit = 3 Case "M" ChartoDigit = 4 Case "N" ChartoDigit = 5 Case "P" ChartoDigit = 7 Case "R" ChartoDigit = 9 Case "S" ChartoDigit = 2 Case "T" ChartoDigit = 3 Case "U" ChartoDigit = 4 Case "V" ChartoDigit = 5 Case "W" ChartoDigit = 6 Case "X" ChartoDigit = 7 Case "Y" ChartoDigit = 8 Case "Z" ChartoDigit = 9 Case "0" ChartoDigit = 0 Case "1" ChartoDigit = 1 Case "2" ChartoDigit = 2 Case "3" ChartoDigit = 3 Case "4" ChartoDigit = 4 Case "5" ChartoDigit = 5 Case "6" ChartoDigit = 6 Case "7" ChartoDigit = 7 Case "8" ChartoDigit = 8 Case "9" ChartoDigit = 9 Case else ChartoDigit = 0 End select End function '********************************* äåñÿòûé ñèìâîë ************************** Function GetYear (yearcode) Select Case yearcode Case "9" GetYear = "2009" Case "8" GetYear = "2008" Case "7" GetYear = "2007" Case "6" GetYear = "2006" Case "5" GetYear = "2005" Case "4" GetYear = "2004" Case "3" GetYear = "2003" Case "2" GetYear = "2002" Case "1" GetYear = "2001" Case "Y" GetYear = "2000" Case "X" GetYear = "1999" Case "W" GetYear ="1998" Case "V" GetYear ="1997" Case "T" GetYear ="1996" Case "S" GetYear ="1995" Case "R" GetYear ="1994" Case "P" GetYear ="1993" Case "N" GetYear ="1992" Case "M" GetYear ="1991" Case "L" GetYear ="1990" Case "K" GetYear ="1989" Case "J" GetYear ="1988" Case "H" GetYear ="1987" Case "G" GetYear ="1986" Case "F" GetYear ="1985" Case "E" GetYear ="1984" Case "D" GetYear ="1983" Case "C" GetYear ="1982" Case "B" GetYear ="1981" Case "A" GetYear ="1980" Case else GetYear = "n/a" End Select End function Engine_pos = 8 Model_pos = "5" pos = 5 nn = 1 If Old(code) Then Engine_pos = 4 Model_pos = "6-7" pos = 6 nn = 2 End if %> <% '************************************************* 9 ñèìâîë *************************************************** 'Ïðîâåðÿåì êîíòðîëüíóþ öèôðó symbol_1 = ChartoDigit(Mid(code, 1, 1)) value_1 = symbol_1 * 8 symbol_2 = ChartoDigit(Mid(code, 2, 1)) value_2 = symbol_2 * 7 symbol_3 = ChartoDigit(Mid(code, 3, 1)) value_3 = symbol_3 * 6 symbol_4 = ChartoDigit(Mid(code, 4, 1)) value_4 = symbol_4 * 5 symbol_5 = ChartoDigit(Mid(code, 5, 1)) value_5 = symbol_5 * 4 symbol_6 = ChartoDigit(Mid(code, 6, 1)) value_6 = symbol_6 * 3 symbol_7 = ChartoDigit(Mid(code, 7, 1)) value_7 = symbol_7 * 2 symbol_8 = ChartoDigit(Mid(code, 8, 1)) value_8 = symbol_8 * 10 symbol_9 = ChartoDigit(Mid(code, 9, 1)) symbol_10 = ChartoDigit(Mid(code, 10, 1)) value_10 = symbol_10 * 9 symbol_11 = ChartoDigit(Mid(code, 11, 1)) value_11 = symbol_11 * 8 symbol_12 = ChartoDigit(Mid(code, 12, 1)) value_12 = symbol_12 * 7 symbol_13 = ChartoDigit(Mid(code, 13, 1)) value_13 = symbol_13 * 6 symbol_14 = ChartoDigit(Mid(code, 14, 1)) value_14 = symbol_14 * 5 symbol_15 = ChartoDigit(Mid(code, 15, 1)) value_15 = symbol_15 * 4 symbol_16 = ChartoDigit(Mid(code, 16, 1)) value_16 = symbol_16 * 3 symbol_17 = ChartoDigit(Mid(code, 17, 1)) value_17 = symbol_17 * 2 summ_total = value_1+value_2+value_3+value_4+value_5+value_6+value_7+value_8+value_10+value_11+value_12+value_13+value_14+value_15+value_16+value_17 control_result = summ_total - Int(summ_total / 11)*11 Select case control_result Case 10 control_digit = "X" Case else control_digit = control_result End select Select case control_result Case symbol_9 CheckControl = "Has passed check" Case 10 if Mid(code, 9, 1) = "X" Then CheckControl = "Has passed check" else CheckControl = " Has not passed check, the symbol on 9-th position should be X" Case else CheckControl = " Has not passed check, the symbol on 9-th position should be " & control_digit End select %>

<%= SaveVIN(code) %>

 

<%If not Old(code) then%> <%End If%> <%If not Old(code) then%> <%else%> <%end if%> <%If not Old(code) then%> <%end if%>

Position

 Symbol

Name

Value

1

<%= Mid(code, 1, 1) %>

Country :

<%= GetCountry(Mid(code, 1, 1)) %> 

2

<%= Mid(code, 2, 1) %>

Manufacturer:

<%= GetMake(Mid(code, 2, 1)) %> 

3

<%= Mid(code, 3, 1) %>

Type:

<%= GetType(code) %> 

4

<%= Mid(code, 4, 1) %>

GVWR (Gross Vehicle Weight Rating ) :

<% = GetWeight(Mid(code, 4, 1)) %>  

<%=Model_pos%>

<%= Mid(code, pos, nn) %>

Model:

<%= GetTruck(code) %> 

6

<%= Mid(code, 6, 1) %>

Series:

<% = GetSeries(code) %>  

5

<%= Mid(code, 5, 1) %>

Transmission/transfercase:

<% = GetTrans(code) %>

7

<%= Mid(code, 7, 1) %>

Body type

<% = GetBody(code) %>

<%=Engine_pos%>

<%= Mid(code, Engine_pos, 1) %>

Engine

<% = GetEngine(code) %> 

9

<%= Mid(code, 9, 1) %>

Control digit:

<%= CheckControl%> 

10

<%= Mid(code, 10, 1) %>

Year:

<%= GetYear(Mid(code, 10, 1)) %> 

11

<%= Mid(code, 11, 1) %>

Plant:

<%= GetPlant(Mid(code, 11, 1)) %> 

12-17

<%= Mid(code, 12, 6) %>

Serial number

<%= Mid(code, 12, 6) %> 

Control (check) digit calculation

Symbol

<%= ch_1 %>

<%= ch_2 %>

<%= ch_3 %>

<%= ch_4 %>

<%= ch_5 %>

<%= ch_6 %>

<%= ch_7 %>

<%= ch_8 %>

<%= ch_9 %>

<%= ch_10 %>

<%= ch_11 %>

<%= ch_12 %>

<%= ch_13 %>

<%= ch_14 %>

<%= ch_15 %>

<%= ch_16 %>

<%= ch_17 %>

Numeric value:

<%= symbol_1%>

<%= symbol_2%>

<%= symbol_3%>

<%= symbol_4%>

<%= symbol_5%>

<%= symbol_6%>

<%= symbol_7%>

<%= symbol_8%>

*

<%= symbol_10%>

<%= symbol_11%>

<%= symbol_12%>

<%= symbol_13%>

<%= symbol_14%>

<%= symbol_15%>

<%= symbol_16%>

<%= symbol_17%>

Weight factor:

8

7

6

5

4

3

2

10

*

9

8

7

6

5

4

3

2

Products:

<%= value_1%>

<%= value_2%>

<%= value_3%>

<%= value_4%>

<%= value_5%>

<%= value_6%>

<%= value_7%>

<%= value_8%>

*

<%= value_10%>

<%= value_11%>

<%= value_12%>

<%= value_13%>

<%= value_14%>

<%= value_15%>

<%= value_16%>

<%= value_17%>

The sum of all 16 products : <%= summ_total%>

<%= summ_total%> divided by 11 gives a remainder <%= control_result%>

Another words, <%= summ_total%> =( <%= Int(summ_total / 11)%> x 11) + <%= control_result%>

Thus, on 9-th position of a VIN-code there should be a symbol <%= control_digit%>

What is Control (Check) Digit? Click here

 

Return

 

 

 My e-mail

  <% End If %> <% End If %> Главная страница