<%@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 Dim rsVideo_numRows Set rsVideo = Server.CreateObject("ADODB.Recordset") rsVideo.ActiveConnection = MM_SanYangPai_STRING rsVideo.Source = "SELECT * FROM tbl_Video ORDER BY VideoID ASC" rsVideo.CursorType = 0 rsVideo.CursorLocation = 2 rsVideo.LockType = 1 rsVideo.Open() rsVideo_numRows = 0 %> <% Dim rsRangeHood__MMColParam rsRangeHood__MMColParam = "1" If (Request.QueryString("Model_ID") <> "") Then rsRangeHood__MMColParam = Request.QueryString("Model_ID") End If %> <% Dim rsRangeHood Dim rsRangeHood_numRows Set rsRangeHood = Server.CreateObject("ADODB.Recordset") rsRangeHood.ActiveConnection = MM_SanYangPai_STRING rsRangeHood.Source = "SELECT * FROM tbl_RangeHood WHERE Model_ID = " + Replace(rsRangeHood__MMColParam, "'", "''") + "" rsRangeHood.CursorType = 0 rsRangeHood.CursorLocation = 2 rsRangeHood.LockType = 1 rsRangeHood.Open() rsRangeHood_numRows = 0 %> <% Dim rsPicture__MMColParam rsPicture__MMColParam = "1" If (Request.QueryString("Model_ID") <> "") Then rsPicture__MMColParam = Request.QueryString("Model_ID") End If %> <% Dim rsPicture Dim rsPicture_cmd Dim rsPicture_numRows Set rsPicture_cmd = Server.CreateObject ("ADODB.Command") rsPicture_cmd.ActiveConnection = MM_SanYangPai_STRING rsPicture_cmd.CommandText = "SELECT * FROM tbl_RangeHood_Pic WHERE Model_ID = ?" rsPicture_cmd.Prepared = true rsPicture_cmd.Parameters.Append rsPicture_cmd.CreateParameter("param1", 5, 1, -1, rsPicture__MMColParam) ' adDouble Set rsPicture = rsPicture_cmd.Execute rsPicture_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsRangeHoodCat_numRows = rsRangeHoodCat_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsVideo_numRows = rsVideo_numRows + Repeat2__numRows %> <% Dim Repeat_rsPicture__numRowsHL Dim Repeat_rsPicture__indexHL Repeat_rsPicture__numRowsHL = -1 Repeat_rsPicture__indexHL = 0 rsPicture_numRows = rsPicture_numRows + Repeat_rsPicture__numRowsHL %> 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 %>
" />
<% ' Horizontal Looper version 3 While ((Repeat_rsPicture__numRowsHL <> 0) AND (NOT rsPicture.EOF)) %> <% 'Horizontal Looper version 3 Repeat_rsPicture__indexHL=Repeat_rsPicture__indexHL+1 Repeat_rsPicture__numRowsHL=Repeat_rsPicture__numRowsHL-1 rsPicture.MoveNext() if len(nested_rsPicture)<=0 then nested_rsPicture = 1 end if if ((Repeat_rsPicture__numRowsHL <> 0) AND (NOT rsPicture.EOF) AND (nested_rsPicture mod 4 = 0)) then Response.Write "" end if nested_rsPicture = nested_rsPicture + 1 'end horizontal looper version 3 Wend %>
/>')">
" />
<%=(rsPicture.Fields.Item("Pic_Desc").Value)%>
 
     
Model No:   <%=(rsRangeHood.Fields.Item("Model_No").Value)%>
Title:   <%=(rsRangeHood.Fields.Item("Model_Title").Value)%>
Body Dimension:   <%=(rsRangeHood.Fields.Item("Body_Dimension").Value)%>
Exhaust Volume:   <%=(rsRangeHood.Fields.Item("Exhaust_Volume").Value)%>
Rotation:   <%=(rsRangeHood.Fields.Item("Rotation").Value)%>
Revolutions:   <%=(rsRangeHood.Fields.Item("Revolutions").Value)%>
Voltage:   <%=(rsRangeHood.Fields.Item("Voltage").Value)%>
Noise Level:   <%=(rsRangeHood.Fields.Item("Noise_Level").Value)%>
Duct Diameter:   <%=(rsRangeHood.Fields.Item("Duct_Diameter").Value)%>
Control:   <%=(rsRangeHood.Fields.Item("Control").Value)%>
Appearance Treatment   <%=(rsRangeHood.Fields.Item("Appearance_Treatment").Value)%>
   
<% While ((Repeat2__numRows <> 0) AND (NOT rsVideo.EOF)) %>
" class="sub_menu"><%=(rsVideo.Fields.Item("Video_Name").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsVideo.MoveNext() Wend %>
 
 
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 %> <% rsRangeHood.Close() Set rsRangeHood = Nothing %> <% rsPicture.Close() Set rsPicture = Nothing %>