Jeep VIN-Dekoder


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

(English version here: VIN-Decoder)

Geben Sie VIN-Code ein:


<% 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 '********************************************* %>

Ihr VIN-Code : <%= 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 %>

Stellennummer

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

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

VIN-Code muss 17 Symbole enthalten

Zurueck

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

folgende Symbole muss VIN-Code nicht enthalten I,O è Q

Unzulaessige Symbole sind rot.

Typische Fehler:
statt Symbol "1" schreibt man fehlerhaft "I"
statt Symbol "0" (Null) schreibt man fehlerhaft "O"
statt Symbol "0" (Null) schreibt man fehlerhaft "Q"
statt Symbol "C" (englisch) schreibt man fehlerhaft "Ñ" (ðóññêîå)

 

Zurueck <% 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 = "Kanada" Case "3" GetCountry = "Mexiko" Case "4" GetCountry = "USA" Case "6" GetCountry = "Australien" Case "9" GetCountry = "Brasilien" Case "J" GetCountry = "Japan" Case "K" GetCountry = "Korea" Case "L" GetCountry = "Taiwan" Case "S" GetCountry = "England" Case "V" GetCountry = "Frankreich" Case "W" GetCountry = "Deutschland" Case "Y" GetCountry = "Schweden" Case "Z" GetCountry = "Italien" Case else GetCountry = "das Herstellland ist nicht klar" 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 = "Der Hersteller ist nicht klar, das Symbol soll einen von: J, B, E sein" 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 (Mehrzweckauto)" Case "T" GetType = "TRUCK" Case "D" GetType = "nicht komplett" Case else GetType = "Der Typ des Autos ist unverstandlich, das Symbol soll einen: C, T, D sein" End select Else Select case symbol_3 Case "1" GetType = "MPV (Mehrzweckauto)" Case "4" GetType = "MPV (Mehrzweckauto)" Case "2" GetType = "TRUCK" Case "6" GetType = "nicht komplett" Case "7" GetType = "TRUCK" Case "8" GetType = "MPV (Mehrzweckauto)" Case else GetType = "Der Typ des Autos ist unverstandlich, das Symbol soll einen: 1,2,4,6,7 sein" 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 = "Das Gewicht ist nicht klar, das Symbol soll einen: D, E, F, G, H, J sein" 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 - Hinterantrieb" Case "L" GetTruck = "Liberty - Allradantrieb" Case "M" GetTruck = "Cherokee - Allradantrieb, Lenkrad rechts" Case "A" GetTruck = "Wrangler" Case "4" GetTruck = "Wrangler, Lenkrad rechts" Case "E" GetTruck = "Wrangler, RHD" Case "B" if cur_year < 2007 Then GetTruck = "Cherokee - Hinterantrieb, Lenkrad rechts" else GetTruck = "Wrangler - Hinterantrieb" Case "F" if cur_year < 2007 Then GetTruck = "Cherokee - Allradantrieb" else GetTruck = "COMPASS 4wd" Case "G" GetTruck = "Commander (XK)" Case "J" GetTruck = "Cherokee - Allradantrieb, Lenkrad links" case "N" if cur_year < 1991 then GetTruck = "Cherokee Wagoneer" elseif cur_year > 1992 then GetTruck = "Cherokee - Allradantrieb, Lenkrad rechts" else GetTruck = "Cherokee Briarwood" end if Case "R" GetTruck = "Grand Cherokee (WK)" Case "T" if cur_year < 2007 Then GetTruck = "Cherokee - Hinterantrieb, Lenkrad links" else GetTruck = "Compass(FWD), Lenkrad links" Case "W" GetTruck = "Grand Cherokee (WJ) - Allradantrieb" Case "2" if cur_year < 2001 Then GetTruck = "Grand Cherokee (WJ) - Hinterantrieb" else GetTruck = "Grand Cherokee (WJ) - Allradantrieb" Case "7" if cur_year < 2007 Then GetTruck = "Grand Cherokee (WJ) - Hinterantrieb, Lenkrad rechts" else GetTruck = "Compass(4x4), Lenkrad rechts" Case "8" GetTruck = "Grand Cherokee(WJ) - 4WD, Lenkrad rechts" Case "X" if cur_year < 2001 Then GetTruck = "Grand Cherokee (ZJ) - Hinterantrieb" else GetTruck = "Grand Cherokee (WJ) - Hinterantrieb" Case "Y" GetTruck = "Wrangler" Case "Z" GetTruck = "Grand Cherokee (ZJ) - Allradantrieb, Lenkrad links" Case "S" if cur_year < 2005 Then GetTruck = "Grand Wagoneer" else GetTruck = "Grand Cherokee (WK)" ' Åñëè äî 1989 ãîäà Case "13" GetTruck = "Wagoneer/SJ MPV 4-tuerig Wagon" Case "14" GetTruck = "Wagoneer/SJ MPV 4-tuerig Wagon" Case "15" GetTruck = "GRAND WAGONEER/SJ" Case "16" GetTruck = "Cherokee/SJ MPV 2-tuerig Wagon" Case "17" GetTruck = "Cherokee/SJ MPV 2-tuerig Wagon WT" Case "18" GetTruck = "Cherokee/SJ MPV 4-tuerig Wagon" Case "19" GetTruck = "Cherokee/SJ MPV 4-tuerig Wagon 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) - Hinterantrieb, 2-tuerig" Case "74" GetTruck = "CHEROKEE (XJ) - Hinterantrieb, 4-tuerig" Case "75" GetTruck = "CHEROKEE (XJ) - Allradantrieb, 4-tuerig" Case "77" GetTruck = "CHEROKEE (XJ) - Allradantrieb, 2-tuerig" Case "78" GetTruck = "CHEROKEE (XJ) - Allradantrieb, 4-tuerig" Case "79" GetTruck = "CHEROKEE (XJ) - Allradantrieb, 4-tuerig" 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 = "Diese Ausfuerung ist unbekannt" 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 oder Country" case "A" GetSeries = "3-Gang automatische Getriebe (europaeische Ausfuerung)" case "B" GetSeries = "4-Gang automatische Getriebe (europaeische Ausfuerung)" case "N" GetSeries = "5-Gang Schaltgetriebe (europaeische Ausfuerung)" case else GetSeries = "unbekannte Ausfuerung, erlaubte Symbole: 1,2,3,4,5,6,7,8,A,B,N" end select elseif tt = "Z" Then 'åñëè Grand Cherokee (ZJ) select case ss case "4" if cur_year < 1998 Then GetSeries = "Laredo" else GetSeries = "TSI oder 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-Gang automatische Getriebe (europaeische Ausfuerung)" case "B" GetSeries = "4-Gang automatische Getriebe (europaeische Ausfuerung)" case "N" GetSeries = "5-Gang Schaltgetriebe (europaeische Ausfuerung)" case else GetSeries = "unbekannte Ausfuerung, erlaubte Symbole: 1,2,3,4,5,6,7,8,A,B,N" 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-Gang automatische Getriebe (europaeische Ausfuerung)" case "E" GetSeries = "5-Gang automatische Getriebe (europaeische Ausfuerung)" case "B" GetSeries = "4-Gang automatische Getriebe (europaeische Ausfuerung)" case else GetSeries = "unbekannte Ausfuerung" 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-Gang automatische Getriebe (europaeische Ausfuerung)" case else GetSeries = "unbekannte Ausfuerung" end select elseif tt = "X" Then '***********åñëè Grand Cherokee Hinterantrieb (ZJ oder 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-Gang automatische Getriebe (europaeische Ausfuerung)" case "B" GetSeries = "4-Gang automatische Getriebe (europaeische Ausfuerung)" case "N" GetSeries = "5-Gang Schaltgetriebe (europaeische Ausfuerung)" case else GetSeries = "unbekannte Ausfuerung, erlaubte Symbole: 1,2,3,4,5,6,7,8,A,B,N" 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 = "unbekannte Ausfuerung" 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 = "unbekannte Ausfuerung" 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-Gang automatische Getriebe (europaeische Ausfuerung)" case "B" GetSeries = "4-Gang automatische Getriebe (europaeische Ausfuerung)" case "N" GetSeries = "5-Gang Schaltgetriebe (europaeische Ausfuerung)" case else GetSeries = "unbekannte Ausfuerung, erlaubte Symbole: 1,2,3,4,5,6,7,8,A,B,N" end select End if If Old(vin_code) Then GetSeries = "Bis zum Jahre 1989 gab es keine Ausfuerung in VIN-Code" End function '************************************** òðàíñìèññèÿ äëÿ ìîäåëåé äî 1989 ãîäà ****************** Function GetTrans (vin_code) Select case Mid(vin_code, 5, 1) case "A" GetTrans = "Automatik, 3-Gang, (Verteilergetriebe part-time)" case "B" GetTrans = "Automatik, (Verteilergetriebe part-time)" case "C" GetTrans = "Automatik, (Verteilergetriebe full-time)" case "D" GetTrans = "Automatik (2WD)" case "E" GetTrans = "Automatik, (Verteilergetriebe part-time)" case "F" GetTrans = "5-Gang Schaltgetriebe (Verteilergetriebe part-time)" case "G" GetTrans = "Schaltgetriebe, 4-Gang (Verteilergetriebe part-time)" case "H" GetTrans = "Schaltgetriebe, 4-Gang Schalter unten (4WD)" case "J" GetTrans = "3-Gang, Automatik, Schalter an Lenkseule (Verteilergetriebe full-time)" case "1" GetTrans = "3-Gang, Automatik, Schalter an Lenkseule (Verteilergetriebe part-time)" case "K" GetTrans = "Automatik, Schalter unten 4WD)" case "L" GetTrans = "Schaltgetriebe, 5-Gang (Verteilergetriebe part-time)" case "M" GetTrans = "Schaltgetriebe, 4-Gang (Verteilergetriebe part-time)" case "N" GetTrans = "Schaltgetriebe, 5-Gang (Verteilergetriebe part-time)" case "P" GetTrans = "Schaltgetriebe, 5-Gang (Verteilergetriebe full-time)" case "R" GetTrans = "Automatik, Schalter unten (Verteilergetriebe part-time)" case "S" GetTrans = "Schaltgetriebe, 4-Gang Schalter unten (2WD)" case "T" GetTrans = "Automatik, Schalter unten (Verteilergetriebe full-time)" case "U" GetTrans = "Automatik (çàäíåïðèâîäíûé)" case "V" GetTrans = "Schaltgetriebe, 5-Gang Schalter unten" case "W" GetTrans = "Schaltgetriebe, 5-Gang (Hinterantrieb)" case "X" GetTrans = "Schaltgetriebe, 4-Gang (Verteilergetriebe part-time)" case "Y" GetTrans = "Schaltgetriebe, 4-Gang " case "Z" GetTrans = "Automatik (Verteilergetriebe NP231)" case else GetTrans = "Der Getriebetyp ist unbekannt" End select If not Old(vin_code) Then GetTrans = "Ab Jahre 1988 gibt es kenen Getriebetyp in VIN-Code" End function '************************************** ñåäüìîé ñèìâîë - òèï êóçîâà *********************************************** Function GetBody (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) select case Mid(vin_code, 7, 1) case "6" GetBody = "Comanche, 2-tuerig pick-up" case "7" if cur_year < 2007 then GetBody = "2-tuerig" else GetBody = "4-tuerig" end if case "8" GetBody = "4-tuerig" case "4" if cur_year < 2007 then GetBody = "offen, lang" else GetBody = "offen" end if case "9" if cur_year < 2007 then GetBody = "offen" else GetBody = "offen, lang" end if case else GetBody = "n/a" end select If Old(vin_code) Then GetBody = " Bis zum Jahre 1989 gab es keine Karosserietyp in VIN-Code" 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 liter, 4-zylinder, Mehrstellen-Einspritzung" else GetEngine = "3,8 liter, V-Motor, 6-zylinder, Mehrstellen-Einspritzung" end if case "3" GetEngine = "6,1 liter, 8-zylinder" case "4" GetEngine = "3,1 liter, 5-zylinder, turbodiesel" case "K" GetEngine = "3,7 liter, V-Motor, 6-zylinder" case "C" GetEngine = "4,2 liter, Reihenmotor, 6-zylinder, Vergaser" case "D" GetEngine = "2,5 liter, Reihenmotor, 4-zylinder" case "E" GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Zentraleinspritzung" case "J" GetEngine = "4,7 liter, V-Motor, 8-zylinder, HO" case "G" GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Zentraleinspritzung" case "L" GetEngine = "4,0 liter, Reihenmotor, 6-zylinder, Mehrstellen-Einspritzung" case "S" GetEngine = "4,0 liter, Reihenmotor, 6-zylinder, HO" case "T" GetEngine = "4,2 liter, Reihenmotor, 6-zylinder" case "V" GetEngine = "4,0 liter, Reihenmotor, 6-zylinder, Mehrstellen-Einspritzung" case "Y" if cur_year < 2007 then GetEngine = "5,2 liter, V-Motor, 8-zylinder, Mehrstellen-Einspritzung" else GetEngine = "2,0 liter, 4-zylinder, Diesel" end if case "W" if cur_year < 2000 then GetEngine = "2,8 liter, V-Motor, 6-zylinder, Vergaser" else GetEngine = "2,4 liter, 4-zylinder, Mehrstellen-Einspritzung" end if case "Z" GetEngine = "5,9 liter, V-Motor, 8-zylinder, Mehrstellen-Einspritzung" case "B" if cur_year > 1983 then GetEngine = "diesel, 2,1 liter, Reihenmotor, 4-zylinder, Renault" else GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, GM" case "2" if cur_year < 2005 then GetEngine = "Diesel, 2,7 liter, 5-zylinder, Mercedes-Benz" else GetEngine = "5,7 liter, 8-zylinder" end if case "A" if cur_year < 2002 then GetEngine = "4,2 liter, Reihenmotor, 6-zylinder" else GetEngine = "diesel, 2,7 liter, 5-zylinder, Mercedes-Benz" end if case "5" GetEngine = "2,8 liter, Reihenmotor, 4-zylinder, Turbodiesel von VM Motori" case "7" if cur_year < 2000 then GetEngine = "5,9 liter, V-Motor, 8-zylinder" else GetEngine = "2,5 liter, 4-zylinder, 16-Ventile,turbodiesel" end if case "P" if cur_year < 1986 then GetEngine = "diesel, 2,1 liter, Reihenmotor, 4-zylinder von Renault" elseif cur_year < 1991 then GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Zentraleinspritzung" else GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Mehrstellen-Einspritzung" end if case "H" if cur_year < 1986 then GetEngine = "5,0 liter, V-Motor, 8-zylinder" elseif cur_year < 1991 then GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Zentraleinspritzung" else GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Mehrstellen-Einspritzung" end if case "F" if cur_year > 1986 then GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, (1BBL) - Vergaser" else GetEngine = "diesel, 2,5 liter, Isuzu" case "M" if cur_year = 1989 or cur_year = 1990 then GetEngine = "4,2 liter, Reihenmotor, 6-zylinder, Vergaser" elseif cur_year = 1987 or cur_year = 1988 then GetEngine = "4,0 liter, Reihenmotor, 6-zylinder, EFI" else GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Turbodiesel von VM Motori" end if 'åñëè CJ-7 case "U" if model = "87" Then GetEngine = "4,0 liter, Reihenmotor, 6-zylinder, Vergaser" else GetEngine = "2,5 liter, Reihenmotor, 4-zylinder, Vergaser" case "N" if cur_year < 1999 Then GetEngine = "5,9 liter, V-Motor, 8-zylinder" else GetEngine = "4,7 liter, V-Motor, 8-zylinder" case else GetEngine = "Unbekannter Motortyp, erlaubte Symbole: A, C, D, E, G, L, S, T, V, Y, W, 7, B, P, H, F, M, U, N" end select End function '************************* 7 symbol ******************************* 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 = "das Werk ist unbekannt, das Symbol muss eines der : A,B,C,J,L,P,E,T,W sein" 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 = "Herstelljahr ist nicht klar" 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 = "Pruefung bestanden" Case 10 if Mid(code, 9, 1) = "X" Then CheckControl = "Pruefung bestanden" else CheckControl = " Pruefung nicht bestanden, Symbol soll X sein" Case else CheckControl = " Pruefung nicht bestanden, Symbol soll " & control_digit & " sein" 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%>

¹
 Pos.

 Symbol

Bedeutung

Ergebnis

1

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

Herstellerland :

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

2

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

Hersteller:

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

3

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

Autotyp:

<%= GetType(code) %> 

4

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

GVWR (Gross Vehicle Weight Rating )

zulaessiges Gewicht .

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

<%=Model_pos%>

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

Model:

<%= GetTruck(code) %> 

6

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

Ausfuerung:

<% = GetSeries(code) %>  

5

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

Getriebe, Verteilungsgetriebe

<% = GetTrans(code) %>

7

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

Karosserietyp

<% = GetBody(code) %>

<%=Engine_pos%>

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

Motor

<% = GetEngine(code) %> 

9

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

Pruefzahl:

<%= CheckControl%> 

10

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

Herstellungsjahr:

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

11

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

Werk:

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

12-17

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

Nummer

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

Berechnung der Pruefzahl

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 %>

Der numerische Wert

<%= 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%>

Gewichtsfaktor

8

7

6

5

4

3

2

10

*

9

8

7

6

5

4

3

2

Endergebniss

<%= 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%>

Die Summe von allen 16 Werten: <%= summ_total%>

<%= summ_total%> geteilt durch 11, ergeibt den ganzen Rest <%= control_result%>

Mit anderen Worten, <%= summ_total%> =( <%= Int(summ_total / 11)%> x 11) + <%= control_result%>

Auf diese Weise, an der Stelle 9 von  VIN-Code soll Symbol <%= control_digit%> sein

What is Control (Check) Digit? Click here

 

Zurueck

 

Dieses Program prueft die Richtigkeit des Codes nach einer Pruefzahl. Diese Pruefzahl befindet sich an der Stelle 9 in VIN-Code und wird aus anderen Symbolen von VIN-Code kalkuliert. Dies ist einer Art Verhiderung fuer Ubeltater VIN-Code zu aendern, denn in diesem Falle auch Pruefzahl auszurechnen un zu aendern ist..
Sollte diese Pruefung scheitern, es kann an fogenden drei Gruenden liegen :

1. Sie haben VIN-Code falsch aufgeschrieben, pruefen Sie noch mal (er soll keine solche Symbole enthalten I, O è Q).

2. Code ist nict korrekt (ziehen Sie selber die Konsekwenzen).

3. Ihr Auto wurde in China hergestellt (sie geben sich nicht viel Muehe Standarte einzuhalten ).

 

 

Ihre Bemerkungen und Vorschlaege schicken Sie

  <% End If %> <% End If %>

Главная страница