rs.addnew

Hejsa

Jeg skal lægge en ny tilmelding i en database. Først skal kunden oprettes i min kundedata tabel. Derefter skal kundens ID samt nogle tilvalg lægges i en anden tabel.

Hvordan fanger jeg kundens ID nummer i en og samme kørsel?

Jeg har hørt man skal bruge rs.addnew..

Her kører jeg oprettelsen af min kunde i databasen

Det jeg søger er en måde at fange kundens ID som først oprettes i det øjeblik han tilmeldes

?? Hilfe

Mvh Stauer

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

CompanyName = SQLSafe (Request.Form("CompanyName"))
Addresse = SQLSafe (Request.Form("Addresse"))
Post = SQLSafe (Request.Form("Post"))
City = SQLSafe (Request.Form("City"))
Country = Request.Form ("Country")
Telephone = SQLSafe (Request.Form("Telephone"))
Fax = SQLSafe (Request.Form("Fax"))
ContactPerson = SQLSafe (Request.Form("ContactPerson"))
Email = SQLSafe (Request.Form("Email"))
Profile = SQLSafe (Request.Form("Profile"))
RB = Request.Form ("RB")
Link = SQLSafe (Request.Form("Link"))
WhoName = SQLSafe (Request.Form("WhoName"))
WhoTitle = SQLSafe (Request.Form("WhoTitle"))
WhoDepartment = SQLSafe (Request.Form("WhoDepartment"))
WhoTelephone = SQLSafe (Request.Form("WhoTelephone"))
WhoFax = SQLSafe (Request.Form("WhoFax"))
WhoEmail = SQLSafe (Request.Form("WhoEmail"))
WhoLanguage1 = SQLSafe (Request.Form("L1"))
WhoLanguage2 = SQLSafe (Request.Form("L2"))
WhoLanguage3 = SQLSafe (Request.Form("L3"))
BasicEmployees = SQLSafe (Request.Form("BasicEmployees"))
BasicLegalstatus = SQLSafe (Request.Form("BasicLegalstatus"))
BasicFoundation = SQLSafe (Request.Form("BasicFoundation"))
BasicTurnover = SQLSafe (Request.Form("BasicTurnover"))
BasicISO = SQLSafe (Request.Form("BasicISO"))
Others = SQLSafe (Request.Form("Others"))
Meet = SQLSafe (Request.Form("Meet"))
Activated = Request.Form("Activated")

strSQL = "Insert into kundedata (CompanyName, Addresse, Post, City, Country, Telephone, Fax, ContactPerson, Email, Profile, RB, Link, WhoName, WhoTitle, WhoDepartment, WhoTelephone, WhoFax, WhoEmail, WhoLanguage1, WhoLanguage2, WhoLanguage3, BasicEmployees, BasicLegalstatus, BasicFoundation, BasicTurnover, BasicISO, Others, Meet, Activated) values ('"&CompanyName&"', '"&Addresse&"', '"&Post&"', '"&City&"', '"&Country&"', '"&Telephone&"', '"&Fax&"', '"&ContactPerson&"', '"&Email&"', '"&Profile&"', '"&RB&"', '"&Link&"', '"&WhoName&"', '"&WhoTitle&"', '"&WhoDepartment&"', '"&WhoTelephone&"', '"&WhoFax&"', '"&WhoEmail&"', '"&WhoLanguage1&"', '"&WhoLanguage2&"', '"&WhoLanguage3&"', '"&BasicEmployees&"', '"&BasicLegalstatus&"', '"&BasicFoundation&"', '"&BasicTurnover&"', '"&BasicISO&"', '"&Others&"', '"&Meet&"', '"&Activated&"' )"

'Response.Write(strSQL)
Conn.Execute(strSQL)
Response.Write ("The company has been added to the database!")