Window.Status = ".:. IRANBUILDERS.com : A Civil Engineering Database .:."
  IF Navigator.AppName <> "Microsoft Internet Explorer"  Then
   MsgBox "This WebSite designed for InternetExplorer 6 or Later , Please change to that !"
  Else
   If Mid(Navigator.AppVersion,(InStr(1,Navigator.AppVersion,"MSIE") + Len("MSIE ")),1) <> 6 Then
    'MsgBox "This WebSite designed for InternetExplorer 6 or Later , Please change to that !"
   End If
  End If
  '------------------------------------------------------------------------------------------------------------------------------------  
  Private Sub Subm()
   If Len(Trim(FrmSearch.TXTsEARCH.value)) > 0 Then
    FrmSearch.Submit
   Else
    'MsgBox "Please fill Form !"
    Location.Replace("/IRANB/PERSIAN/SEARCH/")
   End If
  End Sub