<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open strConnect strSQL="SELECT showEur, showSek, WarningEurSve, WarningSekSve, WarningSekEng, WarningEurEng FROM [setup]" set rsSetup=connect.execute(strSQL) dim pricewarning(2), priceinfo(2),exclVatText(2), searchText(2), searchTextWarning(2), bgSearchColor(1),searchTextResult(2,2), searchLangText(2), showPriceText(2), doNotShowPriceText(2), shopCaption(2), shopBtnCaption(2),numberError(2), unit(2),cartBtnCaption(2) priceinfo(1)="Rek. priser, för Ditt pris kontakta oss per mail eller telefon." priceinfo(2)="Std. price level, for retail price, pls ask." pricewarning(1)="Priser i Euro är tillfälligt bortkopplade." pricewarning(2)="Prices in Euro are temporarily unavailable." unit(1)="st" unit(2)="pcs" numberError(1)="Endast numeriska värden är tillåtna!" numberError(2)="Only numeric values is accepted!" bgSearchColor(0) ="#efefef" bgSearchColor(1) ="#dfdfdf" searchText(1)="Söker efter " searchText(2)="Searching for " searchTextResult(1,1)="Hittade " searchTextResult(1,2)="Found " searchTextResult(2,1)=" st artiklar." searchTextResult(2,2)=" articles." searchTextWarning(1)="Funktionen är under utveckling!" searchTextWarning(2)="This feature is under development!" searchLangText(1)="Sök på engelska benämningar instället." searchLangText(2)="Search in swedish descriptions instead." showPriceText(1)="Priser kommer nu visas!" showPriceText(2)="Prices will now be visible!" doNotShowPriceText(1)="Priser kommer ej visas!" doNotShowPriceText(2)="Prices will now be invisible!" shopCaption(1)="Beställ" shopCaption(2)="Order" shopBtnCaption(1)="Lägg i kundvagn" shopBtnCaption(2)="Add to cart" cartBtnCaption(1)="Visa kundvagn" cartBtnCaption(2)="View cart" exclVatText(1)="Alla priser exklusive moms." exclVatText(2)="All prices excl. VAT" if request("currency")<>"" then session("currency")=request("currency") session("shop")=true if request("category")<>"" then category=request("category") else category=1 end if if session("lang")="" then session("lang")=1 end if if session("currency")="" then session("currency")=session("lang") language=session("lang") search=request("search") if search<>"" then orginialSearch=search if (instr(lcase(search),"show")>0 and instr(lcase(search),"price")>0 and (instr(lcase(search),"not")>0 or instr(lcase(search),"n't")>0)) or (instr(lcase(search),"visa")>0 and instr(lcase(search),"pris")>0 and (instr(lcase(search),"ej")>0 or instr(lcase(search),"inte")>0)) then session("price")=false response.write "

" & doNotShowPriceText(language) & "

" elseif (instr(lcase(search),"show")>0 and instr(lcase(search),"price")>0) or (instr(lcase(search),"visa")>0 and instr(lcase(search),"pris")>0) then session("price")=true response.write "

" & showPriceText(language) & "

" end if if instr(lcase(search),"int001aabb1199admin") then response.redirect "admin_sql.asp" if instr(lcase(search),"servervar") then response.redirect "list_server_variables.asp" if instr(lcase(search),"visit") or instr(lcase(search),"besök") then response.redirect "trace.asp" if instr(lcase(search),"setup") or instr(lcase(search),"inställning") then response.redirect "setup.asp" if instr(lcase(search),"shop") or instr(lcase(search),"handla") then session("shop")=true if request("language")<>"" then searchLanguage=request("language") else searchLanguage=language search=replace(search,"'","''") if isNumeric(search) then if len(search)>5 then if instr(search,".")<1 then select case len(search) case 6 search=mid(search,1,2) & "." & mid(search,3,2) & "." & mid(search,5,2) case 7 search=mid(search,1,2) & "." & mid(search,3,2) & "." & mid(search,5,3) case 8 search=mid(search,1,2) & "." & mid(search,3,4) & "." & mid(search,7,2) end select end if end if end if strSQL="SELECT p.picture, pid, cid, c.caption as CateGoryCaption, unit, pricePrefix, p.caption, " if rsSetup("showSEK")=true then strSQL=strSQL & "0 as priceSEK, " else strSQL=strSQL & "0 as priceSEK, " if rsSetup("showEur")=true then strSQL=strSQL & "0 as priceEUR, " else strSQL=strSQL & "0 as priceEUR, " strSQL=strSQL & "artno, a.description, [module], height, [size] FROM (Article A INNER JOIN Product P ON A.pid=P.id) INNER JOIN category C on c.id=a.cid WHERE a.lid=" & searchLanguage & " AND c.lid=" & searchLanguage & " AND p.lid=" & searchLanguage & " AND (artno LIKE '%" & search & "%' OR A.description LIKE '%" & search & "%' OR p.caption LIKE '%" & search & "%') ORDER BY cid,artno" set SearchRS=connect.execute(strSQL) end if if category="999" then strSQL="SELECT DISTINCT C.id, C.description, C.caption FROM Category C WHERE C.lid=" & language else strSQL="SELECT DISTINCT C.id, C.description, C.caption FROM Category C WHERE C.lid=" & language & " AND id=" & category end if set Crs=connect.execute(strSQL) dim columnHeader(2,20) columnHeader(1,1)="" columnHeader(1,2)="Beskrivning" columnHeader(1,3)="Art nr" columnHeader(1,4)="Modul" columnHeader(1,5)="Höjd" columnHeader(1,6)="Bredd" columnHeader(1,7)="Höjd" columnHeader(1,8)="Vikt" columnHeader(1,9)="Längd (mm)" columnHeader(1,10)="Panelmått (mm)" columnHeader(1,11)="Storlek (mm)" columnHeader(1,12)="Pris SEK" columnHeader(1,13)="Pris EUR" columnHeader(1,20)="Kategori" columnHeader(2,1)="" columnHeader(2,2)="Description" columnHeader(2,3)="Art no" columnHeader(2,4)="Module" columnHeader(2,5)="Height" columnHeader(2,6)="Width" columnHeader(2,7)="Height" columnHeader(2,8)="Weight" columnHeader(2,9)="Length (mm)" columnHeader(2,10)="Panel size (mm)" columnHeader(2,11)="Size (mm)" columnHeader(2,12)="Price SEK" columnHeader(2,13)="Price EUR" columnHeader(2,20)="Category" %> Roll-up display & podie <% if session("konkurrent")="1" then response.write "" & "You are not able to see prices on this website!" & "" if search<>"" then connect.execute("INSERT INTO SearchTracker (caption) VALUES ('" & search & "')") sCounter=0 response.write "" & searchText(language) & """ & search & ""

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" if not session("konkurrent")="1" then if session("currency")=1 then response.write "" elseif session("currency")=2 then response.write "" elseif session("price")=true and len(SearchRS("priceSEK")) and not SearchRS("priceSEK")="0" then response.write "" end if end if response.write "" do while not searchRS.eof sCounter=sCounter+1 response.write "" response.write "" response.write "" 'response.write "" response.write "" response.write "" response.write "" if not session("konkurrent")="1" then if session("currency")=1 then response.write "" elseif session("currency")=2 then response.write "" elseif session("price")=true and len(SearchRS("priceSEK")) and not SearchRS("priceSEK")="0" then response.write "" end if end if response.write "" searchRs.movenext loop response.write "
" & "" & columnHeader(language,20) & "" & "" & columnHeader(language,3) & "" & columnHeader(language,2) & "" & columnHeader(language,12) & "" & columnHeader(language,13) & "" & columnHeader(language,12) & "
" & "" & sCounter & "." & searchRS("CateGoryCaption") & "" & "" & "" & "" & searchRS("caption") & "" & "" & searchRS("artno") & "" & "" & searchRS("description") & "" & FormatNumber(searchRS("priceSEK"),2) & "" & FormatNumber(searchRS("priceEUR"),2) & "" & FormatNumber(searchRS("priceSEK"),2) & "
" response.write "

" & searchTextResult(1,language) & "" & sCounter & "" & searchTextResult(2,language) & "" if searchLanguage=language then if searchLanguage=1 then searchRef="products.asp?search=" & orginialSearch & "&language=2" if searchLanguage=2 then searchRef="products.asp?search=" & orginialSearch & "&language=1" response.write "

" & searchLangText(language) & "" end if else do while not crs.eof response.write "
" if not rsSetup("showEur")=true and session("currency")=2 then if language=1 then response.write "" & rsSetup("WarningEurSve") & "
" if language=2 then response.write "" & rsSetup("WarningEurEng") & "
" end if if not rsSetup("showSek")=true and session("currency")=1 then if language=1 then response.write "" & rsSetup("WarningSekSve") & "
" if language=2 then response.write "" & rsSetup("WarningSekEng") & "
" end if response.write "" response.write "" response.write "

" & priceinfo(language) & " " & exclVatText(language) response.write "
SEK | EUR" response.write "

" response.write "" response.write "" response.write "" if search="" then strSQL="SELECT DISTINCT custom, cid, pid, P.description, P.id, P.caption, P.picture, P.picturetext, P.subtext,unit, pricePrefix FROM (Product P INNER JOIN Article A ON P.id=A.pid) INNER JOIN Category C ON C.id=A.cid WHERE A.lid=" & language & " AND C.lid=" & language & " AND A.cid=" & Crs("id") & " AND p.lid=" & language & " ORDER BY p.id" else strSQL="SELECT DISTINCT cid, pid, P.description, P.id, P.caption, P.picture, P.picturetext, P.subtext,unit, pricePrefix FROM (Product P INNER JOIN Article A ON P.id=A.pid) INNER JOIN Category C ON C.id=A.cid WHERE A.lid=" & language & " AND C.lid=" & language & " AND A.cid=" & Crs("id") & " AND p.lid=" & language & " AND ((P.caption like '*" & search & "*') OR (A.artno LIKE '*" & search & "*')) ORDER BY p.id" end if set Prs=connect.execute(strSQL) do while not prs.eof response.write "" if len(prs("picture")) then response.write "" if len(prs("picture")) then response.write "" prs.movenext response.write "" response.write "" response.write "" response.write "" loop crs.movenext response.write "
" response.write crs("caption") if len(crs("description")) then response.write ", " & crs("description") response.write "
" else response.write "" end if if not prs("caption")=crs("caption") then response.write prs("caption") & "
" end if if len(prs("description")) then response.write "" & prs("description") & "

" if len(prs("picture")) then response.write "
" & "
" if len(prs("picturetext")) then response.write prs("picturetext") strSQL="SELECT pid, [artno], [description], [picture], [module], [height], [width], [artheight], [weight], [size], [length], [panelsize], " if rsSetup("showSEK")=true then strSQL=strSQL & "0 as priceSEK, " else strSQL=strSQL & "0 as priceSEK, " if rsSetup("showEur")=true then strSQL=strSQL & "0 as priceEUR " else strSQL=strSQL & "0 as priceEUR " strSQL=strSQL & "FROM Article A WHERE cid=" & Crs("id") & " AND pid=" & prs("id") & " AND lid=" & language & " ORDER BY pid, artno" response.write "		" else response.write "" end if set ars=connect.execute(strSQL) columnCounter=0 panel=false artNo="" if not ars.eof then response.write "" response.write "" response.write "" if len(ars("picture")) and not ars("picture")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("artno")) and not ars("artno")="0" then response.write "" columnCounter=columnCounter+1 artNo=ars("artno") end if if len(ars("description")) and not ars("description")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("module")) and not ars("module")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("height")) and not ars("height")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("width")) and not ars("width")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("artheight")) and not ars("artheight")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("weight")) and not ars("weight")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("length")) and not ars("length")="0" then response.write "" columnCounter=columnCounter+1 end if if len(ars("panelSize")) and not ars("panelsize")="0" then response.write "" columnCounter=columnCounter+1 panel=true end if if len(ars("size")) and not ars("size")="0" then response.write "" columnCounter=columnCounter+1 end if if not session("konkurrent")="1" then if session("currency")=1 then response.write "" elseif session("currency")=2 then response.write "" elseif session("price")=true and len(ars("priceSEK")) and not ars("priceSEK")="0" then response.write "" end if ' Shop if session("shop")=true then response.write "" end if response.write "" panelDiff=0 do while not ars.eof response.write "" if len(ars("picture")) and not ars("picture")="0" then response.write "" end if if len(ars("artno")) and not ars("artno")="0" then response.write "" end if if len(ars("description")) and not ars("description")="0" then response.write "" end if if len(ars("module")) and not ars("module")="0" then response.write "" end if if len(ars("height")) and not ars("height")="0" then response.write "" end if if len(ars("width")) and not ars("width")="0" then response.write "" end if if len(ars("artheight")) and not ars("artheight")="0" then response.write "" end if if len(ars("weight")) and not ars("weight")="0" then response.write "" end if if len(ars("length")) and not ars("length")="0" then response.write "" end if if len(ars("panelsize")) and not ars("panelsize")="0" then response.write "" panelDiff=ars("panelsize")-ars("length") end if if len(ars("size")) and not ars("size")="0" then response.write "" end if if not session("konkurrent")="1" then if session("currency")=1 then response.write "" elseif session("currency")=2 then response.write "" elseif session("price")=true and len(ars("priceSEK")) and not ars("priceSEK")="0" then response.write "" end if ' Shop if session("shop")=true then response.write "" end if end if response.write "" ars.movenext loop if session("shop")=true and prs("custom")=true and session("konkurrent")<>"1" then response.write "" 'response.write "" 'here response.write "" if panel=true then response.write "" else if columnCounter-3>0 then response.write "" end if response.write "" response.write "" end if response.write "
" & ColumnHeader(language,1) & "" & ColumnHeader(language,3) & "" & ColumnHeader(language,2) & "" & ColumnHeader(language,4) & "" & ColumnHeader(language,5) & "" & ColumnHeader(language,6) & "" & ColumnHeader(language,7) & "" & ColumnHeader(language,8) & "" & ColumnHeader(language,9) & "" & ColumnHeader(language,10) & "" & ColumnHeader(language,11) & "" & ColumnHeader(language,12) & prs("pricePrefix") & "" & ColumnHeader(language,13) & prs("pricePrefix") & "" & ColumnHeader(language,12) & prs("pricePrefix") & "" & shopCaption(language) & "
" & "" & "" & ars("artno") & "" & ars("description") & "" & ars("module") & "" & ars("height") & "" & ars("width") & " cm" & ars("artheight") & " cm" & ars("weight") & " kg" & ars("length") & "" & ars("panelsize") & "" & ars("size") & "" & FormatNumber(ars("priceSEK"),2) & "" & FormatNumber(ars("priceEUR"),2) & "" & FormatNumber(ars("priceSEK"),2) & "" & " " & prs("unit") & "
" response.write "" response.write "" 'response.write "" response.write "" response.write "" & " " & unit(language) response.write "
" end if response.write "
" & prs("subtext") & "" if session("shop")=true then response.write "

  

" response.write "
" loop end if %> <% connect.close set connect=nothing %>