<% Option Explicit %> <% If Request.Form("lang") <> "" Then session("LANGUAGE") = Request.Form("lang") End If If session("LANGUAGE") = "" Then: session("LANGUAGE") = "SE" End If Dim Conn, fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Set Conn = server.createobject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./") & "/vehicledb/calixadm_huvudreplika.mdb" Dim SQL, varPicture, Counter, MontAnvisningarRS Dim DisplayRS, varVariable, id id = Request.QueryString("id") Counter = "productInfoRowWhite" If id <> "" Then SQL = "SELECT tblFordonArtiklar.fldMAnvisning, tblFordonArtiklar.fldFordonID FROM tblFordonArtiklar WHERE tblFordonArtiklar.fldFordonID= " & id & ";" Set DisplayRS = Conn.Execute(SQL) If DisplayRS.EOF Then varPicture = "nopic.gif" Else varPicture = DisplayRS("fldMAnvisning") End If DisplayRS.Close: Set DisplayRS = Nothing SQL = "SELECT tblFordonArtiklar.fldSortering, tblArtiklar.fldArtikelNamn AS fldMotorvarmareNamn, tblArtiklarMont.fldArtikelNamn AS fldMonteringsNamn FROM tblArtiklar AS tblArtiklarMont RIGHT JOIN (tblFordonArtiklar LEFT JOIN tblArtiklar ON tblFordonArtiklar.fldArtikelID = tblArtiklar.fldArtikelID) ON tblArtiklarMont.fldArtikelID = tblFordonArtiklar.fldArtikelIDmonteringssats WHERE (((tblFordonArtiklar.fldFordonID)=" & id & ")) ORDER BY tblFordonArtiklar.fldSortering;" Set MontAnvisningarRS = Conn.Execute(SQL) End If %> Calix AB
<% Do Until MontAnvisningarRS.EOF %> <% If MontAnvisningarRS("fldMonteringsNamn") <> "" Then %> <% ElseIf MontAnvisningarRS("fldMotorvarmareNamn") <> "" Then %> <% End If %> <% If Counter = "productInfoRowWhite" Then Counter = "productInfoRowYellow" Else Counter = "productInfoRowWhite" End If MontAnvisningarRS.Movenext Loop %>
Click to close
<%= Translate("InstallationInstructions") %>
<% If (fso.FileExists(Server.MapPath(".") & "/montanvisningar/" & Replace(MontAnvisningarRS("fldMonteringsNamn"), " ", "") & ".pdf")) = true Then %> .pdf" target="_blank"><%= Replace(MontAnvisningarRS("fldMonteringsNamn"), " ", "") %><% Else Response.Write(Replace(MontAnvisningarRS("fldMonteringsNamn"), " ", "")) End If %> <% If (fso.FileExists(Server.MapPath(".") & "/montanvisningar/" & Replace(MontAnvisningarRS("fldMotorvarmareNamn"), " ", "") & ".pdf")) = true Then %> .pdf" target="_blank"><%= Replace(MontAnvisningarRS("fldMotorvarmareNamn"), " ", "") %><% Else Response.Write(Replace(MontAnvisningarRS("fldMotorvarmareNamn"), " ", "")) End If %>
<% Set fso = nothing Conn.Close: Set Conn = Nothing %>