Inserimento di una Request.Form e Type Mismatch

[ivanhalen]

Salve,
Vorrei inserire in una botta sola, tramite AddNew, una collection Request.Form utilizzando il seguente codice:

For Each x in Request.Form
	RS("ORD_" & UCase(x)) = (Request.Form(x))
Next

Ora, naturalmente i valori della request.Form sono tutti stringa, mentre alcuni campi del database sono numerici, per cui ottengo un errore di Type Mismatch
Esiste una funzione per controllare, nella request.Form, i possibili valori numerici e convertirli quindi in numeri prima dell'inserimento?

Grazie in anticipo per le risposte...

[ivanhalen]

Marzulliano ("fatevi una domanda e datevi una risposta"):

Function Cast(x)
	y = x
		If y <> "" Then
		On Error Resume Next
			If cDbl(x) Then
				y = cDbl(x)
			End If
		Else
		y = ""
		End If
	Cast = y
End Function

[br1]

Puoi usare isNumeric() ma secondo me non risolvi: se nel form sono introdotti numeri ed il campo nel db e' di tipo testo...

Ti conviene fare un test sul campo in tabella: usa la proprieta' type dell'oggetto field

ciao

[Santino83_02]

il problema non è che il request.form è stringa, il problema è come è stato scritto il numero nel campo del form

[ivanhalen]

Allora:
Il database ha campi sia stringa che numerici, e il form è fatto in modo da accettare rispettivamente stringhe (nei campi stringa) e numeri (nei campi numerici)
Request.Form mi passa solo stringhe: se nel campo numerico l'utente scrive 12.56, a me arriva "12.56" (stringa) e quindi mi andava in errore
Con la funzione che mi sono creato ho risolto l'inghippo...