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>"
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.