... Preciso .

galera boa tarde; estou com o seguinte problema. meu site esta ok. já esta hospedado o problema e só 1 não estou conseguindo me conectar ao banco e executar select/inserts/updates/deletes.

olha o erro que esta aparecendo no meu browser:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/resultado.asp, line 15

bem abaixo vou colocar meu connectios e depois o codigo da página de resultado.asp

connection:

<%

' FileName="Connection_odbc_conn_dsn.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

Dim db

db = "Provider=SQLOLEDB; Data Source=localhost;Network Library=DBMSSOCN; Initial Catalog=XXX; User Id=XXX; Password=XXX"

set conexao = server.createobject ("adodb.connection")

conexao.open db

%>

pagina Resultado.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/Portal_Feira.asp" -->

<%

Dim categoria_busca__MMColParam

categoria_busca__MMColParam = "1"

If (Request.QueryString("categoria") <> "") Then

categoria_busca__MMColParam = Request.QueryString("categoria")

End If

%>

<%

Dim categoria_busca

Dim categoria_busca_numRows

Set categoria_busca = Server.CreateObject("ADODB.Recordset")

categoria_busca.ActiveConnection = MM_Portal_Feira_STRING

categoria_busca.Source = "SELECT nome_banca, categoria, endereco_banca FROM dbo.banca WHERE categoria = '" + Replace(categoria_busca__MMColParam, "'", "''") + "' ORDER BY endereco_banca ASC"

categoria_busca.CursorType = 0

categoria_busca.CursorLocation = 2

categoria_busca.LockType = 1

categoria_busca.Open()

categoria_busca_numRows = 0

%>

Galera por favor me ajudem estou desesperado.

Atenciosamente

SphinXDF