<% Option Explicit %> <% If Request.Form("lang") <> "" Then session("LANGUAGE") = Request.Form("lang") End If If session("LANGUAGE") = "" Then: session("LANGUAGE") = "SE" End If Dim TableRS, HeaterRS, varVariable, HeaterId, AssemblyId Dim HeaterName, HeaterPartNo Dim AssemblyName, AssemblyPartNo Dim Brand, Model, Engine, Counter Counter = "FFFFFF" HeaterId = Request.QueryString("HeaterId") AssemblyId = Request.QueryString("AssemblyId") Dim Conn Set Conn = server.createobject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".") & "/vehicledb/calixadm_huvudreplika.mdb;" Dim SQL Dim LanguageRS Dim FordonstyperRS, MarkeRS, ModellRS, MotorRS, ArtiklarRS Dim TempRS, TempStr, Skarvkabel Dim objRegExp, TempArr Dim rowColor Skarvkabel = "" Dim Fordonstyp, Marke, Modell, Motor Dim SelectionType, Engineheater, EngineheaterRS, Assemblykit, AssemblykitRS If Request.Form("SelectionType") <> "" Then SelectionType = Request.Form("SelectionType") Else SelectionType = 1 End If If Request.Form("Fordonstyp") <> "" Then Fordonstyp = Request.Form("Fordonstyp") Else Fordonstyp = "1" End If If Request.Form("Marke") <> "" Then Marke = Request.Form("Marke") Else Marke = "-1" End If If Request.Form("Modell") <> "" Then Modell = Request.Form("Modell") Else Modell = "-1" End If If Request.Form("Motor") <> "" Then Motor = Request.Form("Motor") Else Motor = "-1" End If If Request.QueryString("HeaterId") <> "0" Then Engineheater = Request.QueryString("HeaterId") Else Engineheater = "-1" End If If Request.QueryString("AssemblyId") <> "0" Then Assemblykit = Request.QueryString("AssemblyId") Else Assemblykit = "-1" End If %> <% ' If Engineheater <> "-1" Then ' If 1 = 1 Then If Engineheater <> "-1" OR Assemblykit <> "-1" Then If Assemblykit <> "-1" AND Engineheater <> "-1" Then ' engineheater och assemblykit SQL = "SELECT tblHeater.fldArtikelNr AS fldHeaterNr, tblHeater.fldArtikelNamn AS fldHeaterName, tblAssembly.fldArtikelNr AS fldAssemblyNr, tblAssembly.fldArtikelNamn AS fldAssemblyName FROM tblArtiklar AS tblHeater, tblArtiklar AS tblAssembly WHERE ((tblHeater.fldArtikelID=" & Engineheater & ") AND (tblAssembly.fldArtikelID=" & Assemblykit & "));" Set HeaterRS = Conn.Execute(SQL) If Not HeaterRS.EOF Then HeaterName = HeaterRS("fldHeaterName") HeaterPartNo = HeaterRS("fldHeaterNr") AssemblyName = HeaterRS("fldAssemblyName") AssemblyPartNo = HeaterRS("fldAssemblyNr") End If HeaterRS.Close: Set HeaterRS = Nothing ' SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning FROM ((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId WHERE ((tblFordonArtiklar.fldArtikelID=" & Engineheater & ") AND (tblFordonArtiklar.fldArtikelIDmonteringssats=" & Assemblykit & ") AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldArtikelIDmonteringssats, tblArtiklarMonteringssats.fldArtikelNamn FROM (((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId) LEFT JOIN tblArtiklar AS tblArtiklarMonteringssats ON tblFordonArtiklar.fldArtikelIDmonteringssats = tblArtiklarMonteringssats.fldArtikelID WHERE ((tblFordonArtiklar.fldArtikelID=" & Engineheater & ") AND (tblFordonArtiklar.fldArtikelIDmonteringssats=" & Assemblykit & ") AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" ' (tblFordonArtiklar.fldArtikelID=" & Engineheater & ") AND (tblFordonArtiklar.fldArtikelIDmonteringssats=" & Assemblykit & ") Set TableRS = Conn.Execute(SQL) ElseIf Assemblykit <> "-1" Then ' Bara assemblykit SQL = "SELECT tblHeater.fldArtikelNr AS fldHeaterNr, tblHeater.fldArtikelNamn AS fldHeaterName, tblAssembly.fldArtikelNr AS fldAssemblyNr, tblAssembly.fldArtikelNamn AS fldAssemblyName FROM tblArtiklar AS tblHeater, tblArtiklar AS tblAssembly WHERE (tblAssembly.fldArtikelID=" & Assemblykit & ");" Set HeaterRS = Conn.Execute(SQL) If Not HeaterRS.EOF Then AssemblyName = HeaterRS("fldAssemblyName") AssemblyPartNo = HeaterRS("fldAssemblyNr") End If HeaterRS.Close: Set HeaterRS = Nothing ' SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning FROM ((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId WHERE ((tblFordonArtiklar.fldArtikelID Is Null) AND (tblFordonArtiklar.fldArtikelIDmonteringssats=" & Assemblykit & ") AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning FROM ((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId WHERE ((tblFordonArtiklar.fldArtikelIDmonteringssats=" & Assemblykit & ") AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" ' SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblArtiklar.fldArtikelNamn AS fldAssemblyName FROM ((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId WHERE ((tblFordonArtiklar.fldArtikelIDmonteringssats=" & Assemblykit & ") AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" Set TableRS = Conn.Execute(SQL) ElseIf Engineheater <> "-1" Then ' Bara engineheater SQL = "SELECT tblHeater.fldArtikelNr AS fldHeaterNr, tblHeater.fldArtikelNamn AS fldHeaterName, tblAssembly.fldArtikelNr AS fldAssemblyNr, tblAssembly.fldArtikelNamn AS fldAssemblyName FROM tblArtiklar AS tblHeater, tblArtiklar AS tblAssembly WHERE (tblHeater.fldArtikelID=" & Engineheater & ");" Set HeaterRS = Conn.Execute(SQL) If Not HeaterRS.EOF Then HeaterName = HeaterRS("fldHeaterName") HeaterPartNo = HeaterRS("fldHeaterNr") End If HeaterRS.Close: Set HeaterRS = Nothing ' SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning FROM ((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId WHERE ((tblFordonArtiklar.fldArtikelID=" & Engineheater & ") AND (tblFordonArtiklar.fldArtikelIDmonteringssats Is Null) AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" ' SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldArtikelIDmonteringssats, tblArtiklarMonteringssats.fldArtikelNamn FROM (((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId) LEFT JOIN tblArtiklar AS tblArtiklarMonteringssats ON tblFordonArtiklar.fldArtikelIDmonteringssats = tblArtiklarMonteringssats.fldArtikelID WHERE (((tblFordonArtiklar.fldArtikelID)=" & Engineheater & ") AND ((tblFordon.fldFordonWEB)=True) AND ((tblFordon.fldFordonNY)=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" SQL = "SELECT tblFordon.fldFordonID, tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldArtikelIDmonteringssats, tblArtiklarMonteringssats.fldArtikelNamn FROM (((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) INNER JOIN tblMarken ON tblFordon.fldMarkeId = tblMarken.fldMarkeId) LEFT JOIN tblArtiklar AS tblArtiklarMonteringssats ON tblFordonArtiklar.fldArtikelIDmonteringssats = tblArtiklarMonteringssats.fldArtikelID WHERE (((tblFordonArtiklar.fldArtikelID)=" & Engineheater & ") AND ((tblFordon.fldFordonWEB)=True) AND ((tblFordon.fldFordonNY)=False)) ORDER BY tblMarken.fldMarkeBenamning, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2;" Set TableRS = Conn.Execute(SQL) End If Brand = "" Model = "" Engine = "" If Not TableRS.EOF Then %> <% Do Until TableRS.EOF If Brand <> TableRS("fldMarkeBenamning") Then Brand = TableRS("fldMarkeBenamning") %> <% Counter = "FFFFFF" End If If Model <> TableRS("fldFordonModell1") Then Model = TableRS("fldFordonModell1") Response.Write(" " & vbcrlf) Counter = "FFFFFF" End If Response.Write(" " & vbcrlf) If Assemblykit = "-1" Then Response.write("") Else Response.write("") End If Response.write("" & vbcrlf) If Counter = "FFFFFF" Then Counter = "EEEEEE" Else Counter = "FFFFFF" End If ' Response.Write("") TableRS.Movenext Loop %>

<% If Engineheater <> "-1" Then Response.Write(Translate("EngineHeater") & ": " & HeaterName & " - " & Translate("PartNo") & ": " & HeaterPartNo & " ") End If If Assemblykit <> "-1" Then Response.Write(Translate("Assemblykit") & ": " & AssemblyName & " - " & Translate("PartNo") & ": " & AssemblyPartNo & " ") End If %>
<%= Brand %>	<% If Assemblykit = "-1" Then Response.write(Translate("Assemblykit")) Else Response.write(" ") End If %>
" & Model & "
") If TableRS("fldFordonModell2") <> "" Then Response.Write(TableRS("fldFordonModell2") & " / ") Else Response.Write("- / ") End If If TableRS("fldFordonArsmodell") <> "" Then Response.Write(TableRS("fldFordonArsmodell") & " / ") End If If TableRS("fldFordonMotorbeteckning") <> "" Then Response.Write(TableRS("fldFordonMotorbeteckning")) End If Response.Write("	" & TableRS("fldArtikelNamn") & "
" & Day(newsRS("fld_date")) & " " & SelectMonth(Month(newsRS("fld_date"))) & " - " & ChangeTextForDisplay(Left(newsRS("fld_head"), 19)) & "

<% End If TableRS.Close: Set TableRS = Nothing End If 'End If %> <% Conn.Close: Set Conn = Nothing %>