Hent ID

Set rs = Conn.Execute("select max(id) from tbl_whatever")
    strLastInsertID = rs(0)

Hvad er det til?

Jeg kan ikke lige få det til at virke.
Min kode ser sådan ud nu:

<!-- #include file="ADOVBS.inc" -->
<!-- #include file="DB.asp" -->
<!-- #include file="mailinfo.asp" -->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Annoncer", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rs.addnew
rs("Kategori") = request.form("Kategori")
rs("kode") = request.form("kode")
rs("overskrift") = request.form("overskrift")
rs("tekst") = request.form("tekst")
rs("Pris") = request.form("Pris")
rs("Navn") = request.form("Navn")
rs("Adresse") = request.form("Adresse")
rs("Postnr") = request.form("Postnr")
rs("Bynavn") = request.form("Bynavn")
rs("EMail") = request.form("EMail")
rs("tlfnr") = request.form("tlfnr")
rs("dato") = date()
rs("klokken") = time()
rs("Ipnummer") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs = Nothing
'----------------------------------------------------------
Set rs = Conn.Execute("select max(id) from Annoncer")
    strLastInsertID = rs(0)

'ID = rs("ID")
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 = strLastInsertID
    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

Får du nogen fejl?

HTTP 500 - Intern serverfejl
Internet Explorer
En meget sigende IE fejl :)

Prøv at komme med en URL

Den ligger på: http://www.heddinge.dk/salg/Newrecord.asp
Når den er udfyldt går den til http://www.heddinge.dk/salg/savenewinfo.asp
og det er den der indeholder ovenstående kode.

www.1script.com/asp0001.html

Det link siger blot at du skal bruge adOpenKeyset og ikke
adOpenDynamic

Overvej at skifte din indsætningteknik til INSERT INTO metoden

nu får jeg fejlen
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/salg/savenewinfo.asp, line 12

Feltet adresse og tlfnr skal kunne være tomt, jeg tror det er det der er problemet :)

<!-- #include file="db.asp" -->
<!-- #include file="mailinfo.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Connection")

SQLstmt = "INSERT INTO Annoncer (Kategori,kode,overskrift,tekst,Pris,Navn,Adresse,Postnr,Bynavn,EMail,tlfnr)"
SQLstmt = SQLstmt & " VALUES (" & request.form("Kategori") & "','" & request.form("kode") & "','" & request.form("overskrift") & "','" & request.form("tekst") & "','" & request.form("Pris") & "','" & request.form("Navn") & "','" & request.form("adresse") & "','" & request.form("Postnr") & "','" & request.form("Bynavn") & "','" & request.form("EMail") & "','" & tlfnr & "')"

response.write sqlstmt

Conn.Execute (SQLstmt)



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