<% response.buffer = true %> <% Response.Expires=-1 %> <% StartTime = Timer() %> <% strConnect = "Provider=SQLOLEDB; Server=66.232.146.181; uid=romafelice; pwd=t0504; DATABASE=romafelice;" dim db,rsa, rab, rsc, sqla, sqlb, sqlc, strconnect Set db = Server.CreateObject("ADODB.Connection") db.open strconnect sqla = "select top 5 num,title, name, writeday from inno_1 order by num desc" set rsa = db.execute (sqla) sqlb = "select top 5 num, title, name, writeday from inno_2 order by num desc" set rsb = db.execute (sqlb) sqlc = "select top 5 num, title, name, writeday from inno_3 order by num desc" set rsc = db.execute (sqlc) %> <% pagesize = 10 block = request("block") if block <> "" then nowblock = request("block") else nowblock=0 end if GotoPage = Request("GotoPage") if block<>"" then CurPage = Block*10 + GotoPage end if if ((GotoPage = "")) then GotoPage = 1 end if %> :::상우무역 춘계 야유회:::
 
즐겁고 보람있는 하루였습니다.
 ☞ 사진을 클릭하시면 보다 큰 사진을 보실 수 있습니다.