%@LANGUAGE="VBSCRIPT" codepage=65001 %>
<% Response.Charset="utf-8" %>
قاعدة بيانات قوانين الحجر البيطري في الدول العربية
<%
dim sql_ins_stud,Doc_No,ACCESSION_NO,Class_no,ISBN,userid,typeid,recno,Entry_Date,sql_dept,sql_media,biblio_level,series_title,series_no,explanations,subjects
set rs_main_index=server.createobject("Adodb.recordset")
set rscountry=server.createobject("Adodb.recordset")
set rsfield=server.createobject("Adodb.recordset")
set rslawtype=server.createobject("Adodb.recordset")
'================================================ Querystrings=======================================
set conn=server.createObject("Adodb.connection")
strdsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Quaratine.mdb")
conn.open strdsn
set rsStud=server.createobject("Adodb.recordset")
set rscont=server.createobject("Adodb.recordset")
country=request.querystring("country")
Field=request.querystring("Field")
if Field<>"*" then
sqlfield="select * from Fields where id in(" & Field & ")"
rsfield.open sqlfield,conn,1
else
sqlfield="select * from Fields"
rsfield.open sqlfield,conn,1
end if
sqllawtype="select * from Lawtypes where id in("
if request.querystring("Lawtype")<>"" then
''rslawtype.open sqllawtype,conn,1
end if
'================================================ Querystrings=======================================
%>
<%
if Field<>"*" and country<>"*" then
sqlquery="select * from Rules_info where country in(" & country & ") and Field in(" & Field &")"
else
if country<>"*" and Field="*" then
sqlquery="select * from Rules_info where country in (" & country &")"
end if
end if
if Field<>"*" and country="*" then
sqlquery="select * from Rules_info where Field in(" & Field & ") and country in (select distinct id from Tbl_Countries)"
end if
if Field="*" and country="*" then
sqlquery="select * from Rules_info where Field in(select distinct id from Fields)" & " and country in (select distinct id from Tbl_Countries)"
end if
if country<>"*" then
sqlcountry="select * from Tbl_Countries where id in( " & country & ")"
rscountry.open sqlcountry,conn,1
end if
if country="*" then
sqlcountry="select * from Tbl_Countries"
rscountry.open sqlcountry,conn,1
end if
'-----------------------------------------------------------------------------------------------
if request.querystring("Rule_Title_Ar")<>""then
sqlquery=sqlquery & " and Rule_Title_Ar like '%"& request.querystring("Rule_Title_Ar") & "%'"
end if
if request.querystring("Lawtype")<>"" then
if request.querystring("Lawtype")<>"*" then
sqlquery=sqlquery & " and Law_Type in("& request.querystring("Lawtype") &")"
end if
end if
if request.querystring("Rule_issue_date")<>""then
sqlquery=sqlquery & " and Rule_issue_date='"& request.querystring("Rule_issue_date") &"'"
end if
'-----------------------------------------------------------------------------------------------
if country="*" then
sqlquery=sqlquery & " order by country"
else
if field="*" then
sqlquery=sqlquery & " order by country,id"
end if
end if
''response.write "sqlquery====" & sqlquery
''if 1=2 then
rs_main_index.open sqlquery,conn,1
if not(rs_main_index.bof and rs_main_index.eof) then
rs_main_index.movefirst
end if
'response.redirect("directory1.asp?id="+request.form("t1")+"")
'====response.write sqlquery
'response.write "((((((((" & session(" ")
'conn.close
%>
<%'' if 1=2 then%>
<%if not (rs_main_index.bof and rs_main_index.eof) then%>
<%if Field="*" AND country<>"*" and len(country)=1 then%>
التشريعات التي تخص <%=rscountry.fields("Full_name_a")%> في جميع
المجالات
<%end if%>
<%end if%>
<%if Field="*" and country="*" then%>
التشريعات التي تخص جميع المجالات 
في جميع الدول العربية
<%end if%>
<%rsfield.CLOSE%>
<%''''''''''''''''''''''''''''''''paste here''''''''''''''''''''''''''''''''''''''''%>
طباعة التقرير
رقم |
<%''if request.querystring("country")="*" then%>
الدولة | <%''end if%>
<%''if request.querystring("Field")="*" then%>
المجال الرئيسي
| <%''end if%>
نوع القانون |
مسمى القانون |
رقم القانون |
سنة الصدور
|
ملف إلكتروني |
<%if not(rs_main_index.bof and rs_main_index.eof) then%>
<%i=0%>
<%do while not rs_main_index.eof%>
<%i=i+1%>
<%sqlfield="select * from Fields where id="%>
<%sqlcont="select * from Tbl_Countries where id="%>
<%sqllawtype="select * from Lawtypes where id="%>
<%sqlfield=sqlfield & rs_main_index.fields("Field")%>
<%sqlcont=sqlcont & rs_main_index.fields("country")%>
<%sqllawtype=sqllawtype& rs_main_index.fields("Law_Type")%>
<%rsfield.open sqlfield,conn,1%>
<%rscont.open sqlcont,conn,1%>
<%rslawtype.open sqllawtype,conn,1%>
<%=i%> |
<%''if request.querystring("country")="*" then%>
<%=rscont.fields("Full_name_a")%> | <%''end if%>
<%''if request.querystring("Field")="*" then%>
<%=rsfield.fields(1)%> | <%''end if%>
<%=rslawtype.fields(1)%> |
<%=rs_main_index.fields("Rule_Title_Ar")%> |
<%=rs_main_index.fields("Rule_no")%> |
<%=rs_main_index.fields("Rule_issue_date")%> |
<%''if country="*" then%>
<%''country=rs_main_index.fields("country")%>
<%if rs_main_index.fields("Rule_text")<>"" then%>
<%str=Mid(rs_main_index.fields("Rule_text"), InstrRev(rs_main_index.fields("Rule_text"), "\"))%>
" target=_blank ><%=str%> |
<%''end if%>
<%end if%>
<%rsfield.close%>
<%rscont.close%>
<%rslawtype.close%>
<%rs_main_index.movenext%>
<%loop%>
<%end if%>
<%''end if%>
Copyright© AOAD 2010