<%@ Language=VBScript @ENABLESESSIONSTATE=FALSE%> <% Response.Buffer = TRUE ID = Request.QueryString("ID") sSQL = "SELECT * FROM PRISONERS WHERE ID=" & ID 'sDB = "Provider=Microsoft.Jet.OLEDB.4.0; Password=""""; User ID=Admin; Data Source=rimawi\database\mydb.mdb sDB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/mydb.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open(sDB) Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Open sSQL, sDB If Not oRS.EOF Then bg = "#dedfdf" Response.Write("
"&oRS("NAME")&"
") Response.Write("
الاسير المناضل "&oRS("NAME")&"
") Response.Write("
الاسم
"&oRS("NAME")&"
") Response.Write("
تاريخ الاعتقال
"&oRS("DATE_IN")&"
") Response.Write("
الحكم
"&oRS("SENTENCE")&"
") Response.Write("
") Response.Write("
"&oRS("DETAILS")&"
") End If oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing ' Response.Write(sSQL) %>
![](/images/" & oRS ("PIC")&")