Function

[mkboy 1]

Quero criar uma funcao que me devolva onde eu quiser dados de uma tabela, to tentando assim:

 

ASP

[*]Function Geral()

 

[*]

 

[*] SQLdg = "Select b_email, b_email_pedidos, b_email_automatico, b_titulo from tb_geral"

 

[*] Set RSdb = conexao.execute(SQLdg)

 

[*]

 

[*] arrayGeral = RSdb(0) &","& RSdb(1) &","& RSdb(2) &","& RSdb(3)

 

[*]

 

[*]End Function

 

E queria separa-lo no site assim:

 

ASP

[*] Geral()

 

[*]

 

[*] a = arrayGeral

 

[*] b = Split(a,",")

 

[*]

 

[*] b(0)

 

[*] b(1)

 

[*] b(2)

 

[*] b(3)

 

Como fazer isso corretamente?

[alfaleo 0]

Faz assim cara:

 

ASP

[*]

 

[*]Function getDbData( tabela, campos )

 

[*]

 

[*]'tabela é uma string com a tabela do banco

 

[*]'campos = campos do db separados por ","

 

[*]Dim oRs

 

[*]Dim sSql

 

[*]Dim arrValores

 

[*]

 

[*]  sSql = "SELECT " & campos & " FROM " & tabela

 

[*]  set oRs = Server.CreateObject("ADODB.Recordset")

 

[*]  oRs.ActiveConnection = StringDeConexao

 

[*]  oRs.Open

 

[*]

 

[*]

 

[*]  If not oRs.Eof Then

 

[*] arrValores = oRs.getRows()

 

[*]  Else

 

[*] arrValores = False

 

[*]  End If

 

[*]

 

[*]

 

[*]getDbData = arrValores

 

[*]

 

[*]

 

[*]End Function

 

[*]

 

Daí no asp faz assim:

 

ASP

[*]

 

[*]Dim arrTeste

 

[*]arrTeste =getDbData ("tblTeste","campo1,campo2,campo3")

 

[*]If Not IsArray(arrTeste) Then

 

[*] Response.Write "Sem Dados" : Response.End

 

[*]End If

 

[*]

 

[*]For i = 0 to uBound(arrTeste)

 

[*]  .... 'instruções

 

[*]Next

 

[*]

[mkboy 1]

Valeu alfa pelo exemplo!Fiz isso no meu e funcionou Geral = RSdb(0) &","& RSdb(1) &","& RSdb(2) &","& RSdb(3)Dei o nome da funcao para o array! Ae consegui serar os valores com split no site!Brigadao!