Visual Basic - Codigo fuente control asistencia

if($ssbmnu=='csitedu') {

   formBuscarSitEdu();

}

if ($ssbmnu=='seagre'){

    procSitEduCon();

}

if($ssbmnu=='isitedu'){

   procSitEduIng();

}

function formBuscarSitEdu(){

 global $inicHtml, $procPagina, $oculta, $var;

 $inicHtml.= "

 <br><br>

 <center>

 <h2>Buscar persona...</h2>

 <form action="$procPagina?prc=mnu&mnuopc=cog&ssbmnu=seagre" method="post">

 <table>

 <tr>

    <td>Introduzca Codigo de persona</td>

    <td><input type='text' name='persoCodigo' size='20'>  </td>

    <td><input value='buscar' name='buscar' type='submit'></td>

 </tr>

 </table>

 </form></center>";

echo $PersoCodigo;

}

function procSitEduCon() {

global $inicHtml, $procPagina, $oculta, $cogni,$var;

$fila='';

$fila2='';

$connection = mysql_connect("localhost","miranda","miranda") or die ("ERROR EN LA CONEXION.!");

mysql_select_db("juancarlos",$connection);

$sql1="SELECT * FROM persodatos WHERE PersoCodigo=".$_POST["PersoCodigo"];

$fila=mysql_query($sql1,$connection) or die ("ERROR EN LA CONSULTA ....EL CODIGO DE LA PERSONA CONSULTADO NO EXISTE!");

$var=$_POST["PersoCodigo"];

while ($datos=mysql_fetch_array($fila)){

$inicHtml .="

<td width="40%" height="34" align="center"><strong><li><a href="$procPagina?prc=mnu&mnuopc=cog&ssbmnu=isitedu">Ingresar datos persona.</a></li></strong></td>

<form id="form1" name="form1" method="post" action="">

<td>Codigo de la Persona:    ".$datos["persoCodigo"]."</td>

</form>

";}}

function procSitEduIng($var) {

global $inicHtml, $procPagina, $oculta, $cogni,$var;

echo $var;

$inicHtml .="

<form id="form1" name="form1" method="post" action="">

<table alig="center" width="500%">

     <tr><td><strong>CODIGO DE LA  PERSONA.</td><td>".$_POST["PersoCodigo"]."</td></strong></tr>

</table>

";

}}