Pasar un valor tipo hidden

[gabyweb]

No puedo solucionar mi problema aquí va el codigo :
function valida1()
{
document.forms[0].submit()
}


<%
strSQL = "SELECT * FROM Empresa"
strSQL = strSQL & " ORDER BY Nombreempresa"
Set Rs = Conn.Execute(strSQL)
%>
<form name="karta" method=post action="principal.asp">
<%
pEmpresa=Request.Form("pEmpresa")
pEmpHidd=Request.form("pEmphidd")
%>
<TABLE width="*" border=0 align=center>
<tr>
<TD><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#990000">
<b>Empresa</b></font></TD>
<TD>
<select name=pEmpresa onchange="valida1();">
<option>(Elija)</option>
<%
Do while Not Rs.Eof
If Rs("Empresa")=pEmpHidd then
%>
<OPTION value="<%response.write Rs("Empresa")%>" selected><%response.write Rs("Nombreempresa")%></option>
<%
else
%>
<OPTION value="<%response.write Rs("Empresa")%>"><%=Rs(&qu ot;Nombreempresa")%></option>
<%
end if
Rs.MoveNext
loop
%>
</select>
</TD>
</tr>
</table>
<%
For Each n in Request.Form("pEmpresa")
'Response.Write n & "<br>"
%><input type=hidden name=pEmpHidd value="<%= n%>"><%
Next

Conn.Close
set Rs = nothing
set Conn = nothing
%>
Lo que necesito es que cuando seleccione algo de la lista me devuelva el mismo formulario pero mostrandome lo que seleccioné