sådan her ;-) Så får du vidst kun 1 mail og du redirecter til sidst...
<%@ Language=VBScript %>
<%
Dim sSubject
Dim sBody, sBodyHtml
sBodyHtml = sBodyHtml & "<font size=""2"" face=""Tahoma"">Dato: " & Now & "</font><br>"
sBodyHtml = sBodyHtml & "<font size=""2"" face=""Tahoma""><strong>Kunde oplysninger:</strong><br>"
sBodyHtml = sBodyHtml & "Navn: " & Chr(9) & Request.Form("Navn") & "<br>"
sBodyHtml = sBodyHtml & "Adresse: " & Chr(9) & Chr(9) & Request.Form("Adresse") & "<br>"
sBodyHtml = sBodyHtml & "Post nr.: " & Chr(9) & Chr(9) & Request.Form("Postnr") & "<br>"
sBodyHtml = sBodyHtml & "By: " & Chr(9) & Chr(9) & Chr(9) & Request.Form("By") & "<br>"
sBodyHtml = sBodyHtml & "Telefon nr.: " & Chr(9) & Request.Form("Telefon") & "<br>"
sBodyHtml = sBodyHtml & "Mobil nr.: " & Chr(9) & Request.Form("Mobil") & "<br>"
sBodyHtml = sBodyHtml & "E-mail: " & Chr(9) & Chr(9) & Request.Form("E-mail") & "<br>"
sBodyHtml = sBodyHtml & "Bemærkninger: " & Chr(9) & Chr(9) & Request.Form("Bemaerkninger") & "<br>" & "<br></font>"
'Overføre header til mail
sBodyMail = sBodyHtml
sBodyHtml = sBodyHtml & "<font size=""2"" face=""Tahoma""><strong>Din ordre:</strong></font>"
sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0""><font size=""2"" face=""Verdana""><strong>Varenr.:</strong></font></td>"
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4""><font size=""2"" face=""Verdana""><strong>Varenavn:</strong></font></td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0""> <strong><font size=""2"" face=""Verdana"" align=""right"">Stk. pris kr.:</font></strong></td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4""><strong><font size=""2"" face=""Verdana"">Antal:</font></strong></td>"
sBodyHtml = sBodyHtml & "</tr></table>"
'Mail til UFODESIGN
Dim jmail
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "info@ufodesign.dk"
jmail.From = "info@ufodesign.dk"
jmail.FromName = "
www.ufodesign.dk"jmail.Subject = "Kundehenvendelse!"
jmail.HTMLBody = "<html><body>" & sBodyMail
jmail.appendHTML "</body></html>"
jmail.Send( "smtp.cliche.dk" )
jmail.Clear
jmail.Close
Set jmail = Nothing
jmail.Logging = true
jmail.silent = true
Response.redirect("side.asp")
%>