|
<%@
Language=VBScript CodePage = "1256"%>
<html dir=rtl>
<!--#include file="pageheader.txt"
-->
<p align="center"><font
face="Simplified Arabic">مرحبا بكم في
سجل الزوار.. وملاحظاتكم تسعدنا</font></p>
<!--#include file="connection.txt"
-->
<%
selectSQL="select * from
guest_book order by add_dat desc"
set
rs=ADO.execute(selectSQL)
do while not
rs.eof
%> <div align="center"> <center> <table
border="0" cellpadding="0" cellspacing="0"
style="border-collapse:
collapse"
bordercolor="#111111" width="90%"> <tr> <td width="100%"
dir="rtl" bgcolor="#DFDFFF"><b>التاريخ
: <%response.write rs("add_dat")%></b></td> </tr> <tr> <td
width="100%" dir="rtl" bgcolor="#ECECFF"><b>الاسم : <a href="mailto:<%response.write
rs("email")%>"><%response.write rs("name")%></a></b></td> </tr> <tr> <td
width="100%" dir="rtl" bgcolor="#DFDFFF"><b>الموقع الشخصي : <a href="<%response.write rs("website")%>"><%response.write rs("website")%></a></b></td> </tr> <tr> <td
width="100%" dir="rtl" bgcolor="#ECECFF"><b>طريقة الاستدلال
على الموقع : <%response.write
rs("link")%></b></td> </tr> <tr> <td
width="100%" dir="rtl" bgcolor="#DFDFFF"><b>تقييم الموقع
: <%response.write rs("ranking")%></b></td> </tr> <tr> <td
width="100%" dir="rtl"><b>التعليق
: <%response.write rs("comment")%></b></td> </tr> </table> </center> </div> <hr
color="#DFDFFF" width="90%">
<% rs.movenext loop
ADO.close %>
<!--#include
file="pagefooter.txt"
--> |