Como capturo dato autogenerado al grabar Recordset

[Citize]

Señores:

tengo una tabla PAIS, con los campos:
- nombre (tipo texto)
- poblacion (tipo texto)
- idioma (tipo texto)
- CodigoPais (autonumerico)

Los datos para Poblacion, Idioma y Codigo los capturo del formulario. Pero Codigo se autogenera al registrar un nuevo registro.
Lo que yo deseo es saber como capturar este dato (CodigoPais)

Aqui envio parte del codigo escrito:

' verifico si ya esta registrado o no PAIS
sSQL="SELECT * FROM Pais WHERE (NombrePais='"&pNomPais&"');"
'Ejecutamos la consulta
set RS=conn.Execute(sSQL)

if not RS.EOF then
Response.Write "El pais ya fue ingresado. "
Response.Write "Por favor, escoja otro."

else
'le insertamos en la bd
sSQL="INSERT INTO Pais " & "(Nombre, Poblacion, Idioma)"
sSQL=sSQL & " VALUES ('"&pNomPais&"', '"&pPobPais &"', '"&pIdiomaPais &"')"
conn.Execute(sSQL)
end if

-------

Mi pregunta es ¿como hago para capturar el Campo CodigoPais(autogenerado) del recordset que se acaba de grabar ?

Les agradeceré mucho su ayuda

Franco

[Gurrutello]

hola en esta segunda consulta que es donde obtendrias los datos del ( codigo de pais no creas ningun recordset )
else
'le insertamos en la bd
sSQL="INSERT INTO Pais " & "(Nombre, Poblacion, Idioma)"
sSQL=sSQL & " VALUES ('"&pNomPais&"', '"&pPobPais &"', '"&pIdiomaPais &"')"
conn.Execute(sSQL)
end if

----------------
en la primera consulta si lo creas lo que quiere decir que
set RS=conn.Execute(sSQL)

o
---------------
CodigoPais=rs("CodigoPais")+1

o creas un nuevo recorset o registro como hiciste anteriormente

saludos

[Citize]

Hola Gurrutello:

No entendi bien como implementarlo en los casos que mencionas (pudieras decirme como seria expresado en codigo please)

Sobre la ultima solucion que mencionas, de aumentar en 1 al codigoPais, ok..eso seria si es el sistema genera numeros consecutivos para el codigo, pero y si genera numeros aleatorios?

Gracias nuevamente por tu tiempo en responder esta consulta

Franco

[Gurrutello]

hola seria algo asi
' verifico si ya esta registrado o no PAIS
sSQL="SELECT * FROM Pais WHERE (NombrePais='"&pNomPais&"');"
'Ejecutamos la consulta
set RS=conn.Execute(sSQL)

if not RS.EOF then
Response.Write "El pais ya fue ingresado. "
Response.Write "Por favor, escoja otro."

else
'le insertamos en la bd
sSQL="INSERT INTO Pais " & "(Nombre, Poblacion, Idioma)"
sSQL=sSQL & " VALUES ('"&pNomPais&"', '"&pPobPais &"', '"&pIdiomaPais &"')"
set RS=conn.Execute(sSQL)
end if

En la segunda consulta no creas ningun recordset o consulta ( en tu caso rs )
si no creas esta rs no podras llamarla de ninguna forma
saludos