Ciao ragazzi, si può fare una cosa del genere?

codice:
					Select Case lCase(oUpload.Files("InputName"))
						do while not rs_Documenti.eof
							Case "documento" & Cstr(rs_Documenti("Id"))
							
							oUpload.SaveAs Cstr(rs_Documenti("Id")) & "." & oUpload.files("ext")
							rs_Documenti.movenext
						loop


					End Select
Mi restituisce questo errore..
Microsoft VBScript compilation error '800a0400'

Expected statement

/SalvaNuovaPratica.asp, line 123

Case "documento" & Cstr(rs_Documenti("Id"))
^


Grazie