<%@ LANGUAGE = "VBScript" %> <%if session("loggadq") = "" then %> <% session("loggadq") = "countednow" end if Response.Expires = 0 %> <%= storename %> <% bokmark %> <% header categorymenu %>


Välkommen till <%= storename%>



Våra kategorier är:
|
<% set rscat=db.execute("select * from categories") if not rscat.eof then rscat.movefirst While Not rscat.EOF %> "><%=rscat("catname")%> | <% rscat.movenext Wend end if %>
  

Erbjudande!

<% Set rsprod = Server.CreateObject("ADODB.Recordset") rsprod.Open "select * from products where featured=true" , StrConn, adOpenStatic, adLockReadOnly rmax=rsprod.recordcount if not rsprod.eof then t=Timer Randomize t rnum = Int(RND * rmax) rsprod.move rnum if not rsprod.eof then %> <%= rsprod("name") %>

<%If LEN(TRIM(Rsprod.Fields("image"))) <> 0 Then %>" width='100'>
<%else%><%end if%>
<% if rsprod("saleprice")="" or rsprod("saleprice")=0 then %> Pris: <%= formatnumber(rsprod("price"))&" "&cursymbol %> <% else %> Pris: <%= formatnumber(rsprod("price"))&" "&cursymbol %>
Rea pris: <%= formatnumber(rsprod("saleprice")) &" "&cursymbol%> <% end if %>
<%= rsprod("description") %>
Artikel nr: <%= rsprod("artikelnr") %>


<% end if %>
"> <% end if db.Close Set db = Nothing %>
<% footer %>