<%@ Language=VBScript @ENABLESESSIONSTATE=FALSE%>
<%
Response.Buffer = TRUE
'variable
dim oConn,oRS,sSQL,bg,ConnString,count
'sSQL = "SELECT ID,NAME, DATE_IN, PIC,SENTENCE,DETAILS,THERE,DISPALY FROM PRISONERS WHERE ID > 0 ORDER BY DISPLAY "
sSQL="SELECT * FROM PRISONERS where there<>1 ORDER BY DISPLAY"
'create objects connection and record set
Set oConn = Server.CreateObject("ADODB.Connection")
set oRS =Server.CreateObject("ADODB.Recordset")
'create connection to data base define database and its path
ConnString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/mydb.mdb")
'open connection with database
oConn.open(ConnString)
'open recordset object excuting the sql
oRS.Open sSQL,oConn,3,1,1
'set our variable count equal to the number of records
count=oRS.Recordcount
If Not oRS.EOF Then
bg = "#dedfdf"
Response.Write("")
Response.Write("| تاريخ الاعتقال | ")
Response.Write("من هو؟ | ")
Response.Write(" الاسم | ")
Response.Write("الحكم | ")
Response.Write("صورة | ")
Response.Write("")
Do While Not oRS.EOF
If bg = "#dedfdf" Then
Response.Write(" ")
bg = "#999999"
Else
Response.Write(" ")
bg = "#dedfdf"
End If
Response.Write("| "&oRS("DATE_IN")& " | ")
Response.Write(" تعرف عليه | ")
Response.Write("الاسير المناضل " & oRS("NAME") & " | ")
Response.Write("" & oRS("SENTENCE") & " | ")
If oRS("PIC")<>"" Then
Response.Write("![](images/" & oRS ("PIC") & ") | ")
else
Response.Write("  | ")
End IF
Response.Write(" ")
oRS.MoveNext
Loop
Response.Write("
")
Response.Write(" | ")
Response.Write("
")
Response.Write("