歷期介紹訂閱電子報聯絡鼎新回鼎新首頁
 

【索取企業通電子報】

公司(學校)名稱
*
公司地址
郵遞區號 縣市   地址
聯絡人
*
職稱
聯絡電話
- 分機 *
傳真
-
年營業額
行業別
員工數
E-mail
*
 訊息來源
鼎新網站 企業通雜誌 mail邀請
未來公司是否有購買資訊系統的需求?(可複選)
ERP WorkFlow SCM CRM BI PDM B2B EC B2C APS
PLC(PRODUCT LIFE CYCLE) STORAGE 網管 防毒 防火牆 EIP VPN M化 EC金流 E-MAIL 其他
 請問您期望鼎新企業通電子報可新增加哪些單元內容?
我要索取企業通電子報 (日後您將會每個月5日(遇假日順延)固定收到最新期數電子報)
 
* 若無法正常傳送者,請列印出來傳真至(02)8911-0288,謝謝!

鼎新電腦 版權所有 Copyright © Data Systems Consulting Co., Ltd. All rights reserved.

鼎新電腦(股)公司將遵循「個人資料保護法」以妥善處理、利用本表所載之個人資料,並採取資料保護措施。您有權提出要求使用、更正、補充、刪除或封鎖這些個人資料,或提出反對將您的個人資料用於直效行銷及/或接收特定或各類行銷資料,請將任何這些要求寄至:dscmaz@dsc.com.tw

<% Function TitleList() '宣告資料庫連線 Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("database/search.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath '宣告資料集 set rst1 = Server.CreateObject("ADODB.Recordset") rst1.CursorLocation = 3 'adUseClient rst1.CursorType = 1 'adOpenKeyset rst1.LockType = 4 'adLockBatchOptimistic strwhere = "" if trim(request("Keyword")) <> "" then strwhere = strwhere & "AND Title like '%" & trim(request("Keyword")) & "%' " end if if trim(request("Author")) <> "" then strwhere = strwhere & "AND Author like '%" & trim(request("Author")) & "%' " end if if trim(request("Unit")) <> "" then strwhere = strwhere & "AND Unit in ('" & replace(trim(request("Unit")),", ","','") & "') " end if if trim(request("SDate")) <> "0" then strwhere = strwhere & "AND No_num >= '" & trim(request("SDate")) & "' " end if if trim(request("EDate")) <> "0" then strwhere = strwhere & "AND No_num <= '" & trim(request("EDate")) & "' " end if if strwhere <> "" then strwhere = right(strwhere,len(strwhere)-4) Sqlstr = "Select * From newspaper where " & strwhere & " order by No_num Desc" else Sqlstr = "Select * From newspaper order by No_num Desc" end if rst1.Open Sqlstr, conn if rst1.RecordCount = 0 then response.write "" response.write "查無資料" response.write "" else for i = 1 to rst1.RecordCount if i mod 2 = 0 then response.write "" response.write "
" & rst1.Fields("No_all").Value & "
" response.write "
" & rst1.Fields("Unit").Value & "
" response.write "" & rst1.Fields("Title").Value & "" response.write "" & rst1.Fields("Author").Value & "" response.write "
" response.write "" else response.write "" response.write "
" & rst1.Fields("No_all").Value & "
" response.write "
" & rst1.Fields("Unit").Value & "
" response.write "" & rst1.Fields("Title").Value & "" response.write "" & rst1.Fields("Author").Value & "" response.write "
" response.write "" end if rst1.MoveNext next end if End Function %>