Criando Função!

[gabrielmarquez 0]

eai, galera bla gostaria de uma ajuda pois eu quero criar uma function para diminuir meu trabalho ou seja eu quero q uma conexão desse tamanho

ASP [/tr][tr]Set rsCons = Server.CreateObject("ADODB.Recordset")

rsCons.ActiveConnection = MM_conexao_STRING

rsCons.Source = "SELECT * FROM categoria ORDER BY id,categoria ASC")

rsCons.CursorType = 2

rsCons.CursorLocation = 3

rsCons.LockType = 3

rsCons.Open() [/code]

fike assim

CALL CONN("rsConsBanco","SELECT * FROM categoria ORDER BY id,categoria ASC")

[/tr]

 

dai eu creir essa função para fazer isso

'vou mostrar uma pagina com um teste no final

ASP [/tr][tr]

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

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

<%

PUBLIC VAR

PUBLIC SQL

PUBLIC SUB CONN(VAR,SQL)

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

VAR.ActiveConnection = MM_conexao_STRING

VAR.Source = SQL

VAR.CursorType = 2

VAR.CursorLocation = 3

VAR.LockType = 3

VAR.Open()

END SUB

CALL CONN("rsConsBanco","SELECT * FROM vbrasil.categoria ORDER BY id,categoria ASC")

WHILE (NOT rsConsBanco.EOF)

Response.Write((rsConsBanco.Fields.Item("id").Value)&"-"&(rsConsBanco.Fields.Item("categoria").Value)&"<BR>")

rsConsBanco.MoveNext

WEND

%>

[/tr]

 

só q ate a parte do final da conexão funciona mais depois quando eu requesito a conexão com rsConsBanco.EOF no while dá um erro q diz

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'rsConsBanco'

/vbbrasil/teste/CLASSCONN.asp, line 16

sendo assim gostaria da ajuda de todos para poder concluir meu projeto muito obrigado... gostaria muito q ele funcionase

obs.: eu terei essa ideia dos meus projetos de VB no qual eu tenho um arquivo q contem todas as funções dai eu xamo a função e pronto... a conexão tá prontae eu posso usala quando necessitar.... e eu to querendo fazer isso com o ASP tb

valew galera

[gabrielmarquez 0]

valew, view.......... valew msm.... eu precisava muito descobrir isso valew em view ate +++++e só um detalhe o ASPClube.net tá irado só tá faltando jente para dar um pouco mais de animação e colocar mais conteudo de ASP medio e avançado...

[FabricioGomes 0]

nao maltrata a lingua portuguesa, gabriel... Jente????