Orion I.T.- 联系我们

<% Dim adoMailingListCon 'Database Connection Variable Dim strMailingListCon 'Holds the Database driver and the path and name of the database Dim strMailingListAccessDB 'Holds the Access Database Name Dim rsMailingListConfiguration 'Holds the configuartion recordset Dim strMailingListSQL 'Holds the SQL query for the database Dim blnMailingListShow 'Set to true Dim strMailingListTextColour 'Holds the text colour of the Mailing List Dim strMailingListTextType 'Holds the font type of the Mailing List Dim strMailingListTextSize 'Holds the font size of the Mailing List Dim strMailingListPath 'Holds the path to the mailing list directory 'Path to the mailing list directory strMailingListPath = "newsletter/mailing_list/" 'Create database connection 'Initialise the strMailingListAccessDB variable with the name and path to the Access Database strMailingListAccessDB = "newsletter/mailing_list/mailing_list.mdb" 'Create a connection odject Set adoMailingListCon = Server.CreateObject("ADODB.Connection") '------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below -------------- 'Database connection info and driver (if this driver does not work then comment it out and use one of the alternative drivers) 'strMailingListCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strMailingListAccessDB) 'Alternative drivers 'strMailingListCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath(strMailingListAccessDB) 'This one is for Access 97 strMailingListCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strMailingListAccessDB) 'This one is for Access 2000 'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers) 'strMailingListCon = "DSN=guestbook" 'Place the DSN name after the DSN= '--------------------------------------------------------------------------------------------------------------------------------------------- 'Set an active connection to the Connection object adoMailingListCon.Open strMailingListCon 'Read in the mailing list configuration 'Intialise the ADO recordset object Set rsMailingListConfiguration = Server.CreateObject("ADODB.Recordset") 'Initialise the SQL variable with an SQL statement to get the configuration details from the database strMailingListSQL = "SELECT tblConfiguration.* From tblConfiguration;" 'Query the database rsMailingListConfiguration.Open strMailingListSQL, strMailingListCon 'If there is config deatils in the recordset then read them in If NOT rsMailingListConfiguration.EOF Then 'Read in the configuration details from the recordset strMailingListTextColour = rsMailingListConfiguration("text_colour") strMailingListTextType = rsMailingListConfiguration("text_type") strMailingListTextSize = CInt(rsMailingListConfiguration("text_size")) blnMailingListShow = CBool(rsMailingListConfiguration("Code")) End If 'Reset server object rsMailingListConfiguration.Close Set rsMailingListConfiguration = Nothing %> Orion I.T.- 联系我们

中文 | ENGLISH

上海公司

点击图片放大

地址:
中国上海淮海中路381号中环广场2301-2308室
电话:
8621 5351 0733
传真:
8621 6391 6775

E-mail: sales@orionits.com.cn
相应职位查询,请访问我们的招聘页面。

如果你对我们公司或者项目方案有一些疑问或者想法，请随时与我们联系。
　

北京公司

点击图片放大

地址:
中国北京市朝阳区光华路丙12号数码01大厦1105室
电话:
8610 65010058
传真:
8610 6501 7718

E-mail: sales@orionits.com.cn
相应职位查询,请访问我们的招聘页面。

如果你对我们公司或者项目方案有一些疑问或者想法，请随时与我们联系。
　