<BGSOUND SRC="http://users.adelphia.net/~beitreema/images/zat_youm.ram">

") Response.Write("") Response.Write("") Response.Write("
<%@ 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("") Response.Write("") Response.Write("") Response.Write("") If oRS("PIC")<>"" Then Response.Write("") else Response.Write("") End IF Response.Write("") oRS.MoveNext Loop Response.Write("
تاريخ الاعتقالمن هو؟ الاسمالحكمصورة
"&oRS("DATE_IN")& " تعرف عليه الاسير المناضل " & oRS("NAME") & "" & oRS("SENTENCE") & "
") Response.Write("
") Response.Write("
") Response.Write "عدد الاسرى : "& count Response.Write("
") Response.Write("
") End If 'close record set and set it to nothing (destroy it) oRS.Close Set oRS = Nothing 'close connection and destroy it oConn.Close Set oConn = Nothing %>
Thanks to Rim Banna for the song :Please support her by buying her Music

المشاركون في تحرير الصفحه :
Guest Book Sign Guest Book WebMaster اتصل بنا وقع كتاب الزوار كتاب الزوار اتصل بنا © 2005 BeitReema.com