Insert into
Nu har jeg stirret for længe på denne fejl og kan ikke finde den...Er der nogen der kan hjælpe mig med hvad jeg gør galt her?
If request.form("Action") = "Send" Then
StrOrdrenr = Request.Form("Ordrenummer")
StrDato = Request.Form("Dato")
StrEvent = Trim(Request.Form("Event"))
StrNavn = Trim(Request.Form("Navn"))
StrEfternavn = Trim(Request.Form("Efternavn"))
StrAdresse = Trim(Request.Form("Adresse"))
StrPostnr = Trim(Request.Form("Postnr"))
StrBynavn = Trim(Request.Form("By"))
StrAntal = Request.Form("Antal")
StrSted = Request.Form("Valgmenu")
StrPris = request.form("Pris")
StrTel = Trim(request.form("Telefon"))
StrEmail = request.form("Email")
AbnDB
strSQL = "INSERT INTO Event ("
strSQL = strSQL & "Ordrenummer , "
strSQL = strSQL & "Dato , "
strSQL = strSQL & "Event , "
strSQL = strSQL & "Navn , "
strSQL = strSQL & "Efternavn , "
strSQL = strSQL & "Adresse , "
strSQL = strSQL & "Postnummer , "
strSQL = strSQL & "By , "
strSQL = strSQL & "Opsamlingssted , "
strSQL = strSQL & "Antal , "
strSQL = strSQL & "Pris , "
strSQL = strSQL & "Telefon , "
strSQL = strSQL & "Email ) "
strSQL = strSQL & "values('"
strSQL = strSQL & StrOrdrenr & "', '"
strSQL = strSQL & StrDato & "', '"
strSQL = strSQL & StrEvent & "', '"
strSQL = strSQL & StrNavn & "', '"
strSQL = strSQL & StrEfternavn & "', '"
strSQL = strSQL & StrAdresse & "', '"
strSQL = strSQL & StrPostnr & "', '"
strSQL = strSQL & StrBynavn & "', '"
strSQL = strSQL & StrAntal & "', '"
strSQL = strSQL & StrSted & "', '"
strSQL = strSQL & StrPris & "', '"
strSQL = strSQL & StrTel & "', '"
strSQL = strSQL & Email & "')"
Conn.Execute(strSQL)
LukDB
