Por fin lo hicimos, al fin logre hacer lo que deseaba, gracias LeClub, aunque en lo ultimo de la forma oculta, no estabamos complicando las cosas, bueno creo?, pongo a su dispocision el codigo de mis paginillas, pa que le den una checada, y me dicen que opinan, vale?
Listado Estados.html
<HTML>
<HEAD>
<TITLE>SARG-CETRAM</TITLE>
</HEAD>
<frameset cols="*,22%" frameborder="0" framespacing="0">
<Frame src="Statelist.asp" name="Federaciones" noresize>
<Frame src="NuevoEstado.html" name="NewState" scrolling="no" noresize>
</frameset>
</HTML>
Listado StateList.asp
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Expires" Content="0">
<title> Listado de Estados </title>
<style type="text/css">
.celda{
font-size=12px;
font-family: Verdana,Helvetica;
color: white;
font-weight:bold;
padding-left:3px;
padding-bottom:2px;
}
.boton{
font-size=10px;
font-family: Verdana,Helvetica;
color: black;
font-weight:bold;
padding-left:3px;
padding-bottom:2px;
}
</style>
</head>
<%
'Declaracion de las Variables
Dim rstEstados 'Recordset ADO
Dim mConn 'Conexion ADO
Dim mCmd 'Comando ADO
Dim vRecordCount
'Crea los objetos ADO
Set mConn = Server.CreateObject("ADODB.Connection")
Set mCmd = Server.CreateObject("ADODB.Command")
set rstEstados = Server.CreateObject("ADODB.Recordset")
'Especifica los parametros de la conexion
mConn.CommandTimeout = 40
mConn.CursorLocation = 1 ' Del lado del Cliente
mConn.ConnectionString = "server=localhost;driver=MySQL;db=SAPAC;uid=minomb re;pwd=micontra"
mConn.Open
mCmd.ActiveConnection = mConn
mCmd.CommandType = 1 'texto
mCmd.CommandText = "Select * from Entidades_Federativas"
'Abre los registros basados en la consulta de mCmd
rstEstados.Open mCmd,,1,1
%>
<BODY bgcolor="#ffddcc" background="images/background.gif" bgproperties="fixed" alink="white" vlink="white">
<font face="Arial" color="white">
<P align="center"><STRONG> Lista de Estados registrados en SARG CETRAM </STRONG>
<p align="center">
</font>
<FORM method="post" ACTION="EliminarEstado.asp">
<table align="center" border="1" cellpadding="1" cellsapcing="1">
<tr>
<td align="center"><b> <font face="Verdana" color="white" size="2"> - </font></b></td>
<td align="center"><b> <font face="Verdana" color="white" size="2">Id_Entidad </font></b></td>
<td align="center"><b> <font face="Verdana" color="white" size="2">Entidad Federativa </font></b></td>
<%
vRecordCount = 0
Do until rstEstados.EOF
Response.Write "<tr>"
Response.Write "<td align=center> <input type=radio name=estado value=" &rstEstados.Fields("Id_Entidad") &">"
Response.Write "<td align=center class=celda>" & rstEstados.Fields("Id_Entidad") & "</td>"
Response.Write "<td align=center class=celda>" & rstEstados.Fields("Descripcion") & "</td>"
Response.Write "</tr>"
rstEstados.MoveNext
vRecordCount = vRecordCount + 1
Loop
rstEstados.Close
mConn.Close
%>
</table></p>
<font face="Arial" color="white" size="2">
<%
Response.Write "<p align=right> Total de Resgistros: " & vRecordCount
%>
</font>
<table align="center" border="1" cellpadding="1" cellsapcing="1">
<tr>
<td align="center"><input type=button class="boton" name=Delete value="Eliminar Registro" onClick=submit()></td>
</tr>
</table>
</FORM>
</body>
</html>
Listado IngresarEstado.asp
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<%
Dim mCmd
Dim mConn
Dim strSQL
Set mCmd = Server.CreateObject("ADODB.Command")
Set mConn = Server.CreateObject("ADODB.Connection")
mConn.CommandTimeout = 40
mConn.ConnectionTimeout = 40
mConn.ConnectionString = "server=localhost;driver=MySQL;db=SAPAC;uid=minomb re;pwd=micontra"
mConn.Open
strSQL = "INSERT INTO Entidades_Federativas"
strSQL = strSQL & "(Id_Entidad,Descripcion)"
strSQL = strSQL & " VALUES (Null, "
strSQL = strSQL & "'" & Request("Estado") & "')"
mCmd.ActiveConnection = mConn
mCmd.CommandTimeout = 40
mCmd.CommandType = 1
mCmd.CommandText = strSQL
mCmd.Execute
Server.Transfer("StateList.asp")
%>
<BODY>
</BODY>
</HTML>
Listado EliminarEstado.asp
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<%
Dim mCmd
Dim mConn
Dim strSQL
Set mCmd = Server.CreateObject("ADODB.Command")
Set mConn = Server.CreateObject("ADODB.Connection")
mConn.CommandTimeout = 40
mConn.ConnectionTimeout = 40
mConn.ConnectionString = "server=localhost;driver=MySQL;db=SAPAC;uid=minomb re;pwd=micontra"
mConn.Open
strSQL = "DELETE FROM Entidades_Federativas where Id_Entidad="
strSQL = strSQL & "'" & Request("estado") & "'"
mCmd.ActiveConnection = mConn
mCmd.CommandTimeout = 40
mCmd.CommandType = 1
mCmd.CommandText = strSQL
mCmd.Execute
Server.Transfer("StateList.asp")
%>
<BODY>
</BODY>
</HTML>
Listado IngresarEstado.html
<HTML>
<HEAD>
<TITLE>Ingresar Estado</TITLE>
<style type="text/css">
.celda{
font-size=10px;
font-family: Verdana,Helvetica;
color: black;
font-weight:bold;
padding-left:3px;
padding-bottom:2px;
}
.boton1{
font-size=10px;
font-family: Verdana,Helvetica;
color: black;
font-weight:bold;
padding-left:3px;
padding-bottom:2px;
}
</style>
</HEAD>
<BODY bgcolor="#ffddcc" background="images/background.gif" bgproperties="fixed" alink="white" vlink="white" >
<form method="post" ACTION="IngresarEstado.asp" target="Federaciones">
<table cellpadding="3" cellspacing="2" border="0" align="right" background="images/vertical.gif">
<tr>
<td align="center" class="celda">Ingrese un nuevo <br> nombre de Estado</td>
</tr>
<tr>
<td class="celda"><Input name="Estado" size=20> </td>
</tr>
<tr>
<td align="center" class="celda"><Input type=button class="boton1" value="Aceptar" OnClick=submit()> </td>
</tr
</table>
</form>
</BODY>
</HTML>
No mas que me encontre con pequeño detalle que no me gusto, cuando le di ingresar nuevo estado todo lo hizo bien pero cuando le recargar la pagina, me mostro un mensaje diciendo que la pagina no podia ser actualizada sin renviar la informacion, al darle aceptar me muestra mi listado, y me di cuenta que el ultimo estado que ingrese, lo ingreso dos veces, obviamente con diferente ID,
que puedo hacer en este caso? 
Otra vez Redireccionamiento y Recarga 
