<% ' On Error Resume Next ' If Err <> 0 Then ' Response.Write(Err.description) ' Response.End() ' End If If Request.Form("lang") <> "" Then session("LANGUAGE") = Request.Form("lang") End If If session("LANGUAGE") = "" Then: session("LANGUAGE") = "SE" End If 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.Form("Engineheater") <> "" Then Engineheater = Request.Form("Engineheater") Else Engineheater = "-1" End If If Request.Form("Assemblykit") <> "" Then Assemblykit = Request.Form("Assemblykit") Else Assemblykit = "-1" End If %> Calix AB
.gif" width="20" height="13"> ">Sök produkt
.gif" width="20" height="13"> ">Tuotehaku
.gif" width="20" height="13"> ">Search products
.gif" width="20" height="13"> ">Produktsuche
_searchheader.gif">
">
<%= Translate("SearchHeadline") %>
value="1"> 
value="2"> 
<% If Int(SelectionType) = 1 Then %>
<% Else %>
<%= Translate("AndOr") %>
<% End If %>
<% If Int(SelectionType) = 1 Then If Motor <> "-1" Then SQL = "SELECT tblFordonArtiklar.ID, tblFordonArtiklar.fldFordonID, tblFordonArtiklar.fldSortering, tblFordonArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr AS fldMotorvarmareNr, tblArtiklar.fldArtikelNamn AS fldMotorvarmareNamn, tblArtiklar.fldArtikelBild, tblFordonArtiklar.fldMAnvisning, tblFordonArtiklar.fldMAnvisningTrycksak, tblArtiklar.fldMontp, tblArtiklar.fldEffekt, tblFordonArtiklar.fldKabelset, tblFordonArtiklar.fldGrenledningssats, tblFordonArtiklar.fldStralningsskydd, tblFordonArtiklar.fldArtikelIDmonteringssats, tblFordonArtiklar.fldArtikelIDpumpkit, tblArtiklarPump.fldArtikelNr, tblArtiklarPump.fldArtikelNamn FROM tblArtiklar AS tblArtiklarPump RIGHT JOIN (tblFordonArtiklar LEFT JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) ON tblArtiklarPump.fldArtikelID = tblFordonArtiklar.fldArtikelIDpumpkit WHERE (((tblFordonArtiklar.fldFordonID)=" & Motor & ")) ORDER BY tblFordonArtiklar.fldSortering;" Set ArtiklarRS = Conn.Execute(SQL) ' START-Inga produkter IF If ArtiklarRS.EOF Then Response.Write(Translate("NoProducts")) Else %>
" width="135" name="Picture">
<% rowColor = 0 %> <% If ArtiklarRS("fldMotorvarmareNr") <> "" Then %> "> <% End If If ArtiklarRS("fldArtikelIdmonteringssats") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE tblArtiklar.fldArtikelID = " & ArtiklarRS("fldArtikelIdmonteringssats") & ";" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% TempRS.Close: Set TempRS = Nothing Else Response.Write("") End If End If If ArtiklarRS("fldMAnvisningTrycksak") <> "" AND ArtiklarRS("fldMAnvisningTrycksak") <> "-" Then rowColor = rowColor + 1 %> "> <% End If If ArtiklarRS("fldMontp") <> "" Then rowColor = rowColor + 1 %> "> <% End If If ArtiklarRS("fldStralningsskydd") <> false Then rowColor = rowColor + 1 %> "> <% End If If ArtiklarRS("fldKabelSet") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE (tblArtiklar.fldArtikelNamn LIKE '%MKMS%') AND (tblArtiklar.fldArtikelGrupp='Kablar') AND (tblArtiklar.fldArtikelNamn LIKE '%" & ArtiklarRS("fldKabelset") & "%');" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% %> <% TempRS.Close: Set TempRS = Nothing End If End If TempStr = ArtiklarRS("fldGrenledningssats") Trim(TempStr) If IsNull(TempStr) Then TempStr = "NULL" End If Set objRegExp = New regexp objRegExp.Global = true objRegExp.IgnoreCase = true objRegExp.Pattern = "[\,]" TempStr = objRegExp.Replace(TempStr,".") objRegExp.Pattern = "[\f\t ]" TempStr = objRegExp.Replace(TempStr,"") objRegExp.Global = false objRegExp.Pattern = "[\.]" TempStr = objRegExp.Replace(TempStr,",") If inStr(TempStr, "+") <> 0 Then TempArr = Split(TempStr, "+") TempStr = TempArr(0) Skarvkabel = TempArr(1) End If Set TempArr = Nothing 'SQL för att plocka ut endast en kabel SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE ((tblArtiklar.fldArtikelNamn LIKE '%Grenledningssats%') AND (tblArtiklar.fldArtikelNamn LIKE '%" & TempStr & "%') AND (tblArtiklar.fldArtikelGrupp='Kablar'));" Set TempRS = Conn.Execute(SQL) objRegExp.Pattern = "[\,]" TempStr = objRegExp.Replace(TempStr,".") If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% End If TempRS.Close: Set TempRS = Nothing If ArtiklarRS("fldArtikelIdPumpkit") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE (tblArtiklar.fldArtikelID = " & ArtiklarRS("fldArtikelIdPumpkit") & ");" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% End If TempRS.Close: Set TempRS = Nothing End If %> <% ArtiklarRS.Movenext ' START-Alternativa artiklar IF If Not ArtiklarRS.EOF Then Do Until ArtiklarRS.EOF rowColor = 0 %> <% If ArtiklarRS("fldMotorvarmareNr") <> "" Then %> "> <% End If If ArtiklarRS("fldArtikelIdmonteringssats") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn FROM tblArtiklar WHERE tblArtiklar.fldArtikelID = " & ArtiklarRS("fldArtikelIdmonteringssats") & ";" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then %> "> <% Else Response.Write("") End If TempRS.Close: Set TempRS = Nothing End If If ArtiklarRS("fldMAnvisningTrycksak") <> "" Then rowColor = rowColor + 1 %> "> <% End If If ArtiklarRS("fldMontp") <> "" Then rowColor = rowColor + 1 %> "> <% End If If ArtiklarRS("fldStralningsskydd") <> false Then rowColor = rowColor + 1 %> "> <% End If If ArtiklarRS("fldKabelSet") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE (tblArtiklar.fldArtikelNamn LIKE '%MKMS%') AND (tblArtiklar.fldArtikelGrupp='Kablar') AND (tblArtiklar.fldArtikelNamn LIKE '%" & ArtiklarRS("fldKabelset") & "%');" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% End If TempRS.Close: Set TempRS = Nothing End If TempStr = ArtiklarRS("fldGrenledningssats") Trim(TempStr) If IsNull(TempStr) Then TempStr = "NULL" End If Set objRegExp = New regexp objRegExp.Global = true objRegExp.IgnoreCase = true objRegExp.Pattern = "[\,]" TempStr = objRegExp.Replace(TempStr,".") objRegExp.Pattern = "[\f\t ]" TempStr = objRegExp.Replace(TempStr,"") objRegExp.Global = false objRegExp.Pattern = "[\.]" TempStr = objRegExp.Replace(TempStr,",") If inStr(TempStr, "+") <> 0 Then TempArr = Split(TempStr, "+") TempStr = TempArr(0) Skarvkabel = TempArr(1) End If 'SQL för att plocka ut endast en kabel SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE (tblArtiklar.fldArtikelNamn LIKE '%Grenledningssats%') AND (tblArtiklar.fldArtikelNamn LIKE '%" & TempStr & "%') AND (tblArtiklar.fldArtikelGrupp='Kablar');" Set TempRS = Conn.Execute(SQL) objRegExp.Pattern = "[\,]" TempStr = objRegExp.Replace(TempStr,".") If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% End If TempRS.Close: Set TempRS = Nothing %> <% If ArtiklarRS("fldArtikelIdPumpkit") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn, tblArtiklar.fldArtikelBild FROM tblArtiklar WHERE (tblArtiklar.fldArtikelID = " & ArtiklarRS("fldArtikelIdPumpkit") & ");" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then rowColor = rowColor + 1 %> "> <% TempRS.Close: Set TempRS = Nothing End If End If %> <% ArtiklarRS.Movenext Loop ' ArtiklarRS.Close: Set ArtiklarRS = Nothing End If ' STOP-Alternativa artiklar IF End If ' ArtiklarRS.Close: Set ArtiklarRS = Nothing ' STOP-Inga produkter IF %> <% Dim StaticRS Set StaticRS = Server.CreateObject("ADODB.RecordSet") StaticRS.ActiveConnection = "Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;" StaticRS.Open(Server.MapPath("StaticProducts.xml")) Dim Counter, Product Counter = "FFFFFF" Product = "" Do Until StaticRS.EOF If "1756000" <> StaticRS("PARTNO") Then If Product <> StaticRS("NAME") Then Product = StaticRS("NAME") If Counter = "FFFFFF" Then Counter = "EEEEEE" Else Counter = "FFFFFF" End If Response.Write(" " & vbcrlf & " " & vbcrlf) Else Response.Write(" " & vbcrlf & " " & vbcrlf) End If Response.Write(" " & vbcrlf) Response.Write(" " & vbcrlf) Response.Write(" " & vbcrlf & " " & vbcrlf) End If StaticRS.MoveNext Loop StaticRS.Close: Set StaticRS = Nothing %>
<%= Translate("Products") %> <%= Translate("PartNo") %> <%= Translate("Information") %> <%= Translate("Other") %>
<%= Translate("EngineHeater") %> <% Response.Write(ArtiklarRS("fldMotorvarmareNr")) %> ';"><% If ArtiklarRS("fldMotorvarmareNamn") <> "" Then Response.Write(ArtiklarRS("fldMotorvarmareNamn")) Else Response.Write("-") End If %> <% If ArtiklarRS("fldEffekt") <> "" Then Response.Write(ArtiklarRS("fldEffekt") & "W") Else Response.Write("-") End If %>
<%= Translate("Assemblykit") %> <% If TempRS("fldArtikelNr") <> "" Then Response.Write(TempRS("fldArtikelNr")) Else Response.Write("-") End If %> ';"><% If TempRS("fldArtikelnamn") <> "" Then Response.Write(TempRS("fldArtikelNamn")) Else Response.Write("-") End If %> -
---
<%= Translate("HeaterLocation") %> - .gif';"><% Response.Write(ArtiklarRS("fldMAnvisningTrycksak")) %> -
<%= Translate("FittingAlternatives") %> - .jpg';"><% Response.Write(ArtiklarRS("fldMontp")) %> -
<%= Translate("HeatShield") %> - <%= Translate("Yes") %> -
<%= Translate("CableSet") %> <% If TempRS("fldArtikelNr") <> "" Then Response.Write(TempRS("fldArtikelNr")) Else Response.Write("-") End If %> ';"><% If TempRS("fldArtikelNamn") <> "" Then Response.Write(TempRS("fldArtikelNamn")) Else Response.Write("-") End If %> -
<%= Translate("BranchCableSet") %> <%= Response.Write(TempRS("fldArtikelNr")) %> ';"><% Response.Write("GL" & TempStr & "
") If Skarvkabel <> "" Then Response.Write("" & Skarvkabel & "		-
Extra skarvkabel: " & Skarvkabel) Else Response.Write("		-") End If %>
<%= Translate("Pump") %> <% If TempRS("fldArtikelNr") <> "" Then Response.Write(TempRS("fldArtikelNr")) Else Response.Write("-") End If %> ';"><% If TempRS("fldArtikelNamn") <> "" Then Response.Write(TempRS("fldArtikelNamn")) Else Response.Write("-") End If %> -
<%= Translate("AlternativeProducts") %> <%= Translate("PartNo") %> <%= Translate("Information") %> <%= Translate("Other") %>
<%= Translate("EngineHeater") %> <% Response.Write(ArtiklarRS("fldMotorvarmareNr")) %> ';"><% If ArtiklarRS("fldMotorvarmareNamn") <> "" Then Response.Write(ArtiklarRS("fldMotorvarmareNamn")) Else Response.Write("-") End If %> <% If ArtiklarRS("fldEffekt") <> "" Then Response.Write(ArtiklarRS("fldEffekt") & "W") Else Response.Write("-") End If %>
<%= Translate("Assemblykit") %> <% If TempRS("fldArtikelNr") <> "" Then Response.Write(TempRS("fldArtikelNr")) Else Response.Write("-") End If %> <% If TempRS("fldArtikelNamn") <> "" Then Response.Write(TempRS("fldArtikelNamn")) Else Response.Write("-") End If %> -
---
<%= Translate("HeaterLocation") %> - .gif';"><% Response.Write(ArtiklarRS("fldMAnvisningTrycksak")) %> -
<%= Translate("FittingAlternatives") %> - .jpg';"><% Response.Write(ArtiklarRS("fldMontp")) %> -
<%= Translate("HeatShield") %> - <% Response.Write(Translate("Yes")) %> -
<%= Translate("CableSet") %> <% If TempRS("fldArtikelNr") <> "" Then Response.Write(TempRS("fldArtikelNr")) Else Response.Write("-") End If %> ';"><% If TempRS("fldArtikelNamn") <> "" Then Response.Write(TempRS("fldArtikelNamn")) Else Response.Write("-") End If %> -
<%= Translate("BranchCableSet") %> <%= Response.Write(TempRS("fldArtikelNr")) %> ';"><% Response.Write("GL" & TempStr & "
") If Skarvkabel <> "" Then Response.Write("" & Skarvkabel & "		-
Extra skarvkabel: " & Skarvkabel) Else Response.Write("		-") End If %>
<%= Translate("Pump") %> <% If TempRS("fldArtikelNr") <> "" Then Response.Write(TempRS("fldArtikelNr")) Else Response.Write("-") End If %> ';"><% If TempRS("fldArtikelNamn") <> "" Then Response.Write(TempRS("fldArtikelNamn")) Else Response.Write("-") End If %> -
<%= Translate("OtherProducts") %> <%= Translate("PartNo") %> <%= Translate("Information") %> <%= Translate("Other") %>
" & Translate(Product) & "
 " & StaticRS("PARTNO") & "
 "" Then Response.Write(" onMouseOver=""javascript:document.images['Picture'].src='img/artiklar/" & StaticRS("IMG") & "';""") End If Response.Write(">" & StaticRS("INFO") & "
" & StaticRS("OTHER") & "
" onClick="javascript:popUp('print.asp?id=<%= Motor %>', 'Print', 600, 600);">
> <%= Translate("InstallationInstructions") %>
', 'ReverseTable', 600, 600);">> <%= Translate("EvenFits") %>
<% ArtiklarRS.Close: Set ArtiklarRS = Nothing End If Else 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)) & "
<% Else %>
<%= Translate("NoSearchResults") %>
<% End If TableRS.Close: Set TableRS = Nothing End If End If %> 		 
<% Conn.Close: Set Conn = Nothing %>