guardar valores

[xlorena]

Hola amigos
necesito por favor su ayuda cuando hago summit en los combos de provincias los valores ingresados primeros desaparecen. Como puedo hacer para conservar los valores ingresado iniciales a pesar de hacer sumit
*******************************
<tr>
<td width="34%"><strong><font face="Verdana" size="2">* Apellido Paterno</font></strong></td>
<td width="66%">
<p><input name="TxtPaterno"></p>

</td>
</tr>
<tr>
<td width="34%"><strong><font face="Verdana" size="2">* Apellido Materno</font></strong></td>
<td width="66%">
<p><input name="TxtMaterno"></p>
</td>
</tr>
<tr>
<td width="34%"><strong><font face="Verdana" size="2">* Nombres</font></strong></td>
<td width="66%">
<p><input name="TxtNombres"
></p>

combos de provincia donde se realiza summit

//////
<tr>
<td width="34%"><strong><font face="Verdana" size="2">  &nbs p; Departamento</font></strong></td>
<td width="66%"><select name="cmbDepartamento" size="1" style="font-family: Arial; font-size: 8pt" <OBJECT RUNAT=server PROGID=ADODB.Connection id=OBJECT1> </OBJECT> onchange="HaceConsulta()">

<option value="01">Seleccione una opción</option>
<%Do While Not RsDepartamento.Eof %>
<option value="<%=RsDepartamento("CCODDEP&quo t;)%>"<%If trim(cstr(RsDepartamento("CCODDEP")))=re quest("hidDepartamento") then Response.Write "Selected" End if%>><font face="arial" size="2"><%=mid(RsDepartamento(&qu ot;CDESPROV"),1,20)%></font></option>

<%RsDepartamento.MoveNext
Loop

RsDepartamento.close
Set RsDepartamento = Nothing %>
</select>


</td>
</tr>
<tr>
<td width="34%"><strong><font face="Verdana" size="2">  &nbs p; Provincia</font></strong></td>
<td width="66%"><select name="cmbProvincia" size="1" style="font-family: Aria