Private Function diretel.frm_registrar.btn_aceptar_Click.0.txt

Calls out:


Unload
MsgBox
_B_var_UCase

Incoming calls for diretel.frm_registrar.btn_aceptar_Click.0.txt



Decompiled source code follows:

FLocal1 = UCase(frm_registrar.3.Txt_registro)
FLocal2 = UCase(frm_registrar.3.Txt_registro)
If ((FLocal1 > "HTTP://WWW.GEOCITIES.COM/SILICONVALLEY/LAKES/3102/") Or (FLocal2 > "HTTP://WWW.GEOCITIES.COM/SILICONVALLEY/LAKES/3102"))
      Global4304916.Edit
      Global4304916.Fields.Item("user").Value = (frm_registrar.4.Txt_user)
      Global4304916.Update 1,False
      frm_acercade.Lbl_user.Caption = Global4304916.Fields.Item("User").Value
      frm_acercade.btn_registrar.Enabled = False
Else
      MsgBox "Que pena que no sepas mi URL" & vbCrLf & "no podrás registrar el programilla!",VBEXCLAMATION
End If
Unload frm_registrar
End Sub