<%@ import Namespace="System.Data" %> <%@ Page Language="VB" %> Chaîne des Rôtisseurs

  <% Dim gallery As Integer = Request("gallery") Dim id As Integer = Request("id") If gallery = Nothing Or id = Nothing Or IsNumeric(gallery) = False Or IsNumeric(id) = False Then Response.Redirect("http://www.chainemacau.com") Response.End() End If Dim ds = New DataSet ds.ReadXml(MapPath("events.xml")) Dim dt As DataTable For Each dt In ds.Tables dt.BeginLoadData() Next dt = ds.Tables(0) Dim title As String = Nothing Dim pic_no As Integer = 10 'if not rs.eof then title = dt(gallery - 1)(1) pic_no = dt(gallery - 1)(2) 'else ' Response.Redirect("http://www.chainemacau.com") ' Response.End() 'end if 'MsgBox(title) If Int(id) > Int(pic_no) Then Response.Redirect("http://www.chainemacau.com") Response.End() End If If Int(id) <> Int(pic_no) Then %> <% else %> <% end if %>
 
 
 

  
Return to main Gallery <% if int(id) <> 1 then %> | Previous Picture <% end if %> <% if int(id) <> int(pic_no) then %> | Next Picture <% End If For Each dt In ds.Tables dt.EndLoadData() Next %>



Download this photo (Larger size)