%@LANGUAGE="VBSCRIPT"%> <% category=Request.Querystring("c_id") set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_kworld_STRING Recordset1.Source = "SELECT c_category, c_knitjpage, j_company, info_id FROM j_info" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 total=0 TG=0 KS=0 KM=0 KSu=0 KMa=0 TA=0 YC=0 JT=0 FA=0 TT=0 TM=0 do while NOT Recordset1.EOF category=Recordset1("c_category") select case (category) case "Textile Galleries" TG=TG+1 total=total + 1 case "Textile Schools" KS=KS + 1 total=total + 1 case "Knitting Magazines" KM=KM + 1 total=total + 1 case "Knitting Supplies" KSu=KSu + 1 total=total + 1 case "Knitting Machinery" KMa=KMa + 1 total=total + 1 case "Trade Organisations" TA=TA + 1 total=total + 1 case "Yarn Companies" YC=YC + 1 total=total + 1 case "Japanese Techniques" JT=JT + 1 total=total + 1 case "Fibre Artists" FA=FA + 1 total=total + 1 case "Traditional textiles" TT=TT + 1 total=total + 1 case "Textile Makers" TM=TM + 1 total=total + 1 end select Recordset1.moveNext loop Recordset1.moveFirst if total=0 then message="
No information is available in this section at the moment, but the first items should appear within a few days.
" end if %>| |
|
|
selected
information
|
| click |
selection
|
number
|
latest items | ||
| All Categories |
<%=Total%> items |
<%
do while NOT Recordset1.EOF
response.write("
We are preparing a unique source of information about knitting and other textile activities in Japan. We will be featuring in-depth descriptions of many well known Japanese companies and institutions, and methods of making contact with them. We will also be putting the spotlight on other little known areas, probing into the back streets of Kyoto and elsewhere to find traditional crafts people and products that are little known outside Japan. Please be patient - this will take time and consultation. If you are interested in this area, please revisit the site soon and you will find information starting to appear, bit by bit. <%=message%> |
|||
| Fibre Artists | <%=FA%> items | ||||
| Knitting Machinery | <%=KMa%> items | ||||
| Knitting Magazines | <%=KM%> items | ||||
| Textile Schools | <%=KS%> items | ||||
| Knitting Supplies | <%=KSu%> items | ||||
| Japanese Techniques | <%=JT%> items | ||||
| Textile Galleries | <%=TG%> items | ||||
| Textile Makers | <%=TM%> items | ||||
| Trade Organisations | <%=TA%> items | ||||
| Traditional Textiles | <%=TT%> items | ||||
| Yarn Companies | <%=YC%> items |