Validare una data con RegExp

[paolo bosani]

Ciao a tutti,
devo validare un campo data e ho usato una regexp, ma non funziona, dove sbaglio?

FUNCTION validData(data)

  Dim Reg
  Set Reg = New RegExp 	'inizializzo la regexp
  Reg.Global = True
  Reg.Ignorecase = True
  Reg.pattern = "^([0]?[1-9]|[1|2][0-9]|[3][0|1])[./-]([0]?[1-9]|[1][0-2])[./-]([0-9]{4}|[0-9]{2})$"

  validData = Reg.Test(data)

  set Reg = Nothing

END FUNCTION

[[trodat]]

Prova ad adattarti questa (è javascript):

function chkdob()
{
 dob=new String();
 
 dob=document.regis.dob.value
 if (dob.length!=10)
  alert ("Invalid Date")
 else
 {
  if (dob.charAt(2)!="/" && dob.charAt(5)!="/")
   alert ("Invalid Date Format")
  else
   tempstr=dob.split("/")
   dd=tempstr[0]
   mm=tempstr[1]
   yy=tempstr[2]
   if (dd>=1 && dd<=31 && mm>=1 && mm<=12 && yy>=1900 && yy<=2004 )
   {
    chkemail()
   }
   else
    alert ("Enter Valid date")
  }
}

[paolo bosani]

non posso usare Javascript.
devo farlo lato server

[[trodat]]

Originariamente inviato da paolo bosani
non posso usare Javascript.
devo farlo lato server

http://4guysfromrolla.com/webtech/090199-1.shtml

[paolo bosani]

Originariamente inviato da [trodat]
http://4guysfromrolla.com/webtech/090199-1.shtml

VVoVe:
Qualcosa in italiano?