Hent ID ver. 2

Jeg prøver lige igen, da det gamle spørgsmål er blevet lidt rodet :)

Når nedenstående kode har lavet en ny record i databasen. hvordan får jeg den så til at hente ID på den record den har lavet, så jeg kan bruge den i den mail jeg sender ud?

Jeg får fejlen:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/salg/savenewinfo.asp, line 24
Når jeg bruger:
Set rs = Conn.Execute("select max(ID) from Annoncer")
men den oprettet fint nok den nye record i databasen.

<!-- #include file="db.asp" -->
<!-- #include file="mailinfo.asp" -->
<%
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1
Session.LCID = 1030

Set rs = Server.CreateObject("ADODB.Connection")
rs.Open strDSN
SQL = "INSERT INTO Annoncer (kode,Kategori,overskrift,tekst,Pris,Navn,Adresse,Postnr,Bynavn,EMail,tlfnr,dato,klokken,Ipnummer)"
SQL = SQL & " VALUES ('" & request.form("kode") & "','" & request.form("Kategori") & "','" & request.form("overskrift") & "','" & request.form("tekst") & "','" & request.form("Pris") & "','" & request.form("Navn") & "','" & request.form("adresse") & "','" & request.form("Postnr") & "','" & request.form("Bynavn") & "','" & request.form("EMail") & "','" & request.form("tlfnr")& "','" & date() & "','" & time() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"

response.write sql

rs.Execute (SQL)

rs.Close
Set rs = nothing
Set SQL = nothing


Set rs = Conn.Execute("select max(ID) from Annoncer")
rs.Open strDSN
strLastInsertID = rs(0)
overskrift = rs("overskrift")
mail = rs("EMail")
navn = rs("Navn")

Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = mailserver
        JMail.Sender = mailsender
        JMail.SenderName = mailsendername
    JMail.Subject = "12345"
    JMail.AddRecipient mail
    JMail.Body = "Hej " & navn & vbcrlf & vbcrlf & "test "     
   
   
    JMail.Priority = 1
    JMail.Execute
    JMail.Close
    Set JMail = Nothing   


rs.Close
Set rs = nothing
Set SQL = nothing
%>