Oversæt SQL
Nu har jeg sidet og kæmpet med en insert+update-sætningInsertdelen virker, men det jeg yderligere skal have gjort er at opdatere ("booket") i en anden tabel. Denne tabel kender jeg ikke på forhånd, da jeg har oprettet en tabel for hvert år.
kode:
<%if Request.QueryString ("action") = "new" then
Navn = Request.Form("Navn")
Adresse = Request.Form("Adresse")
Postnr = Request.Form("Postnr")
Bynavn = Request.Form("Bynavn")
Tlf = Request.Form("Tlf")
Mobil = Request.Form("Mobil")
Mail = Request.Form("Mail")
Bookuge = uge
Bookaar = aar
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/Kalender.mdb")
SQLstmt = "INSERT INTO kundedb (Navn, Adresse, Postnr, Bynavn, Tlf, Mobil, mail, Bookuge, Bookaar)"
SQLstmt = SQLstmt & " VALUES ('" & Navn & "','" & Adresse & "','" & Postnr & "','" & Bynavn & "','" & Tlf & "','" & Mobil & "','" & Mail & "','" & Bookuge & "','" & Bookaar & "')"
SQLstmt2 = "UPDATE DISTINCTROW '" & request.querystring("aarstal") & "' SET booket = 2 WHERE uge=" & request.querystring("uge")
'SQLstmt2 = SQLstmt & "VALUES ('" & request.form("booket") & "')"
'response.write sqlstmt
'response.write sqlstmt2
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
Set SQLstmt2 = nothing
response.redirect ("index.asp")
end if %>
