if Request.Form("adresse") <> "" then Dim objCDO Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
' ' Her sættes overskriften på mailen objCDO.Subject = "Vedr. returvare fra RMA nr:" & Request.Form("efternavn")
' Her sættes selve teksten til mailen objCDO.Body = "Kære " & Request.Form("efternavn") & VbCrLf & VbCrLf &"Du har oprettet en returvare sag, dit returvare nummer er: " & Request.Form("id") & VbCrLf & VbCrLf & "Varenummer: " & Request.Form("fornavn") & VbCrLf & "Faktura nr: " & Request.Form("forfos1") & VbCrLf & VbCrLf & VbCrLf &"Vi behandler din sag så hurtigt som muligt, og du vil høre fra os når vi har afsluttet sagen." & VbCrLf &"Har du spørgsmål til din retursag, er du velkommen til at kontakte os ved at svare på denne mail eller telefon 70 20 94 84 " & VbCrLf & VbCrLf &"Med venlig hilsen"& VbCrLf & VbCrLf &" .dk"
' Send e-mail og skriv status objCDO.Send
' Fjern objekt igen Set objCDO = Nothing end if
response.write "<br><br>Print venligst denne side ud, i 2 eksemplarer, den ene vedlægger du pakken med returvare.<br>" response.write "<br>" response.write "<br>" Response.write "<table cellpadding='3' cellspacing='1' width='50%' border='1'>" Response.write "<tr><td bgcolor='#EFEFEF'>" response.write "<font size='3'>Returvare nummer: "& Request.Form("Id") response.write "<br>" response.write "Navn: "& Request.Form("efternavn") response.write "<br>" response.write "Adresse: "& Request.Form("adresse") response.write "<br>"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Ja, så er det da bekræftet at feltet id findes i formularen, så mangler vi bare at bekræfte at den har en værdi (dvs. om Request.QueryString("id") har en værdi i kaldet til formularsiden).
Kan du bekræfte det? Prøv evt. at skrive id'et ud på formular-siden eller se i browserens HTML-kildekode for at se hvad der står i value-attributten for id-feltet...
Godt, så skal du læse data igen efter du har oprettet rækken (og hvis det er en identity-kolonne, så bør du ikke selv indsætte den i din SQL-sætning).
Sidst men ikke mindst skal du aflæse dine data fra recordsettet i stedet for at aflæse felterne fra formularen (alternativt bare aflæse id'et fra den sidst oprettede række i databasen med kommandoen SELECT @@IDENTITY umiddelbart efter du har opretet rækken).
set rs = DataConn.Execute("SELECT @@IDENTITY AS nytID") if not rs.eof then nytID = rs("nytID") else nytID = 0 end if rs.close
if nytID > 0 then
if Request.Form("adresse") <> "" then Dim objCDO Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
' Afsenders mailserver RETTES TIL objCDO.Host = "mailout.b-one.net"
objCDO.From = "salg@"
' Her sættes modtager navn og e-mail adresse objCDO.To = Request.Form("email")
' Her sættes overskriften på mailen objCDO.Subject = "Vedr. returvare fra "
' Her sættes selve teksten til mailen objCDO.Body = "Kære " & Request.Form("efternavn") & VbCrLf & VbCrLf &"Du har oprettet en returvare sag, dit returvare nummer er: " & Request.Form("id") & VbCrLf & VbCrLf & "Varenummer: " & Request.Form("fornavn") & VbCrLf & "Faktura nr: " & Request.Form("forfos1") & VbCrLf & VbCrLf & VbCrLf &"Vi behandler din sag så hurtigt som muligt, og du vil høre fra os når vi har afsluttet sagen." & VbCrLf &"Har du spørgsmål til din retursag, er du velkommen til at kontakte os ved at svare på denne mail eller telefon 70 20 94 84 " & VbCrLf & VbCrLf &"Med venlig hilsen"& VbCrLf & VbCrLf &"
' Send e-mail og skriv status objCDO.Send
' Fjern objekt igen Set objCDO = Nothing end if else ' Vis en fejlmeddelese
end if
response.write "<br><br>Print venligst denne side ud, i 2 eksemplarer, den ene vedlægger du pakken med returvare.<br>" response.write "<br>" response.write "<br>" Response.write "<table cellpadding='3' cellspacing='1' width='50%' border='1'>" Response.write "<tr><td bgcolor='#EFEFEF'>" response.write "<font size='3'>Returvare nummer: "& Request.Form("nytID") response.write "<br>" response.write "Navn: "& Request.Form("efternavn") response.write "<br>" response.write "Adresse: "& Request.Form("adresse") response.write "<br>"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.