首页滚动信息

<% if session("adminok")="" then session.timeout=5 response.redirect "index.asp" end if %> <% dim conn,DBPath Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("../db/n.asp") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath set adsconn=server.createobject("ADODB.Connection") adsdata="driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath homepage = "http://www.bjxroom.com/soho/index.asp" 'homepage = 主页 homename = "伴江行营销网络" 'homename = 主页名称 webmaster = "webmaster@bjxroom.com" 'webmaster=站长信箱 webQQ = "180852703" webaddress ="广州市东风东路伴江行网络有限公司" webpostcode ="510090" webbank ="中国招商银行广州分行" webcard ="0020-80165723" webegold ="" webname ="邹小周" %> <% Set rs= Server.CreateObject("ADODB.Recordset") sql1="select * from tzh where id=111 " rs.open sql1,conn,3,2 %> 首页滚动信息