Validar DNI

[darkalkon]

Hola! Haber si me podeis ajudar en esto, quiero recojer de un formulario el dni y que al pulsar enviar en el submit me compruebe si la letra es correcta con los numeros introducidos. De momento tengo esto:

Código:

Function  sacaLetra(ByVal dni)
	Dim tabla,pos
 
	tabla = Array("T","R","W","A"."G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E")
 
	pos = dni mod 23
 
	sacaLetra = tabla(pos)
End Function
Y para validar el NIF:
Function validaNIF(ByVal nif)
	Dim dni
 
	If Len(nif)<7 Then
		validaNIF = false
	Else
		dni = Left(nif,Len(nif)-1)
		validaNIF = UCase(nif)=dni&sacaLetra(dni)
	End If
End Function

Pero no se como recojerlo del formulario.

Gracias!

[darkalkon]

Porfavor alguien se lo puede mirar, es urgente. Si no va bien este codigo, decirme que codigo poner para validar el dni de un formulario y poner si es valido o no con un response.write.

Gracias de nuevo!!

[darkalkon]

Cerrar el Post porque ya lo he solucionado yo, ale muchas gracias por nada

[darkalkon]

Bueno si que me podeis ayudar en otra cosa, para comprobar que un campo de un formulario html solo sean numeros y no letras como el campo "Telefono", como seria en asp?

Gracias.