旅遊 e 世紀網群新體驗新電子商務 - 點景遊

<% session.abandon 'on error resume next dbpath=server.mappath("data/sic.mdb") set conna=server.createobject("adodb.connection") conna.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath sqla = "select * from sic where 識別碼=1" set rsa = Server.CreateObject("ADODB.Recordset") 'rsa.open sqla, conna, adOpenKeyset,adLockReadOnly RSa.Open sqla, Conna, adopenkeyset,adlockpessimistic rsa.movefirst rsa("sicno")=rsa("sicno")+1 if cdate(rsa("todayy"))<>date() then rsa("sicno1")=0 rsa("todayy")=date() else rsa("sicno1")=rsa("sicno1")+1 end if rsa1=rsa("sicno") rsa2=rsa("sicno1") rsa.update Set Conn0 = Server.CreateObject("ADODB.Connection") conn0.open "driver={SQL Server};Database=adver;Server=192.168.1.103;uid=jamest;password=8838" sql1="select * from adver where goodnews='ON' and 上檔日期<='"&date()&"' and 下檔日期>='"&date()&"' and r1 ='V1' order by r1 desc,識別碼 desc" Set rs1 = Server.CreateObject("ADODB.RecordSet") rs1.Open sql1, Conn0, adopenkeyset,adlockpessimistic rs1.movefirst sql2="select * from adver where goodnews='ON' and 上檔日期<='"&date()&"' and 下檔日期>='"&date()&"' and r1 ='V2' order by r1 desc,識別碼 desc" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2, Conn0, adopenkeyset,adlockpessimistic rs2.movefirst sql3="select * from adver where goodnews='ON' and 上檔日期<='"&date()&"' and 下檔日期>='"&date()&"' and r1 ='V3' order by r1 desc,識別碼 desc" Set rs3 = Server.CreateObject("ADODB.RecordSet") rs3.Open sql3, Conn0, adopenkeyset,adlockpessimistic rs3.movefirst sql4="select * from adver where goodnews='ON' and 上檔日期<='"&date()&"' and 下檔日期>='"&date()&"' and r1 ='V4' order by r1 desc,識別碼 desc" Set rs4 = Server.CreateObject("ADODB.RecordSet") rs4.Open sql4, Conn0, adopenkeyset,adlockpessimistic rs4.movefirst %> 旅遊 e 世紀網群新體驗新電子商務 - 點景遊

	= 團體旅遊 =
	團體行程
	= 自主旅遊 =
	Early Bird促銷專區加拿大瀟灑遊坐火車遊世界加航自主遊曼谷瀟灑遊澳洲瀟灑遊紐西蘭瀟灑遊歐洲瀟灑遊航空訂位

	= 學生青年 =
	學生優惠機票國際學生證國際青年證國際教師證青年旅館卡 CONTIKI青年營
	= 遊學留學 =
	遊學大觀園
	= 航空公司行程=
	芬航假期
	= 鍾愛台灣系列=
	鍾愛台灣水沙連篇南投篇

點景遊 / 台中分公司地圖

台北總公司
Tel : (02)2775-1138 ˙ (02)8773-1333
Fax : (02)8773-3302 ˙ (02)8773-2450
住址 : 106台北市忠孝東路四段142號5樓505室
(捷運忠孝敦化站5號出口) 詳細地圖

台中分公司
TEL:(04) 2322-7528 FAX:(04) 2323-4368
住址:403台中市中港路一段185號7樓之2詳細地圖
-----------------------------------------------------------------------------------------------------------------

網站製作　寰旅科技股份有限公司
TEL:(02)2775-1138　FAX:(02)8773-3302
地址 : 106台北市忠孝東路四段142號5樓505室
Copyright 1999 Golden Formosa.,Ltd All rights reserved.
著作權所有　尊重智慧財產權　請勿任意轉載 <% response.write rsa2&"/"&rsa1 set rsa=nothing %>

旅遊討論區

您有關於旅遊的問題卻無處發問嗎?
趕快來留言討論吧!

旅遊電子報

訂閱取消
E-mail

‧駐代特區

‧同業特區

我的旅遊心情

我的旅遊紀錄

旅遊書籍介紹

<% set rs1=nothing set rs2=nothing set rs3=nothing set rs4=nothing %>