>Hi everybody,
>
>I have a textbox which will allow to enter a valid URL (https or http). Do you know what code should I use for validation of the user's input?
>
>Thanks in advance.

Function ValidUrl
Lparameters tcUrl
Local lcFilter As String, ;
   llReturn As Boolean, ;
   loRegex As Object
If Pcount() > 0 And Vartype(lcMail) = [C]
   Text To m.lcFilter Noshow Pretext 15
         ^(http(?:s)?\:\/\/[a-zA-Z0-9\-]+(?:\.[a-zA-Z0-9\-]+)*\.[a-zA-Z]{2,6}
         (?:\/?|(?:\/[\w\-]+)*)(?:\/?|\/\w+\.[a-zA-Z]{2,4}
         (?:\?[\w]+\=[\w\-]+)?)?(?:\&[\w]+\=[\w\-]+)*)$
   Endtext
   m.loRegex = Createobject([VBScript.RegExp])
   m.loRegex.Pattern = m.lcFilter
   m.loRegex.IgnoreCase = .T.
   m.loRegex.Global = .F.
   m.llReturn = m.loRegex.Test(m.tcUrl)
   m.loRegex = .Null.
   Release m.loRegex
Endif
Return m.llReturn