<%@LANGUAGE="JAVASCRIPT" codepage=65001 %> <% Response.Charset="utf-8" %> <% var AniDis = Server.CreateObject ('ADODB.Connection'); AniDis.Provider = "Microsoft.Jet.OLEDB.4.0" AniDis.Open(Server.MapPath("AD.mdb")) %> <% var RSStat = Server.CreateObject("ADODB.Recordset"); RSStat.ActiveConnection = AniDis; RSStat.Source = "SELECT * FROM States"; RSStat.CursorType = 0; RSStat.CursorLocation = 2; RSStat.LockType = 1; RSStat.Open(); var RSStat_numRows = 0; %> <%// search criteria for dis%> <% var RSAniDes__MMColParam = "0"; if (String(Request.Form("Stat_No")) != "undefined" && String(Request.Form("Stat_No")) != "") { RSAniDes__MMColParam = String(Request.Form("Stat_No")); } %> <% var RSAniDes__MMColParam1 = "0"; if (String(Request.Form("App_year")) != "undefined" && String(Request.Form("App_year")) != "") { RSAniDes__MMColParam1 = String(Request.Form("App_year")); } %> <% var RSAniDes__MMColParam2 = ""; if (String(Request.form("SenName")) != "undefined" && String(Request.form("SenName")) != "") { RSAniDes__MMColParam2 = String(Request.form("SenName")); } %> <% var RSAniDes__MMColParam3 = ""; if (String(Request.Form("DisName")) != "undefined" && String(Request.Form("DisName")) != "") { RSAniDes__MMColParam3 = String(Request.Form("DisName")); } %> <% var RSAniDes__MMColParam4 = "0"; if (String(Request.form("DisCus")) != "undefined" && String(Request.form("DisCus")) != "") { RSAniDes__MMColParam4 = String(Request.form("DisCus")); } %> <% // select statement var SelStat="" ; // check if no any criteria have been chosen if (RSAniDes__MMColParam != "0" || RSAniDes__MMColParam1 != "0" || RSAniDes__MMColParam2 != "" || RSAniDes__MMColParam3 != "" || RSAniDes__MMColParam4 != "0"){ SelStat="Where 1 = 1";} else { SelStat="Where 1 <> 1"; }; // check if no any States has been chosen then select all states if (RSAniDes__MMColParam !=0 ){ SelStat=SelStat+ "and Stat_No in ("+ RSAniDes__MMColParam.replace(/'/g, "''") + ")"}; // check if no any app year has been chosen if (RSAniDes__MMColParam1 !=0 ){ if (String(Request.form("RG1"))=="1" && String(Request.form("RG1"))!="undefined") { SelStat=SelStat+ " and Expr2 in ('"+ RSAniDes__MMColParam1.replace (/'/g, "''")+ "')"}; else if (String(Request.form("RG1"))=="0" && String(Request.form("RG1"))!="undefined") { SelStat=SelStat+ " or Expr2 in ('"+ RSAniDes__MMColParam1.replace (/'/g, "''") + "')"}; }; // check if Dis Sent Name has been entered if (RSAniDes__MMColParam2 !=0 ){ if (String(Request.form("RG2"))=="1" && String(Request.form("RG2"))!="undefined") { SelStat=SelStat+ "and Scient_name LIKE '%"+ RSAniDes__MMColParam2.replace(/'/g, "''") + "%'" }; else if (String(Request.form("RG2"))=="0" && String(Request.form("RG2"))!="undefined") { SelStat=SelStat+ "or Scient_name LIKE '%"+ RSAniDes__MMColParam2.replace(/'/g, "''") + "%'" }; }; //check if no loc name has been entered if (RSAniDes__MMColParam3 !=0 ){ if (String(Request.form("RG3"))=="1" && String(Request.form("RG3"))!="undefined") { SelStat=SelStat+ "and Local_name LIKE '%"+ RSAniDes__MMColParam3.replace(/'/g, "''") + "%'" }; else if (String(Request.form("RG3"))=="0" && String(Request.form("RG3"))!="undefined") { SelStat=SelStat+ "or Local_name LIKE '%"+ RSAniDes__MMColParam3.replace(/'/g, "''") + "%'" }; }; //check if no dis cuse has been choosen if (RSAniDes__MMColParam4 !=0 ){ // check if select othere if (String (Request.Form("DisCus")) == "فيروس" || String (Request.Form("DisCus")) == "بكتيريا" || String (Request.Form("DisCus")) == "فطر" || String (Request.Form("DisCus")) == "حشرات"){ if (String(Request.form("RG4"))=="1" && String(Request.form("RG4"))!="undefined") { SelStat=SelStat+ "and Dis_Caus LIKE '%"+ RSAniDes__MMColParam4.replace(/'/g, "''") + "%'" }; else if (String(Request.form("RG4"))=="0" && String(Request.form("RG4"))!="undefined") { SelStat=SelStat+ "or Dis_Caus LIKE '%"+ RSAniDes__MMColParam4.replace(/'/g, "''") + "%'" }}; else if (String (Request.Form("DisCus")) != "فيروس" || String (Request.Form("DisCus")) != "بكتيريا" || String (Request.Form("DisCus")) != "فطر" || String (Request.Form("DisCus")) != "حشرات") { if (String(Request.form("RG4"))=="1" && String(Request.form("RG4"))!="undefined") { SelStat=SelStat+ "and (Dis_Caus <> 'فيروس' and Dis_Caus <>'بكتيريا' and Dis_Caus <>'فطر' and Dis_Caus <>'حشرات')"}; else if (String(Request.form("RG4"))=="0" && String(Request.form("RG4"))!="undefined") { SelStat=SelStat+ "or (Dis_Caus <> 'فيروس' and Dis_Caus <>'بكتيريا' and Dis_Caus <>'فطر' and Dis_Caus <>'حشرات')"}}; }; %> <% var RSAniDes = Server.CreateObject("ADODB.Recordset"); RSAniDes.ActiveConnection = AniDis; RSAniDes.Source = "SELECT * FROM OutAniDis " + SelStat; RSAniDes.CursorType = 0; RSAniDes.CursorLocation = 2; RSAniDes.LockType = 1; RSAniDes.Open( "SELECT * FROM OutAniDis " + SelStat); var RSAniDes_numRows = 0; %> <% var Repeat1__numRows = -1; var Repeat1__index = 0; RSAniDes_numRows += Repeat1__numRows; %> الأوبئة التي تصيب الحيوانات
Arab Organization for Agricaltural Development
الأوبئة التي تصيب الحيوانات الأوبئة التي تصيب الطيور الأوبئة التي تصيب الأحياء المائية الأمراض المشتركة بين الإنسان و الحيوان
   

الأوبئة التي تصيب الحيوانات

و            أو
الدولة
و            أو
السنة
و            أو

الإسم العلمي للمرض بالإنجليزية
و            أو

إسم المرض
 
مسبب المرض
<% if (!RSAniDes.EOF || !RSAniDes.BOF) { %> <% while ((Repeat1__numRows-- != 0) && (!RSAniDes.EOF)) { %> <% Repeat1__index++; RSAniDes.MoveNext(); } %>
معلومات إضافية
البلد
التشخيص
مسبب المرض
سنة ظهور المرض
طبيعة المرض
الاسم العلمي للمرض
اسم المرض
">
<%=(RSAniDes.Fields.Item("Expr4").Value)%>  <%=(RSAniDes.Fields.Item("Dis_Diag").Value)%>  <%=(RSAniDes.Fields.Item("Dis_Caus").Value)%>  <%=(RSAniDes.Fields.Item("App_date").Value)%>  <%=(RSAniDes.Fields.Item("Dis_home").Value)%>  <%=(RSAniDes.Fields.Item("Scient_name").Value)%>  <%=(RSAniDes.Fields.Item("L_name").Value)%> 
<% } // end !RSAniDes.EOF || !RSAniDes.BOF %>
<% if ((RSAniDes.EOF && RSAniDes.BOF)&& ( RSAniDes__MMColParam!=0 || RSAniDes__MMColParam1 !=0 || RSAniDes__MMColParam2!="" || RSAniDes__MMColParam3 !="" || RSAniDes__MMColParam4!=0 )) { %>
لا يوجد بيانات
<% } // end RSShortPlans.EOF && RSShortPlans.BOF %>
الصفحة الرئيسية معلومات عامة عن الخدمات البيطرية في الدول العربية الخطط الوطنية  وحدات الإنذار المبكر القوانين و التشريعات المؤسسات و الهيئات المستحضرات البيطرية الأوبئة
<% RSStat.Close(); %><% RSAniDes.Close(); %>