Error en Ore.Open sql,oCo,1,4

Buenas dias, mirar estoy trabajando en un proyecto y resulta que salta este error; Ore.Open sql,oCo,1,4 -.-.-
Por que sera?
Este es el Codigo:
Código
<html>
<head>
 <title></title>
</head>
<body>
 
<%
 
C= Request.QueryString("Campo")
T= Request.QueryString("Tipo")
x= Request.Form("Mod_ID")
i= Request.Form("Pas_ID")
max=10
 
if x="" AND c="" AND T="" then
Set oCo=Server.CreateObject("ADODB.Connection")
oCo.Open "dsndatos","sa",""
 
Set Ore=Server.CreateObject("ADODB.Recordset")
 
 if x="" then
 sql= "SELECT Mod_ID, Mod_Nom, Mod_Obs FROM Monedas"
 end if
 
 if i="" then
 sql= "SELECT Pas_ID, Pas_Mod_ID, Mod_Obs FROM Paises"
 end if
 
Ore.Open sql,oCo,1,4
 
Do While Not Ore.EOF
  response.write  "<b>Nombre de Monedas: </b>" 
  response.write  Ore("Mod_Nom") & "<br>"
  response.write  "<b>Nombre de Paises: </b>" 
  response.write  Ore("Pas_Nom") & "<br>"
  Ore.MoveNext
Loop
 
Ore.Close
 
oCo.Close
end if
 
if c<>"" AND t<>"" AND x="" then
if c<>"" AND t<>"" AND i="" then
 
 Set oCo=Server.CreateObject("ADODB.Connection")
 oCo.Open "dsndatos","sa",""
 
 Set Ore=Server.CreateObject("ADODB.Recordset")
 
  if C="Nombre de Moneda" AND T="Asc" then
  sql= "SELECT Mod_Id, Mod_Nom, Mod_Obs  FROM Monedas"
  end if
 
  if C="Nombre de Moneda" AND T="Desc" then
  sql= "SELECT Mod_Obs, Mod_Nom , Mod_ID FROM Monedas ORDER BY 1 Desc"
  end if
 
  if C="Nombre de Pais" AND T="Asc" then
  sql= "SELECT Pas_ID, Pas_Obs, Pas_Nom FROM Paises"
  end if 
 
  if C="Nombre de Pis" AND T="Desc" then
  sql= "SELECT Pas_Nom, Pas_Obs, Pas_ID FROM Paises ORDER BY 1 Desc"
  end if
 
 Ore.Open sql,oCo,1,4
 
 Do While Ore.EOF
   response.write  "asdasdasdasd" 
   Ore.MoveNext
 Loop
 
 Do While Not Ore.EOF
   response.write  "<b>Nombre de Monedas: </b>" 
   response.write  Ore("Mod_Nom") & "<br>"
   Ore.MoveNext
 Loop
 
DO While Not Ore.EOF
	   response.write  "<b>Nombre de Paises: </b>" 
   response.write  Ore("Pas_Nom") & "<br>"
Loop
 
 Ore.Close
 
 oCo.Close
 
End if
End if
 
%>
 
</body>
<html>