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...
codice:
Dim erSplit
  erSplit = split(campoform, "-")
  campoform0 = erSplit(0)
  campoform1 = erSplit(1)

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