Se las voy a poner mas facil

[GhostRider]

tengo este código:

if request.querystring("newreport")<>"" then

newrepname = request.querystring("newreport")
newdate = date()

Set Reports = Server.CreateObject("ADODB.Recordset")
Reports.ActiveConnection = MM_MBClientes_STRING
Reports.Source = "insert into reports (reportname, reportdate) values ('" & newrepname & "', " & newdate & ")"
Reports.CursorType = 0
Reports.CursorLocation = 2
Reports.LockType = 1
Reports.Open()

Reports_numRows = 0

Reports.Close()
Set Reports = Nothing

else

newrepname = request.querystring("selectreport")

end if

Dim Reports2
Dim Reports2_numRows

Set Reports2 = Server.CreateObject("ADODB.Recordset")
Reports2.ActiveConnection = MM_MBClientes_STRING
Reports2.Source = "select * from reports where ReportName = '" & newrepname & "'"
Reports2.CursorType = 0
Reports2.CursorLocation = 2
Reports2.LockType = 1
Reports2.Open()

Reports_numRows = 0

Dim Orders
Dim Orders_numRows

dim numorder, i
numorder = request.querystring("numorder")
dim idreport
idreport = Reports2.fields.item("idReport").value





y me marca un error en la ultima linea diciendo que el valor es EOF o el registro no existe.

mi pregunta es si al cerrar el primer recordset (insert) la base de datos se actualiza y debe reconocer el segundo recorset (select)

si es asi, cual es el error?

si no es asi, como puedo resolver esto para que en un tercer recordset pueda hacer un insert con el id del reporte (recien creado) en vez del nombre?