Hola amigos
Como puedo pasar este codigo de visual basic a codigo de asp.net..
Código PHP:
UTORIZABORRAR
Autoriza el borrar una partida
Sub Form_load
Caption = "Autorización de cancelación"
Controles("password").Passwordchar = "*"
ParentObject.CancelaProceso = True
End Sub
Sub Button_Click
Select Case ControlEvento.Tag
Case "Aceptar"
Autoriza
Case "Cancelar"
DescargaForma
ParentObject.CancelaProceso = True
End Select
End Sub
Sub Autoriza
Set rstUsuario = CreaRecordSet( _
"SELECT supervisor,clave FROM usuarios WHERE usuario = '" & _
Controles("usuario") & "'", Ambiente.Connection )
if rstUsuario.EOF Then
MsgBox "No existe el usuario", vbInformation
Exit Sub
end if
if UCase(Trim(Decrypta(rstUsuario("clave"), 777))) <> _
UCase(Controles("password")) Then
MsgBox "Password incorrecto", vbInformation
Exit Sub
end if
if Val2(rstUsuario("supervisor")) <> 1 Then
MsgBox "No tiene privilegios para borrar una partida", vbInformation
Exit Sub
end if
ParentObject.CancelaProceso = False
DescargaForma
End Sub