<%
if request.form("func") = "Enviar" then
Dim strVar
Set strVar = CreateObject("Scripting.Dictionary")
strVar.Add "nombre", request.form("nombre")
strVar.Add "apellido", request.form("apellido")
strVar.Add "email", request.form("email")
response.write strVar("nombre")
end if
%>
<form method="POST" action="147283008.Asp">
<table border="0" cellspacing="0" cellpadding="0" width="500">
<tr>
<td width="163">Nombre :</td>
<td width="333"><input type="text" name="nombre" size="20"></td>
</tr>
<tr>
<td width="163">Apellido :</td>
<td width="333"><input type="text" name="apellido" size="25"></td>
</tr>
<tr>
<td width="163">Email :</td>
<td width="333"><input type="text" name="email" size="30"></td>
</tr>
</table>
<p><input type="submit" value="Enviar" name="func"></p>
</form>