Errore di runtime su query db sql server

[wegawhite]

Ragazzi, cosa c'è di sbagliato in questa query, perchè restituisce errore?:

Costruttore = Request.form("Costruttore") 

DIM ARR_DALFORM
ARR_DALFORM = split(Costruttore, "-")
Costruttore0 = ARR_DALFORM(0)
response.write Costruttore0 &"
"
Costruttore1 = ARR_DALFORM(1)
response.write Costruttore1 &"
"

strSQL = "select * From tbl WHERE 1=1"

If Costruttore1 <> 0 then
   strSQL = strSQL & " AND Costruttore = '"& Costruttore1 &"' "
End if

Errore:

9-BBB
9
BBB

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "BBB"]'

/software.asp, line 132

[optime]

riga 132, pls

[willybit]

Costruttore1 è una stringa... forse volevi fare

If Costruttore1 <> "" then

[wegawhite]

Infatti, grazie

[wegawhite]

Scusate si è aggiunta una difficoltà... dal form mi possono arrivare, come valori : 1-ABC oppure 2-Tutti

Se arriva 1-ABC ho impostato la condizione:

If campoform <> "" then
Dim Split
Split = split(campoform, "-")
campoform0 = Split(0)
campoform1 = Split(1)
  strSQL = strSQL & " AND campoform = "& campoform0 &" "
End if

ma se il valore che arriva dal form è 2-Tutti non estrae nessun record... dove sbaglio?

[willybit]

non puoi usare Split come nome della variabile è già il nome di una funzione
casomai

If campoform <> "" then
  Dim erSplit
  erSplit = split(campoform, "-")
  campoform0 = erSplit(0)
  campoform1 = erSplit(1)
  strSQL = strSQL & " AND campoform = "& campoform0 &" "
End if

[wegawhite]

Si grazie ho risolto... comunque ho sempre un problema con la visualizzazione dei records... nel senso che quando "cambio pagina", mi viene restituito quest'altro errore...

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 0]'

/index.asp, line 124

Questo è il codice modificato...

Dim erSplit
  erSplit = split(campoform, "-")
  campoform0 = erSplit(0)
  campoform1 = erSplit(1)

If campoform <> "" then
   strSQL = strSQL & " AND campoform = "& campoform0 &" "
End if