<%@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 rsAboutUs__MMColParam rsAboutUs__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then rsAboutUs__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsAboutUs Dim rsAboutUs_numRows Set rsAboutUs = Server.CreateObject("ADODB.Recordset") rsAboutUs.ActiveConnection = MM_SanYangPai_STRING rsAboutUs.Source = "SELECT * FROM tbl_AboutUs WHERE AboutUs_OnLine = " + Replace(rsAboutUs__MMColParam, "'", "''") + "" rsAboutUs.CursorType = 0 rsAboutUs.CursorLocation = 2 rsAboutUs.LockType = 1 rsAboutUs.Open() rsAboutUs_numRows = 0 %> San Yang Pai - About Us
  Home Page  
Home
RANGE HOODS WATER SYSTEMS  
ABOUT US
 
<%=(rsAboutUs.Fields.Item("AboutUs_Title").Value)%>
 
<%=(rsAboutUs.Fields.Item("AboutUs_Detail").Value)%>
 
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.
<% rsAboutUs.Close() Set rsAboutUs = Nothing %>