error '800a0009' funzione split

[Pierhagi]

Ciao

in un form di invio dati in db, ho inserito una funzione che utilizzo per splittare dei valori che provengono da una select option.

In questo form c'è la possibilità di NON utilzzare la select, quindi di non selezionare il valore dalla select. Qui chiedo il vostro aiuto x superare il problema!
Proprio xchè non seleziono nessun valore dalla select, ottengo questo errore:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

Il codice della funzione è questo:

<% function dividi(variabile,separatore,posizione)	
        if posizione = 1 then
        	dividi2=split(variabile,separatore)
			'response.write(UBound(dividi2))
			dividi=dividi2(0)
			if dividi="" then
			dividi=0
			end if		
		end if
        if posizione = 2 then
        	dividi2=split(variabile,separatore)
			dividi=dividi2(1)	
		end if
end function %>

Come posso aggiungere un controllo che in caso di non selezione della select option passi alla funzione 0 o null oppure salti direttamente l'errore?

Ho visto che aggiungendo:

response.write(UBound(dividi2))

il valore è: -1

[cavicchiandrea]

If request("nomeselect") <> "" then dividi()

[Pierhagi]

Ciao

scusa ma non ci arrivo!

Non so dove posizionare il tuo controllo e cosa mettere all'interno delle parentesi.

La posiziono all'interno della funzione? Dopo la prima riga:

function dividi(variabile,separatore,posizione)

Cosa metto all'interno delle parentesi?

If request("nomeselect") <> "" then dividi(.......)

[cavicchiandrea]

E' una funzione la richiamerai da qualche parte? if lo metti li se il request è valorizzato lanci la funzione nelle parentesi (variabile,separatore,posizione)

[optime]

quale è la riga che dà errore?

[Pierhagi]

Ciao

la riga che da errore è questa:

dividi=dividi2(0)

Allora quando clicco sul tasto di inserimento dati, sottopongo il form ad un primo controllo:

if request.querystring("update")="add" then

...il codice si trova nel form:

<form name="form" id="form" method="post" action="?update=add">

Dopo questo controllo ho inserito la funzione che alla riga

dividi=dividi2(0)

da errore.

La pagina continua con il recupero dei valori dalla select (l'esempio sotto è il recupero di 4 valori):

id_lingua=dividi(request.form("ID_CONTENUTI"),"-",1) 'Numerico che proviene select
codice_lingua=dividi(request.form("ID_CONTENUTI"),"-",2)'Testo che proviene select
id_contenuti=dividi(request.form("ID_CONTENUTI"),"-",3) 'Numerico che proviene select
nome_contenuti=dividi(request.form("ID_CONTENUTI"),"-",4)'Testo che proviene select

A questo punto ho recuperato i valori provenienti dalla select e gli ho assegnati ad ogni singola variabile.

Qui dovrei mettere due controlli x i campi numeri:

if id_lingua =0 then id_lingua = "null" end if
if id_contenuti=0 then id_contenuti ="null" end if

Poi concludo con l'inserimento dei dati nella sql:

sql = "INSERT INTO Tab...."

[optime]

visto che

dividi=dividi2(0)

viene subito dopo

dividi2=split(variabile,separatore)

mi viene da pensare che variabile sia vuota o null

[cavicchiandrea]

if request.form("ID_CONTENUTI") <> "" Then
id_lingua=dividi(request.form("ID_CONTENUTI"),"-",1) 'Numerico che proviene select
codice_lingua=dividi(request.form("ID_CONTENUTI"),"-",2)'Testo che proviene select
id_contenuti=dividi(request.form("ID_CONTENUTI"),"-",3) 'Numerico che proviene select
nome_contenuti=dividi(request.form("ID_CONTENUTI"),"-",4)'Testo che proviene select
End if 

[Pierhagi]

Ciao ragazzi

scusate se vi rispondo solo ora!

Il controllo "if ...then" che ha suggerito cavicchiandrea funziona!

Lo stesso controllo, ma con id diverso, l'ho provato contemporaneamente con 4 select diverse nella stessa pagina che estraggono dati da 4 tabelle diverse. Addirittura non s'inchioda se nelle 4 select ho due campi uguali come id_lingua e codice_lingua!

Grazie!