<%@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%> <%''if request.querystring("country")="*" then%> <%''end if%> <%''if request.querystring("Field")="*" then%><%''end if%> <%''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"), "\"))%> <%''end if%> <%end if%> <%rsfield.close%> <%rscont.close%> <%rslawtype.close%> <%rs_main_index.movenext%> <%loop%> <%end if%>
رقم الدولة المجال الرئيسي  نوع القانون مسمى القانون  رقم القانون  سنة الصدور  ملف إلكتروني
 <%=i%><%=rscont.fields("Full_name_a")%> 

 <%=rsfield.fields(1)%>

 <%=rslawtype.fields(1)%>  <%=rs_main_index.fields("Rule_Title_Ar")%>  <%=rs_main_index.fields("Rule_no")%>  <%=rs_main_index.fields("Rule_issue_date")%>  " target=_blank ><%=str%>
<%''end if%>

  Copyright© AOAD 2010