Formuläret:





Namn



Email



Synpunkter
cols="20">








Send.asp:
<%
'Sätt lite variablar
din_mail = "christoffer@megadomain.net" 'Din mailaddress (meddelandet kommer skickas dit)
return_url = "http://www.megadomain.net" 'Besökaren kommer hit efter att mailet har skickats...

'Kollar om besökaren fyllt i alla fält
if Request.Form("from") = "" then
Response.Write "Du måste ange ett namn för att skicka meddelandet!
Tryck bakåt i din webläsare och försök igen"
elseif Request.Form("texten") = "" then
Response.Write "Du måste skriva nånting!
Tryck bakåt i din webläsare och försök igen"
else
'Skickar iväg mailet
Dim CDOMail
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = Request.Form("email")
CDOMail.To = din_mail
CDOMail.Cc = ""
CDOMail.Subject = "E-post från " & Request.Form("from")
CDOMail.Body = "Detta mail skickades från din hemsida:" & vbcrlf&_
"" & Request.Form("from") & " (" & Request.Form("email") & ") - "& now & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("texten") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"//Made By Christoffer V - www.megadomain.net"
CDOMail.Send
Set CDOMail = Nothing

'Skickar dig tillbaka
Response.Redirect return_url
end if %>