<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] [an error occurred while processing this directive] <% set rsManchete = Server.CreateObject("ADODB.Recordset") rsManchete.ActiveConnection = MM_cnPrincipal_STRING rsManchete.Source = "SELECT * FROM ConsManchete" rsManchete.CursorType = 0 rsManchete.CursorLocation = 2 rsManchete.LockType = 1 rsManchete.Open() rsManchete_numRows = 0 %> <% set rsLocal = Server.CreateObject("ADODB.Recordset") rsLocal.ActiveConnection = MM_cnPrincipal_STRING rsLocal.Source = "SELECT * FROM relLocal" rsLocal.CursorType = 0 rsLocal.CursorLocation = 2 rsLocal.LockType = 1 rsLocal.Open() rsLocal_numRows = 0 %> <% set rsNacional = Server.CreateObject("ADODB.Recordset") rsNacional.ActiveConnection = MM_cnPrincipal_STRING rsNacional.Source = "SELECT * FROM consNacional" rsNacional.CursorType = 0 rsNacional.CursorLocation = 2 rsNacional.LockType = 3 rsNacional.Open() rsNacional_numRows = 0 %> <% set rsInternacional = Server.CreateObject("ADODB.Recordset") rsInternacional.ActiveConnection = MM_cnPrincipal_STRING rsInternacional.Source = "SELECT * FROM consInternacional" rsInternacional.CursorType = 0 rsInternacional.CursorLocation = 2 rsInternacional.LockType = 3 rsInternacional.Open() rsInternacional_numRows = 0 %> <% set rsChamada = Server.CreateObject("ADODB.Recordset") rsChamada.ActiveConnection = MM_cnPrincipal_STRING rsChamada.Source = "SELECT * FROM LinksChamada" rsChamada.CursorType = 0 rsChamada.CursorLocation = 2 rsChamada.LockType = 3 rsChamada.Open() rsChamada_numRows = 0 %> <% set rsEnquete = Server.CreateObject("ADODB.Recordset") rsEnquete.ActiveConnection = MM_cnEnquete_STRING rsEnquete.Source = "SELECT * FROM consPergunta" rsEnquete.CursorType = 0 rsEnquete.CursorLocation = 2 rsEnquete.LockType = 3 rsEnquete.Open() rsEnquete_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 rsLocal_numRows = rsLocal_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 2 Dim Repeat2__index Repeat2__index = 0 rsNacional_numRows = rsNacional_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 2 Dim Repeat3__index Repeat3__index = 0 rsInternacional_numRows = rsInternacional_numRows + Repeat3__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 rsEnquete_numRows = rsEnquete_numRows + Repeat5__numRows %> Fazenda Santo Antônio, Campo Maior - Piauí

 

 

 

 


Expoapi

Clique nas fotos para ampliar

 
 

 

Expoapi 2004

 


Mel da Nuncy: Grande Campeã Boer - Expoapi 2004

<% rsEnquete.Close() Set rsEnquete = Nothing rsManchete.Close() Set rsManchete = Nothing rsLocal.Close() Set rsLocal = Nothing rsNacional.Close() Set rsNacional = Nothing rsInternacional.Close() Set rsInternacional = Nothing rsChamada.Close() Set rsChamada = Nothing %>