[SERVIDOR]GM desde el Codigo
La anterior version contenia algunos errores asi que decidi rescribirla.
Mas que nada, utilizamos las funciones Es*. Mas que nada, en cada una hay un If, y tienen que poner el nombre (en mayuscula) y despues le Then que devuelva True.
El codigo en si es este:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'[Tavo] 29-09-06</span></li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsAdmin<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"PEPE"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> EsAdmin = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsAdmin = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Function</span> EsDios<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"PEPA"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> EsDios = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsDios = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsSemiDios<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"TAVO"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> EsSemiDios = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2"> EsSemiDios = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsConsejero<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"YO"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> EsConsejero = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsConsejero = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Function</span> EsRolesMaster<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"TU"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> EsRolesMaster = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsRolesMaster = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"><span style="color: #808080;">'[/Tavo]</span></li></ol></div>[/vb]
NOTA: Marque el codigo en Cyan para que sea mas visible.
Saludos!
La anterior version contenia algunos errores asi que decidi rescribirla.
Mas que nada, utilizamos las funciones Es*. Mas que nada, en cada una hay un If, y tienen que poner el nombre (en mayuscula) y despues le Then que devuelva True.
El codigo en si es este:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'[Tavo] 29-09-06</span></li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsAdmin<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"PEPE"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> EsAdmin = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsAdmin = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Function</span> EsDios<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"PEPA"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> EsDios = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsDios = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsSemiDios<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"TAVO"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> EsSemiDios = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2"> EsSemiDios = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsConsejero<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"YO"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> EsConsejero = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsConsejero = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Function</span> EsRolesMaster<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"TU"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> EsRolesMaster = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> EsRolesMaster = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"><span style="color: #808080;">'[/Tavo]</span></li></ol></div>[/vb]
NOTA: Marque el codigo en Cyan para que sea mas visible.
Saludos!