%@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
%>
OUR PRODUCTS |
|
|
 |
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
%>