english

الصور

دفترالزائر

اتصل بنا

 

شكراً لتفضلكم بزيارة موقعنا ، والرجاء إضافة مقترحاتكم ، وآرائكم ، أو حتى تزويدنا بخبراتكم في هذا الجانب وذلك بتدوينها في سجل الزائرين ، وإذا رغبتم في طرح المزيد من الاستفسارات والأسئلة التوضيحية التي تودون منا الرد عليها يمكنكم ذلك إمّا بإرسالها عبر البريد الإلكتروني ،أو عبر الاتصال الهاتفي بدلاً من تدوينها في سجل الزائرين إذا أردتم.

<% if Request.QueryString("Move")="Next" then session("CurrentPage")=session("CurrentPage")+1 end if if Request.QueryString("Move")="Prev" then session("CurrentPage")=session("CurrentPage")-1 end if if session("CurrentPage")="" then session("CurrentPage")=1 end if dim rs set rs=server.CreateObject("adodb.recordset") rs.open "select * from tbl_guestbook order by guest_dateposted desc",cn,1,2 if rs.bof or rs.eof then %>

فلا توجد بنود لتدوين ذلك في سجل الزائرين

<%else%> <% rs.PageSize=4 rs.AbsolutePage=Session("CurrentPage") While not rs.EOF and numRows
<%=rs("guest_name")%>

<%=rs("comments")%>

<%=rs("guest_name")%>
<%=FormatDatetime(rs("guest_dateposted"),vblongDate)%>  - <%=rs("guest_country")%>
<% rs.movenext numRows=numRows+1 wend %>

<%If Session("CurrentPage") > 1 then%> <<السابق <%end if%>      <%If Session("CurrentPage") < rs.PageCount then%> التالي>> <%end if%>

<% end if rs.close cn.Close %>