errumar função

[julycobain 0]

oi galera niguem souber respondeu o meu topico sobre ActiveConnection

eu corri a traz e um amigo meu me passou a seguinte uma função q eh a que esta em vermelho e eu tinha uma que é a que esta em azul essa que esta em azul e a função que a pessoa que fez o sistema usou mas nao funciona de jeito nenhum por causa do ActiveConnection q eu nem sei pra que funciona

 

o que eu tenho que fazer e adptar a que o meu amigo me passou para que ela chegue ao resultado que a em azul deveria chegar

mas so da erro e eu nao consigo

 

vou postar tb em cinza a função que eu tentei fazer para mesclar as duas mas da erro e eu nao consigo

 

se alguem puder me ajudar encontrar o erro ou souber alguma forma de fazer eu agradeço

' ROTINA : Monta combo com Categorias de Produtos

' NOTA : Criação 13/03/2003 - 11:21

function MontaComboCategoriaProdutos(psSql, pvValor)

 

 

Dim rs, sRet

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

set rsAgenda = Server.CreateObject("ADODB.Recordset")

 

Set rs = cnx.execute(psSql)

rs.open

If pvValor > "0" Then

sRet = "<option Value=""Null""> </option>"

Else

sRet = "<option Value=""Null"" selected> </option>"

End If

Do Until rs.EOF

If rs("KeyValue") = pvValor Then

sRet = sRet & "<option Value=""" & rs("KeyValue") & """ selected>" & rs("ListValue") & "</option>" & vbCrLf

Else

sRet = sRet & "<option Value=""" & rs("KeyValue") & """>" & rs("ListValue") & "</option>" & vbCrLf

End If

 

rs.MoveNext

Loop

rs.Close

set rs = Nothing

MontaComboCategoriaProdutos = sRet

End Function

' ROTINA : Monta combo com Categorias de Produtos

' NOTA : Criação 13/03/2003 - 11:21

Public Sub MontaComboCategoriaProdutos(pCodigo, pNome, pClasse)

Dim sqlSelCategoria, rsSelCategoria

sqlSelCategoria = qryListarCategoriasProdutos

Set rsSelCategoria = strConexao.Execute(sqlSelCategoria)

wTxt "<select name='" & pNome & "' class='" & pClasse & "'>"

wTxt "<option value='0'>" & strMsg_0015 & "</option>"

If Not rsSelCategoria.EOF Then

Do While Not rsSelCategoria.EOF

If rsSelCategoria("cdCategoria") = CInt(pCodigo) Then

wTxt "<option value='" & rsSelCategoria("cdCategoria") & "' selected>" & rsSelCategoria("NomeCategoria") & "</option>"

Else

wTxt "<option value='" & rsSelCategoria("cdCategoria") & "'>" & rsSelCategoria("NomeCategoria") & "</option>"

End If

rsSelCategoria.MoveNext

Loop

End If

wTxt "</select>"

Call DestroiRS(1, rsSelCategoria)

End Sub

 

a minha função com erro era:

 

Function BuildCombo(psSql, pvValor)

Dim rs, sRet

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

set rsAgenda = Server.CreateObject("ADODB.Recordset")

rsAgenda.CursorLocation = 3

rs.Source = psSql

Set rs.ActiveConnection = OpenConection

rs.Open

Set rs.ActiveConnection = Nothing

 

If pvValor > "0" Then

sRet = "<option Value=""Null""> </option>"

Else

sRet = "<option Value=""Null"" selected> </option>"

End If

Do Until rs.EOF

If rs("KeyValue") = pvValor Then

sRet = sRet & "<option Value=""" & rs("KeyValue") & """ selected>" & rs("ListValue") & "</option>" & vbCrLf

Else

sRet = sRet & "<option Value=""" & rs("KeyValue") & """>" & rs("ListValue") & "</option>" & vbCrLf

End If

rs.MoveNext

Loop

rs.Close

set rs = Nothing

BuildCombo = sRet

End Function

[Mário Monteiro 179]

ActiveConnection é onde você definirá a cnexão com o bd