Ayuda para sacar este ID

[rashid]

Hola gente.
Quiero sacar un ID. El caso es que Tengo una pagina que me inserta los datos del articulo en la BD, y quiero que luego de insertarlos me responda "Su articulo ha sido añadido y tiene ID..."
El problema mio es obtener este ID.
Este es el codigo con que inserto, las lineas 7 y 8 de abajo haci arrib son un intento infructuoso de obtener este ID.
¿Alguien puede ayudar?

Sub InsertAd
userSQL = ""
userSQL = userSQL & "SELECT * FROM registration WHERE "
userSQL = userSQL & "username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword)
Set UserRS = GobjConnect.Execute(userSQL)

sUserEmail = UserRS.Fields("Email")

sSQL = ""
sSQL = sSQL & "INSERT INTO Auctions (ItemOwner, ItemTitle, CategoryID, ImageURL, Ended, EmailsSent, "
sSQL = sSQL & " AvailDate, CloseDate, "
sSQL = sSQL & " Bedrooms, Baths, PropertyType) "
sSQL = sSQL & " VALUES ( "
sSQL = sSQL & SQLVal(valRS.Fields("ID")) & ", "
sSQL = sSQL & SQLStr(sTitle) & ", "
sSQL = sSQL & SQLVal(iCat) & ", "
sSQL = sSQL & SQLStr(sImageURL) & ", "
sSQL = sSQL & " false , "
sSQL = sSQL & " false , "
sSQL = sSQL & SQLDate(NOW) & ", "
sSQL = sSQL & SQLDate(dCloseDate) & ", "
sSQL = sSQL & SQLStr(sBedrooms) & ", "
sSQL = sSQL & SQLStr(sBaths) & ", "
sSQL = sSQL & SQLStr(sPropertyType) & " )"

'Response.Write "<P>" & sSQL & "<BR>"
GobjConnect.Execute(sSQL)
Set InsertRS = GobjConnect.Execute(sSQL)
Response.Write(InsertRS.Fields("ID"))

Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & "><CENTER>")
Response.Write("Your item has been posted successfully!<P>")
Response.Write("<A HREF=""default.asp"">Home&l t;/A></CENTER>")

UserRS.Close
Set UserRS = Nothing

End Sub

:(

[bakanzipp]

a ver..dinos mas...
no te funciona el sql de arriba?...de ahi kieres sacer el ID o no?...el insert te arroja error o algo?...

detalla mas...

[rashid]

Noo, todo este codigo sin la linea mia funciona a mil maravillas, inserta y responde gracias, pero cuando meto la linea
GobjConnect.Execute(sSQL)
Set InsertRS = GobjConnect.Execute(sSQL)
Response.Write(InsertRS.Fields("ID"))

En la ultima linea - Response.Write(InsertRS.Fields("ID")) - cuando lee me manda el error

ADODB.Fields error '800a0cc1'

ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

/ASP/RealState3/postitem.asp, line 91

:( :(

[MartinAcevedo]

Fijate bien en la consulta
el error que tenes es que el recordset que botenes es de un insert no de un select y por lo tanto esta vacio y no tiene ningu campo que se llame id, entedes.
Saludos Martin

Martin Acevedo

[MartinAcevedo]

tenes que hacer un select con el id nuevo
algo como 'select max(id) as id from tabla ' ... etc

espero que te sirva....

Martin Acevedo

[rashid]

Martin, si hago una select nuevo me pregunto
¿Cómo logro que me elija el recor recien metido?, me respondes que ponga max(id) , qué es esto?.

Otra pregunta, si el recordset que uso actualmente es solo para insertar, de qué modo hago para que sea tambien para consultar.
Las propiedades del recordset de la pagina son todas las que tiene al principio del post, nada mas.
Me parrece que antes de hacer una nueva consulta lo mejor es cambiar las propiedades de este Recorset.
:(