Manual de ASP/ASP & VBScript
ASP & VBScript
editarEjemplo
editarFunction 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