<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_ado_access.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_SanYangPai_STRING MM_SanYangPai_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/access_db/SanYangPai.mdb") %> <% Dim rsHealthProduct Dim rsHealthProduct_numRows Set rsHealthProduct = Server.CreateObject("ADODB.Recordset") rsHealthProduct.ActiveConnection = MM_SanYangPai_STRING rsHealthProduct.Source = "SELECT * FROM tbl_Health_Product" rsHealthProduct.CursorType = 0 rsHealthProduct.CursorLocation = 2 rsHealthProduct.LockType = 1 rsHealthProduct.Open() rsHealthProduct_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsHealthProduct_numRows = rsHealthProduct_numRows + Repeat1__numRows %> San Yang Pai - Health Products
  Home Page  
Home
RANGE HOODS MASSAGE CHAIRS MASSAGE PRODUCTS WATER SYSTEMS  
MASSAGE PRODUCTS
<% Dim I I = 1 %> <% While ((Repeat1__numRows <> 0) AND (NOT rsHealthProduct.EOF)) %> <% If I mod 3 = 1 then %> <% End If %> <% If I mod 3 = 0 then %> <% End If %> <% I = I + 1 %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsHealthProduct.MoveNext() Wend %>
">" width="200" height="150" border="0" class="pageBorder" />
" class="sub_menu"><%=(rsHealthProduct.Fields.Item("Model").Value)%>

RANGE HOODS MASSAGE CHAIRS MASSAGE PRODUCTS WATER SYSTEMS
 
 
 
1848 South San Gabriel Boulevard San Gabriel CA 91776 Tel: 626-571-2922, 626-571-2921. © Copyright SANYANGPAI INC. All Right Reserved.
<% rsHealthProduct.Close() Set rsHealthProduct = Nothing %>