La copia del código es la siguiente:
'************************************************************
'ID de función: 0016 [Obtenga el nombre del ejecutor]
'Nombre de la función: gt_the_proname
'Función: obtenga el nombre del ejecutor
'parámetro:
'Valor de retorno: devuelva el nombre del ejecutor
'************************************************************
FunctionGt_the_proname ()
Dimfu_name, temp, temppsiz
temp = request.ServerVariAbles ("PATH_INFO")
fu_name = split (temp, "/",-1,1)
temppsiz = Ubound (fu_name)
Gt_the_proname = fu_name (temppsiz)
Función final