<%= storename %>

<%@ 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 %>

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 %>

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 %>