<% ' Redirect sname = Request.ServerVariables("SERVER_NAME") sname = lcase(sname) if (InStr(sname,"yourpagemaker") > 0 or InStr(sname,"216.119.73.229") > 0) then response.redirect "http://www.yourpagemaker.com/home/" end if if InStr(sname,"fmskatium") > 0 then response.redirect "http://www.yourpagemaker.com/fmskatium/" end if if InStr(sname,"fmphantoms") > 0 then response.redirect "http://www.yourpagemaker.com/fmphantoms/" end if 'Cookies -------------------------- index_cookie=request.Cookies("index") ignore=request.Cookies("ignore") If index_cookie="" And ignore="" Then response.Cookies("index")="1" response.Cookies("index").Expires = date + 1 End If 'Find out if cookie contains ipcode ---------------------------------------- ipcode=request.Cookies("ipcode") %> QuiltsCrafts.com - Quilt Kits

100% Cotton
Quality
Quilt Top Kits

www.QuiltsCrafts.com
100% Quality
Service
Guarantee
<% 'Load kit information from kits.txt ------------------------------------------------------ Dim objFSO,objTS,kitvar(100),kits(100),kit_info,sizes,kits_temp(100),price_codes() Dim size_codes(),categories(),ship_codes(),quilt_sizes() Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile("d:\inetpub\yourpagemaker\kits.txt") I=-1 CAT=-1 PC=-1 SC=-1 SHC=-1 QS=-1 Do I=I+1 kitvar(I)=objTS.ReadLine If kitvar(I)="categories" Then CAT=0 End If If kitvar(I)="price_codes" Then CAT=-1 PC=0 End If If kitvar(I)="size_codes" Then PC=-1 SC=0 End If If kitvar(I)="ship_codes" Then SC=-1 SHC=0 End If If kitvar(I)="quilt_sizes" Then SHC=-1 QS=0 End If If kitvar(I)="end" Then QS=-1 End If 'Load Catefories into categories Array -------------------------------- If CAT>-1 Then ReDim Preserve categories(CAT) categories(CAT)=kitvar(I) CAT=CAT+1 End If 'Load Prices into price_codes Array ----------------------------------- If PC>-1 Then ReDim Preserve price_codes(PC) price_codes(PC)=kitvar(I) PC=PC+1 End If 'Load Sizes into size_codes Array ------------------------------------- If SC>-1 Then ReDim Preserve size_codes(SC) size_codes(SC)=kitvar(I) SC=SC+1 End If 'Load Sizes into ship_codes Array ------------------------------------- If SHC>-1 Then ReDim Preserve ship_codes(SHC) ship_codes(SHC)=kitvar(I) SHC=SHC+1 End If 'Load Quilt Sizes into quilt_sizes Array ------------------------------------- If QS>-1 Then ReDim Preserve quilt_sizes(QS) quilt_sizes(QS)=kitvar(I) QS=QS+1 End If Loop Until kitvar(I)="end" Kit_Description=objTS.ReadLine I=0 high_kit=0 low_kit=1000 new_kits=0 'Load Kits Into kit_temp() and find High and Low kits and new kits ------------------------ Do I=I+1 kits_temp(I)=objTS.ReadLine If kits_temp(I)="end" Then Exit Do End If kit_info=Split(kits_temp(I),",") If kit_info(0)="new" Then new_kits=new_kits+1 End If If CLng(kit_info(7))"new" and kit_info(0)<>"off" Then low_kit=CLng(kit_info(7)) End If If CLng(kit_info(7))>high_kit and kit_info(0)<>"new" and kit_info(0)<>"off" Then high_kit=CLng(kit_info(7)) End If Loop objTS.close number_of_kits=I-1 'Put kits in order -------------------------------------------- I=1 Do For search=1 to number_of_kits kit_info=Split(kits_temp(search),",") If CLng(kit_info(7))=low_kit And new_kits=0 And kit_info(0)<>"off" And kit_info(0)<>"new" Then kits(I)=kits_temp(search) I=I+1 Exit For End If If kit_info(0)="new" and new_kits>0 Then kits(I)=kits_temp(search) I=I+1 End If Next If new_kits>0 Then new_kits=0 Else low_kit=low_kit+1 End If Loop Until low_kit>high_kit number_of_kits=I-1 'Find Category Number ----------------------------------------------------------- cat_code=Request.ServerVariables("QUERY_STRING") If cat_code<>"" Then cat_code=CLng(cat_code) If cat_code<1 or cat_code>7 Then cat_code=0 End If Else cat_code=0 End If %>

<% 'Find out if the customer has an existing Cart? --------------------------------------- 'file_url="d:\inetpub\yourpagemaker\cart\cart"&ipcode&".txt" 'Set objTS=Server.CreateObject("Scripting.FileSystemObject") 'If objTS.FileExists(file_url)="True" Then %>

<%'Else ' img src="http://www.quiltscrafts.com/images/space.gif" width="1" height="10" border="0">
'End If%> Home



View All Quilt Kits



<% 'Web Page Navigational System ------------------------------------------------- For category=1 to Ubound(categories) kit_info=Split(categories(category),",") Response.write("") Response.write("") Response.write(""&kit_info(1)&"") Response.write("
"&vbCrLf) For I=1 to number_of_kits kit_info2=Split(kits(I),",") If kit_info2(6)=kit_info(0) Then If kit_info2(0)="new" Then%> "> <%=kit_info2(4)%> <%Else Response.write("") Response.write("") Response.write(kit_info2(4)) Response.write("") End If Response.write("
"&vbCrLf) End If Next Response.write("
") Response.write("
") Response.write("
") Next %> Links




________________________________
Home


    LOVE to quilt, but hate to do all the cutting? Let me do the cutting for you! Shopping around trying to find the perfect coordinating fabrics is done for you. All of the fabrics in my kits are carefully selected and color matched. All of my kits contain all of the pre-cut fabric needed to complete a quilt top. Also included are easy to follow step-by-step instructions. Most of my kits are one of a kind designs that you won't find anywhere else.
News


The Shopping cart system is down at this time. Please send me an email of what products you're interested in and I will help you with your order.

Thank You,
Tony


If you would like to receive email notices on new
products please fill in your name and email address.

Name:   Email :
Add or Remove:   

If you have any Questions feel free to Email Me at: