<% ' 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 Dim Vehiclename If Request.Form("Vehiclename") <> "" Then Vehiclename = Request.Form("Vehiclename") Else Vehiclename = "-1" End If ' ModellArr = Split( Request.Form("Modell"), "#" ) ' If ModellArr(0) <> "" Then Modell = ModellArr(0) Else Modell = "-1" End If ' If ModellArr(1) <> "" Then Modell2 = ModellArr(1) Else Modell2 = "-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
<%= Translate("AndOr") %>
_searchheader.gif"> <% If Motor <> "-1" Then %> <% End If %>
"> <% 'If Int(SelectionType) = 1 Then If Marke <> "-1" AND Modell <> "-1" Then ' AND Motor <> "-1" Then If Modell <> "-1" AND Motor = "-1" Then %>
<%= Translate("InstallationTime") %>:
<%= Translate("InstallationTimeDescription") %>
<%= Translate("InstallationTimeNumbers") %>
<%= Translate("VehicleDetailedInfo") %>
<% If Modell = "0" Then SQL = "SELECT tblFordon.fldFordonID, First(tblHeater.fldArtikelNamn) AS fldHeater, Last(tblHeater.fldArtikelNamn) AS fldHeaterAlt, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldMAnvisningTrycksak, tblHeater.fldMontp, tblMonteringssats.fldArtikelNamn AS fldMonteringssats, tblFordonArtiklar.fldStralningsskydd, tblFordonArtiklar.fldKabelset, tblPumpkit.fldArtikelNamn AS fldPumpkit, tblFordonArtiklar.fldGrenledningssats, tblFordonArtiklar.fldArtikelIDpumpkit, tblFordonArtiklar.fldMonteringstid FROM (((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar AS tblHeater ON tblFordonArtiklar.fldArtikelID = tblHeater.fldArtikelID) LEFT JOIN tblArtiklar AS tblMonteringssats ON tblFordonArtiklar.fldArtikelIDmonteringssats = tblMonteringssats.fldArtikelID) LEFT JOIN tblArtiklar AS tblPumpkit ON tblFordonArtiklar.fldArtikelIDpumpkit = tblPumpkit.fldArtikelID GROUP BY tblFordon.fldFordonID, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldMAnvisningTrycksak, tblHeater.fldMontp, tblMonteringssats.fldArtikelNamn, tblFordonArtiklar.fldStralningsskydd, tblFordonArtiklar.fldKabelset, tblPumpkit.fldArtikelNamn, tblFordonArtiklar.fldGrenledningssats, tblFordonArtiklar.fldArtikelIDpumpkit, tblFordonArtiklar.fldMonteringstid, tblFordon.fldMarkeId, tblFordon.fldFordonWEB, tblFordon.fldFordonNY HAVING (((tblFordon.fldMarkeId)=" & Int(Marke) & ") AND ((tblFordon.fldFordonWEB)=True) AND ((tblFordon.fldFordonNY)=False)) ORDER BY tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell;" Else TempArr = Split(Modell, "#") SQL = "SELECT tblFordon.fldFordonID, First(tblHeater.fldArtikelNamn) AS fldHeater, Last(tblHeater.fldArtikelNamn) AS fldHeaterAlt, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldMAnvisningTrycksak, tblHeater.fldMontp, tblMonteringssats.fldArtikelNamn AS fldMonteringssats, tblFordonArtiklar.fldStralningsskydd, tblFordonArtiklar.fldKabelset, tblPumpkit.fldArtikelNamn AS fldPumpkit, tblFordonArtiklar.fldGrenledningssats, tblFordonArtiklar.fldArtikelIDpumpkit, tblFordonArtiklar.fldMonteringstid FROM (((tblFordon INNER JOIN tblFordonArtiklar ON tblFordon.fldFordonID = tblFordonArtiklar.fldFordonID) INNER JOIN tblArtiklar AS tblHeater ON tblFordonArtiklar.fldArtikelID = tblHeater.fldArtikelID) LEFT JOIN tblArtiklar AS tblMonteringssats ON tblFordonArtiklar.fldArtikelIDmonteringssats = tblMonteringssats.fldArtikelID) LEFT JOIN tblArtiklar AS tblPumpkit ON tblFordonArtiklar.fldArtikelIDpumpkit = tblPumpkit.fldArtikelID GROUP BY tblFordon.fldFordonID, tblFordon.fldFordonModell1, tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell, tblFordon.fldFordonMotorbeteckning, tblFordonArtiklar.fldMAnvisningTrycksak, tblHeater.fldMontp, tblMonteringssats.fldArtikelNamn, tblFordonArtiklar.fldStralningsskydd, tblFordonArtiklar.fldKabelset, tblPumpkit.fldArtikelNamn, tblFordonArtiklar.fldGrenledningssats, tblFordonArtiklar.fldArtikelIDpumpkit, tblFordonArtiklar.fldMonteringstid, tblFordon.fldMarkeId, tblFordon.fldFordonWEB, tblFordon.fldFordonNY HAVING (" If TempArr(0) <> "" Then SQL = SQL & "(tblFordon.fldFordonModell1 = '" & TempArr(0) & "')" Else SQL = SQL & "(tblFordon.fldFordonModell1 Is Null)" End If SQL = SQL & " AND (tblFordon.fldMarkeId=" & Int(Marke) & ") AND (tblFordon.fldFordonWEB=True) AND (tblFordon.fldFordonNY=False)) ORDER BY tblFordon.fldFordonModell2, tblFordon.fldFordonArsmodell;" Set TempArr = Nothing End If ' Response.write(SQL) Dim VehicleRS, Row Set VehicleRS = Conn.Execute(SQL) Row = 0 Do Until VehicleRS.EOF %> <% VehicleRS.Movenext Row = Row+1 Loop VehicleRS.Close: Set VehicleRS = Nothing %>
"> "> "> "> "> "> "> "> "> "> "> "> ">
"> ';Motor.value='<%= VehicleRS("fldFordonID") %>';form.submit();"><%= VehicleRS("fldFordonModell1") & " " & VehicleRS("fldFordonModell2") %> <%= VehicleRS("fldFordonArsmodell") %> "><%= Mid(VehicleRS("fldFordonMotorbeteckning"),2) %> <%= VehicleRS("fldHeater") %> "><% If StrComp(VehicleRS("fldHeater"), VehicleRS("fldHeaterAlt"), 1) <> 0 Then Response.Write(VehicleRS("fldHeaterAlt")) End If %> <%= VehicleRS("fldMAnvisningTrycksak") %> "><%= VehicleRS("fldMontp") %> <%= VehicleRS("fldMonteringssats") %> "><% If VehicleRS("fldStralningsskydd") Then Response.Write("•") End If %> <%= VehicleRS("fldKabelset") %> "><% Dim plusSignInCableSet plusSignInCableSet = VehicleRS("fldGrenledningssats") If InStr(plusSignInCableSet, "+") <> 0 Then plusSignInCableSet = Replace(plusSignInCableSet,"+","
+") End If Response.write plusSignInCableSet %>		 <% If VehicleRS("fldPumpkit") <> "" Then Response.Write("•") End If %> "><%= VehicleRS("fldMonteringstid") %>
<% End If '// End of if ( If Modell <> "-1" AND Motor = "-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;" 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, tblFordon.fldFordonTipsTrix FROM (tblArtiklar AS tblArtiklarPump RIGHT JOIN (tblFordonArtiklar LEFT JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) ON tblArtiklarPump.fldArtikelID = tblFordonArtiklar.fldArtikelIDpumpkit) INNER JOIN tblFordon ON tblFordonArtiklar.fldFordonID = tblFordon.fldFordonID WHERE (((tblFordonArtiklar.fldFordonID)=" & Motor & ")) ORDER BY tblFordonArtiklar.fldSortering;" ' Response.write(SQL) Set ArtiklarRS = Conn.Execute(SQL) ' START-Inga produkter IF If ArtiklarRS.EOF Then Response.Write(Translate("NoProducts")) Else %>
<%= Translate("Model") %>:
<% If Vehiclename <> "" Then Response.write( Vehiclename ) End If %>
<% Dim TipsTrix TipsTrix = ArtiklarRS("fldFordonTipsTrix") If TipsTrix <> "" Then %>
<%= Translate("Note") %>:
<% Response.write(Replace(TipsTrix,vbCrLf,"
")) %>
<% End If %>
 
<% rowColor = 0 %> <% If ArtiklarRS("fldMotorvarmareNr") <> "" Then %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= ArtiklarRS("fldArtikelBild") %>';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% TempRS.Close: Set TempRS = Nothing Else Response.Write("") End If End If If ArtiklarRS("fldMAnvisningTrycksak") <> "" AND ArtiklarRS("fldMAnvisningTrycksak") <> "-" Then rowColor = rowColor + 1 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/VP<%= Left(ArtiklarRS("fldMAnvisningTrycksak"), 1) %>.gif';"> <% End If If ArtiklarRS("fldMontp") <> "" Then rowColor = rowColor + 1 %> " onMouseOver="javascript: form.showbigpicture.value = 0; document.images['Picture'].src='img/artiklar/MP<%= ArtiklarRS("fldMontp") %>.jpg';"> <% End If If ArtiklarRS("fldStralningsskydd") <> false Then rowColor = rowColor + 1 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/heatshield.gif';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= ArtiklarRS("fldArtikelBild") %>';"> <% End If If ArtiklarRS("fldArtikelIdmonteringssats") <> "" Then SQL = "SELECT tblArtiklar.fldArtikelBild, tblArtiklar.fldArtikelID, tblArtiklar.fldArtikelNr, tblArtiklar.fldArtikelNamn FROM tblArtiklar WHERE tblArtiklar.fldArtikelID = " & ArtiklarRS("fldArtikelIdmonteringssats") & ";" Set TempRS = Conn.Execute(SQL) If Not TempRS.EOF Then %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% Else Response.Write("") End If TempRS.Close: Set TempRS = Nothing End If If ArtiklarRS("fldMAnvisningTrycksak") <> "" Then rowColor = rowColor + 1 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/VP<%= Left(ArtiklarRS("fldMAnvisningTrycksak"), 1) %>.gif';"> <% End If If ArtiklarRS("fldMontp") <> "" Then rowColor = rowColor + 1 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/MP<%= ArtiklarRS("fldMontp") %>.jpg';"> <% End If If ArtiklarRS("fldStralningsskydd") <> false Then rowColor = rowColor + 1 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/heatshield.gif';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% 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 %> " onMouseOver="javascript:document.images['Picture'].src='img/artiklar/<%= TempRS("fldArtikelBild") %>';"> <% 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 = "FFF" CounterAltRow = "productInfoRowGrey" Product = "" Do Until StaticRS.EOF If "1756000" <> StaticRS("PARTNO") Then If Product <> StaticRS("NAME") Then Product = StaticRS("NAME") If Counter = "FFF" Then Counter = "EEE" Else Counter = "FFF" End If If CounterAltRow = "productInfoRowWhite" Then CounterAltRow = "productInfoRowGrey" Else CounterAltRow = "productInfoRowWhite" End If 'productInfoRowGrey 'productInfoRowWhite Response.Write(" " & vbcrlf & " " & vbcrlf) ' top.frames["thatframe"].location.href = "page.htm"; ' javascript:window.parent.parent.frames['main'].location.href='" & StaticRS("LINK") & "'; Else Response.Write(" " & vbcrlf & " " & vbcrlf) End If Response.Write(" " & vbcrlf) Response.Write(" " & vbcrlf) Response.Write(" ") If StaticRS("INSTRUCTIONS") <> "" Then Response.Write(" " ) Else Response.Write(" " ) End If 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 %> <% If ArtiklarRS("fldMotorvarmareNamn") <> "" Then Response.Write( "" ) 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 %> - <% If TempRS("fldArtikelnamn") <> "" Then Response.Write( "" ) Else Response.Write(" ") End If %>
---
<%= Translate("HeaterLocation") %> - <% Response.Write(ArtiklarRS("fldMAnvisningTrycksak")) %> -  
<%= Translate("FittingAlternatives") %> - <% 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 %> - <% If TempRS("fldArtikelnamn") <> "" Then Response.Write( "" ) 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 %> <% If TempStr <> "" Then Response.Write( "" ) 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 %> <% If ArtiklarRS("fldMotorvarmareNamn") <> "" Then Response.Write( "" ) 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 %> - <% If TempRS("fldArtikelnamn") <> "" Then Response.Write( "" ) Else Response.Write(" ") End If %>
---
<%= Translate("HeaterLocation") %> - <% Response.Write(ArtiklarRS("fldMAnvisningTrycksak")) %> -  
<%= Translate("FittingAlternatives") %> - <% 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 %> - <% If TempRS("fldArtikelnamn") <> "" Then Response.Write( "" ) 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 %> <% If TempStr <> "" Then Response.Write( "" ) 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);">
<% ArtiklarRS.Close: Set ArtiklarRS = Nothing End If '// End of if (If Motor <> "-1" Then) Else '// End of if (If Marke <> "-1" AND Modell <> "-1" AND Motor = "-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, 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;" 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.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 %>