<%@LANGUAGE="VBSCRIPT" codepage=65001 %> <% Response.Charset="utf-8" %> قاعدة بيانات قوانين الحجر البيطري في الدول العربية <%set conn=server.createObject("Adodb.connection") strdsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Quaratine.mdb") conn.open strdsn set rscountry=server.createobject("Adodb.recordset") set rsfield=server.createobject("Adodb.recordset") set rslawtype=server.createobject("Adodb.recordset") set rs=server.createobject("Adodb.recordset") sqlcountry="select * from Tbl_Countries where id=" sqlfield="select * from Fields" sqllawtype="select * from Lawtypes" ''rscountry.open sqlcountry,conn,1 rsfield.open sqlfield,conn,1 rslawtype.open sqllawtype,conn,1 sql="select * from Rules_info where 1=1" field=request.querystring("field") Lawtype=request.querystring("Lawtype") %> <%''response.write "Country=" & Country%>
 بحث متقدم
إستعراض البيانات حسب الدول
إستعراض البيانات حسب المجال
 دليل إستخدام القاعدة
صفحة رئيسية

  <%if (request.form("Title_Ar")="" and request.form("Title_En")="") then%>

 

 

 

مسمى القانون (عربي) ">
 

مسمى القانون (إنجليزي)

 

">

 

 

<%else%>
رجـــوع
<% if request.form("Title_Ar")<>"" then sql=sql & " and Rule_Title_Ar like '%" & request.form("Title_Ar") &"%'" end if if request.form("Title_En")<>"" then sql=sql & " and Rule_Title_En like '%" & request.form("Title_En") &"%'" end if ''response.write "Sql====" & sql rs.open sql,conn,1 %> <%%> <%if not (rs.bof and rs.eof) then%> <%do while not rs.eof%> <%sqlcountry=sqlcountry & rs.fields("country")%> <%''response.write "sqlcountry=" & sqlcountry%> <%rscountry.open sqlcountry,conn,1%> <%if request.form("Title_Ar")<>"" then%> <%end if%> <%if request.form("Title_En")<>"" then%> <%end if%> <%rs.movenext%> <%sqlcountry="select * from Tbl_Countries where id="%> <%rscountry.close%> <%loop%> <%end if%> <%end if%>
القانون الدولة
&Rule_Title_En=<%=rs.fields("Rule_Title_En")%>&Entry_date=<%=rs.fields("Entry_date")%>&Rule_issue_date=<%=rs.fields("Rule_issue_date")%>&Keywords=<%=rs.fields("Keywords")%>&Rule_Field=<%=rs.fields("Rule_Field")%>&Rule_text=<%=rs.fields("Rule_text")%>&country=<%=rs.fields("country")%>&id=<%=rs.fields(0)%>&Rule_no=<%=rs.fields("Rule_no")%>&Definition=<%=rs.fields("Definition")%>&Field=<%=rs.fields("Field")%>&Lawtype=<%=rs.fields("Law_type")%>"><%=rs.fields("Rule_Title_Ar")%>   <%=rscountry.fields("Full_name_a")%> 
&Rule_Title_En=<%=rs.fields("Rule_Title_En")%>&Entry_date=<%=rs.fields("Entry_date")%>&Rule_issue_date=<%=rs.fields("Rule_issue_date")%>&Keywords=<%=rs.fields("Keywords")%>&Rule_Field=<%=rs.fields("Rule_Field")%>&Rule_text=<%=rs.fields("Rule_text")%>&country=<%=rs.fields("country")%>&id=<%=rs.fields(0)%>&Rule_no=<%=rs.fields("Rule_no")%>&Definition=<%=rs.fields("Definition")%>&Field=<%=rs.fields("Field")%>&Lawtype=<%=rs.fields("Law_type")%>"><%=rs.fields("Rule_Title_En")%> 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

    Copyright© AOAD 2010