宜蘭民宿-三月三

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> 宜蘭民宿-三月三 <% '--------------------設定SQL查詢語法--目標資料表----------------------- page=request("page") SET rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From news order by up_time desc " , conn,1,3 %>

1A 精緻四~六人家庭房

1B 精緻二人房或親子套房

1C 精緻四人房

1D 精緻四人房

1E 精緻兩人房

2A 精緻二人房或親子套房

2B 精緻二人房

3A 精緻二人房

3B 精緻二人房

請多利用WEB ATM轉帳更方便哦

【匯款資訊】
．	銀　　行：玉山銀行羅東分行
．	戶　　名：黃林菊
．	銀行代號：808
．	銀行帳號：0451 968 133 399

宜蘭民宿【三月三】
位於蘭陽平原中心，緊臨羅東溪畔，前棟客廳挑高8米可賞欣日出光影及優閒享用活力早餐客房每間20~50坪的超大空間。門前即是河濱自行車道，經左800公尺即可到47公頃的羅東休閒運動公園，住右可至安農溪自行車道，雙園自行車道，東港濱海自行車道北線，新水自行車道，冬山河自行車道。

<% if rs.recordcount=0 then %> <% else rs.PageSize =10 '每頁記錄條數 iCount=rs.RecordCount '記錄總數 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if For i=1 To x %>

暫無資料

　<%=rs("up_time")%>

→ " class="style9"><%=rs("title")%>

<%rs.movenext next call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一頁下一頁鏈接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("

" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("

" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首頁 " & vbCrLf) response.write ("|" & vbCrlf) Response.Write ("上頁 " & vbCrLf) else Response.Write("首頁 " & vbCrLf) response.write ("|" & vbCrlf) Response.Write("上頁 " & vbCrLf) end if if page>=pagecount then response.write ("|" & vbCrlf) Response.Write ("下頁 " & vbCrLf) response.write ("|" & vbCrlf) Response.Write ("尾頁 " & vbCrLf) else response.write "|" Response.Write("下頁 " & vbCrLf) response.write ("|" & vbCrlf) Response.Write("尾頁 " & vbCrLf) end if Response.Write(" 頁次：" & page & "/" & pageCount & "頁" & vbCrLf) Response.Write(" 共有" & iCount & "筆資料" & vbCrLf) Response.Write(" 轉到" & "" & "頁" & vbCrLf & "") response.write " 管理" Response.Write("

" & vbCrLf ) End Sub %>

宜蘭民宿-三月三　預約專線:0922-104-303　FAX:0945-675-272　宜蘭縣羅東鎮河濱路226號
宜蘭民宿-三月三旅店　縣府核準合法民宿　核準文號：府旅觀字　第0960063011號　編號：263

網站設計：彩虹軒設計整合行銷