<%@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 rsRangeHoodCat Dim rsRangeHoodCat_numRows Set rsRangeHoodCat = Server.CreateObject("ADODB.Recordset") rsRangeHoodCat.ActiveConnection = MM_SanYangPai_STRING rsRangeHoodCat.Source = "SELECT * FROM tbl_RangeHood_Cat ORDER BY CatOrder ASC" rsRangeHoodCat.CursorType = 0 rsRangeHoodCat.CursorLocation = 2 rsRangeHoodCat.LockType = 1 rsRangeHoodCat.Open() rsRangeHoodCat_numRows = 0 %> <% Dim rsVideo__MMColParam rsVideo__MMColParam = "1" If (Request.QueryString("Video_File") <> "") Then rsVideo__MMColParam = Request.QueryString("Video_File") End If %> <% Dim rsVideo Dim rsVideo_numRows Set rsVideo = Server.CreateObject("ADODB.Recordset") rsVideo.ActiveConnection = MM_SanYangPai_STRING rsVideo.Source = "SELECT * FROM tbl_Video WHERE Video_File = '" + Replace(rsVideo__MMColParam, "'", "''") + "' ORDER BY VideoID ASC" rsVideo.CursorType = 0 rsVideo.CursorLocation = 2 rsVideo.LockType = 1 rsVideo.Open() rsVideo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsRangeHoodCat_numRows = rsRangeHoodCat_numRows + Repeat1__numRows %> San Yang Pai - Home Pages
  Home Page  
Home
RANGE HOODS WATER SYSTEMS  
 
<% While ((Repeat1__numRows <> 0) AND (NOT rsRangeHoodCat.EOF)) %>
" class="sub_menu"><%=(rsRangeHoodCat.Fields.Item("Category").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsRangeHoodCat.MoveNext() Wend %>
  " class="sub_menu">
 
 
RANGE HOODS WATER SYSTEMS
 
 
 
1848 South San Gabriel Boulevard San Gabriel CA 91776 Tel: 626-571-2922, 626-571-2921. © Copyright SANYANGPAI INC. All Right Reserved.
<% rsRangeHoodCat.Close() Set rsRangeHoodCat = Nothing %> <% rsVideo.Close() Set rsVideo = Nothing %>