<%@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 rsfields=server.createobject("Adodb.recordset") '=========================================================== ' sqlquery="Select * from Tbl_Countries " sqlquery="Select distinct field,id from Fields order by id" 'response.write "Sqlquery===" & sqlquery rsfields.open sqlquery,conn,1 '=========================================================== %>
 بحث بسيط
 بحث متقدم
إستعراض البيانات حسب الدول
 دليل إستخدام القاعدة
صفحة رئيسية

إستعراض بيانات القوانين حسب المجالات

<%if not(rsfields.bof and rsfields.eof) then%> <%rsfields.movefirst do while not rsfields.eof%> <%if not rsfields.eof then%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")<>"" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")="" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%end if %> <%if not rsfields.eof then%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")<>"" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")="" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%end if %> <%if not rsfields.eof then%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")<>"" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")="" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%end if %> <%if not rsfields.eof then%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")<>"" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")="" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")="" then%> <%rsfields.movenext%> <%end if%> <%end if %> <%loop end if%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")<>"" then%> <%''rsfields.movenext%> <%end if%> <%if request.querystring("contid")="" and request.querystring("Fieldid")="" then%> <%''rsfields.movenext%> <%end if%> <%if request.querystring("contid")<>"" and request.querystring("Fieldid")="" then%> <%''rsfields.movenext%> <%end if%> <%''end if %>
&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> <%=rsfields.fields(0)%>&contid=<%=request.querystring("contid")%>"> الكل"> الكل&contid=<%=request.querystring("contid")%>"> الكل

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  Copyright© AOAD 2010