Campi di testo e numerici in ciclo

[ubbicom]

Ciao a tutti.

Con la ricerca, ho trovato questo interessante e sbrigativo codice:

'VALORI PASSATI IN POST
For i = 1 To Request.Form.Count
Response.Write Request.Form.Key(i) & ": " & Request.Form.Item(i) & "
"
  
    If InStr(Request.Form.Key(i), "-") > 0 Then
    
        strIDNew = Split(Request.Form.Key(i), "-")
    
            strSQL = "UPDATE "
            strSQL = strSQL & " TBL "
            strSQL = strSQL & " SET "
            strSQL = strSQL & " "& strIDNew(0) &" = "& replace(Request.Form.Item(i), ",", ".") &" "
            strSQL = strSQL & " WHERE "
            strSQL = strSQL & " ID = "& strIDNew(1)
            objconn.Execute strSQL
  
        response.write strSQL &"

"

    End If
    
  Next

Che però funziona solo se i campi da aggiornare nella tabella sono di tipo numerico, mentre va in errore se i campi sono di testo... come faccio a prevedere entrambe le possibilità all'interno del ciclo ???

Grazie-

[Mems]

strSQL = "UPDATE "
strSQL = strSQL & " TBL "
strSQL = strSQL & " SET "
if isNumeric(replace(Request.Form.Item(i), ",", ".")) then
strSQL = strSQL & " "& strIDNew(0) &" = "& replace(Request.Form.Item(i), ",", ".") &" "
else
strSQL = strSQL & " "& strIDNew(0) &" = '"& replace(Request.Form.Item(i), ",", ".") &"' "
end if
strSQL = strSQL & " WHERE "
strSQL = strSQL & " ID = "& strIDNew(1)
objconn.Execute strSQL

[ubbicom]

Grazie, mitico!