<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProdukter__MMColParam rsProdukter__MMColParam = request.querystring("artikel") if(Request.Form("artikel") <> "") then rsProdukter__MMColParam = Request.Form("artikel") Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") dbPath = Server.MapPath("databas\e-butik.mdb") set conn = Server.createObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbPath & "" %>

Högspolande WC med cistern och underdel i vitt porslin. Levereras med spolrör av koppar, vita konsoler och kedja med spolhandtag av vitt porslin. Sits av antingen svart ask eller bakelit beställs separat.


	1081-1 Högspolande WC med universallås, spolrör av koppar, spolhandtag av porslin. Ring för att beställa!


	1081-2 Högspolande WC med S-lås, spolrör av koppar, spolhandtag av porslin. Ring för att beställa!


	9620 Spolhandtag av vitt porslin med svart text "pull" samt förkromad kedja. Ring för att beställa!

8213

Sits av svartbetsad ask
Pris: ???
Ring för att beställa!

<% i = 0 strSQL = "SELECT * FROM eButik WHERE eButikGrupp = '" + Replace(rsProdukter__MMColParam, "'", "''") + "' ORDER BY ordning ASC" set RS=conn.execute(strSQL) do until RS.eof %> <% if i mod 2 <> 0 then response.write("") else response.write("") end if Repeat1__index = Repeat1__index+1 Repeat1__numRows = Repeat1__numRows-1 'rsProdukter.MoveNext() i = i + 1 'Wend RS.movenext loop RS.close set RS = nothing %>

	<%=RS("ART")%>	<%If not objFSO.FileExists(Server.MapPath("bilder\" & RS("ART") & "pro.jpg")) Then Response.Write "Bild Saknas" Else %> pro.jpg" vspace="0" hspace="1" border="0" onMouseDown="MM_openBrWindow('storabilder/<%=RS("ART")%>.jpg','storbild','width=400,height=400')"> <%end if%>
	<%=RS("Artikel")%>
	<%=RS("beskrivning")%>
	pris <%=RS("inklmoms")%>kr/ <%=RS("enhet")%> inkl. moms
	antal: ','<%=RS("artikel")%>',document.form1.antal<%=i%>.value,'<%=RS("inklmoms")%>');">