<%@ EnableSessionState=False%> <% option explicit Response.Buffer = true %> Antique swords and edged weapons shop
Antique edged weapons for sale

Antique edged weapons for sale

Kickfit Martial Arts
28-32 Carrington Street, Nottingham, England NG1 7FG
Telephone: +44 (0)115 9242240

<% dim cnn dim rs dim sql dim FolderDescription dim FolderName dim FolderID dim SelectedFolderID dim selectedFolderDescription dim selectedFolderName dim ShowNewItems dim fixedDescription dim ItemReference dim fso dim ItemID dim strURL dim ItemTitle dim folder dim file dim ImagePath dim SmallPath dim LargePath dim Search dim Searchtitle dim SearchDescription dim SearchRef dim OrderBy SelectedFolderID = 0 + Request.QueryString("cat") Search = 0 + Request.QueryString("s") Searchtitle = "" SearchDescription = "" SearchRef = "" if Search = 1 then Searchtitle = Request.Form("chkTitle") SearchDescription = Request.Form("chkDescription") SearchRef = Request.Form("chkReference") end if if ((Searchtitle = "") and (SearchDescription = "") and (SearchRef = "")) then search = 0 Set cnn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.RecordSet") Set fso = server.CreateObject("Scripting.FileSystemObject") cnn.CursorLocation = 2 'adUseServer cnn.mode = 3 'adModeReadWrite cnn.Open "Provider=MICROSOFT.JET.OLEDB.4.0;Data Source=" & server.MapPath("kickfitshop.mdb") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''folders'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.Write "
" Response.Write "
" Response.Write "" Response.Write "


Search titles

" & vbcrlf Response.Write "

Search descriptions

" & vbcrlf Response.Write "

Search ref numbers

" & vbcrlf Response.Write "

" if search = 1 then Response.Write "" else Response.Write "" end if Response.Write "" Response.Write "

" Response.Write "" Response.Write "
" Response.Write "
" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''end of folders''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''items header'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.Write "
" Response.Write "" if ("" & Request.Form("txtSearch")) = "" then search = 0 ' block big empty searches ! Response.Write "
" if selectedfolderid > 0 then Response.Write "

" & server.htmlencode(selectedfoldername) & "

" Response.Write "

" & server.htmlencode(selectedfolderdescription) & "

" else if Search = 1 then Response.Write "

Search results for '" & server.htmlencode(Request.Form("txtSearch")) & "'

" else Response.Write "

Welcome to the Kickfit antique edged weapons and militaria catalogue

" Response.Write "

" Response.Write "We have a large range of rare and genuine antique edged weapons, martial arts weapons and militaria from around the world." Response.Write "

" Response.Write "

Every item is in stock and stored in our secure warehouse.

" Response.Write "

" Response.write "Prices shown do not include postage and packaging" Response.Write "

" Response.Write "

" Response.Write "We accept various forms of payment and can deliver to almost anywhere in the world." Response.Write "

" Response.Write "

" Response.Write "" Response.Write "

" Response.Write "

" Response.Write "If you need more information or you are interested in purchasing an item, simply find the item and click on it's ""enquire"" button to send us a secure message. We will get back to you ASAP via email." Response.Write "

" Response.Write "

" Response.Write "For all other enquiries or to contact us directly, telephone +44 (0)115 9242240." Response.Write "

" Response.Write "

Last 30 entries added to our catalogue...

" end if end if Response.Write "
" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''end of items header''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''items'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if selectedfolderid > 0 then sql = "SELECT * from Items where FolderID = " & selectedfolderid & " order by ItemTitle" else if search = 1 then sql = "" OrderBy = "" if Searchtitle = "checked" then sql = " (ItemTitle LIKE '%" & replace(Request.Form("txtSearch"),"'","''") & "%') " OrderBy = OrderBy & " ItemTitle," end if if SearchDescription = "checked" then if sql <> "" then sql = sql & " or " sql = sql & " (ItemDescription LIKE '%" & replace(Request.Form("txtSearch"),"'","''") & "%') " OrderBy = OrderBy & " ItemDescription," end if if SearchRef = "checked" then if sql <> "" then sql = sql & " or " sql = sql & " (ItemReference LIKE '%" & replace(Request.Form("txtSearch"),"'","''") & "%') " OrderBy = OrderBy & " ItemReference," end if if right(orderby,1) = "," then orderby = left(orderby,len(orderby)-1) sql = "SELECT * from Items where " & sql & " order by " & orderby if ((Searchtitle = "") and (SearchDescription = "") and (SearchRef = "")) then sql = "select * from Items Order by ItemTitle" else sql = "SELECT Top 30 * from Items order by DateUploaded DESC" end if end if rs.open sql, cnn, 0,1 'adOpenForwardOnly,adLockReadOnly Response.Write "" do until rs.EOF = true ItemTitle = "" & rs("ItemTitle").value ItemTitle = server.HTMLEncode(ItemTitle) fixedDescription = "" & rs("ItemDescription").value fixedDescription = replace(fixedDescription,vbcrlf,"
") ItemReference = "" & rs("ItemReference").Value ItemReference = server.htmlencode(ItemReference) Response.Write "" ' images Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext loop rs.Close Response.Write "

" & ItemTitle & "

" ItemID = rs("ID").Value ImagePath = server.MapPath("images\" & ItemID) set folder = fso.GetFolder(ImagePath & "\small") for each file in folder.files Response.Write "" Response.write "" Response.Write " " next Response.Write "

" & fixedDescription & "

Ref: " & ItemReference & "

" & server.htmlencode(rs("ItemCost").value) & "

 
" Response.Write "
" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''end of folder items'''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''footer'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.Write "
" Response.Write "

Kickfit Martial Arts

" Response.Write "

28-32 Carrington Street, Nottingham, England NG1 7FG

" Response.Write "

Telephone: 0115 924 2240

" Response.Write "

© Copyright Kickfit martial arts academy 2016. All rights reserved

" Response.Write "
" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''end of footer'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' cnn.close set rs = nothing set cnn = nothing set fso = nothing %>