popolare una array con db

[waitec401]

io ho questa variabile da popolare

words = Array("cretino","merda","frocio","imbecille")

ora al posto delle parole scritte vorrei popolare la variabile con dei termini che estraggo da una tb di un db, ho pensato a una cosa del genere

Dim i
i=0
Do Until objRs.EOF
Array2(i)=""&objRs("str_parola")&","
i = i + 1
objRs.MoveNext 
Loop

e fare

words = Array("array2")

puo' funzionare?

dato che non ho la possibilità di provarlo!!!

[viki1967]

complimenti per il linguaggio...

[waitec401]

si tratta appunto di codice che evita l'inserimento di parole indesiderate, ho fatto il copia incolla dell'esempio

[kluster]

set rs = "select str_parola from tabella"

myarr = Rs.GetRows()

poi tutte le parole ce l'hai in
myarr(0,indice)
il totale per scorrerlo è Ubound(myarr,2)

[Roby_72]

Così

Array2=Array2 & objRs("str_parola")&","

è una stringa

Così un array:

Array2(i)=objRs("str_parola")

Roby

[waitec401]

Evidentemente c'è qualche problema... non mi inserisce il messaggio...

se tolgo la funzione per le parolacce funziona correttamente

ecco il codice...

' Popolo le variabile

	StrData			= Date()
	StrData			= DateForDB(StrData)
	StrTxt			= Replace(Request.Form("testosms"),"'","''")
	StrNumero		= Request.Form("numcell")
		
strSQL = "SELECT str_parola FROM tb_parole"
objRs.Open strSQL, objConn, 3, 3
Dim i
Do Until objRs.EOF

i=0
Do Until objRs.EOF
Array2=Array2 & objRs("str_parola")&","
i = i + 1
objRs.MoveNext 
Loop
ObjRs.Close	
	
Function badWords(sText) 
'alcune parole poco consone, potete aggiungerne quante ne volete 
words = Array("array2") 
stringa = sText 

For k = LBound(words) To UBound(words) 
stringa = Replace(stringa, words(k), String(Len(words(k)),"*")) 
Next 

badWords = stringa 
End Function 
	
StrTxt2= badWords(StrTxt)


' Creo la SQL per inserire i dati ne db
strSQL = "INSERT INTO tb_sms (str_data,str_txt,str_numero)"
' Inserisco i dati nella tabella 
strSQL = strSQL&"VALUES (#"&StrData&"#,'"&StrTxt2&"','"&StrNumero&"')"
ObjConn.Execute(strSQL)

[Roby_72]

Array2 non è un array.

Roby

[waitec401]

devo modificarla con

Array2(i)=objRs("str_parola")

o meglio

Array2(i)=""&objRs("str_parola")&","
dato che devo separare le parole con la virgola

[waitec401]

ottengo questo errore...

Microsoft VBScript compilation error '800a03ea'

Syntax error

/gestione/aggiungi_sms.asp, line 41

Function badWords(sText)
^