<% ' get posted data into variables EmailFrom = Trim(Request.Form("Email")) EmailTo = "you@yourmail.com" Subject = Trim(Request.Form("Subject")) FirstName = Trim(Request.Form("FirstName")) LastName = Trim(Request.Form("LastName")) Company = Trim(Request.Form("Company")) Message = Trim(Request.Form("Message")) ' prepare email body text Dim Body Body = Body & "FirstName: " & FirstName & VbCrLf Body = Body & "LastName: " & LastName & VbCrLf Body = Body & "Email: " & Email & VbCrLf Body = Body & "Company: " & Company & VbCrLf Body = Body & "Subject: " & Subject & VbCrLf Body = Body & "Message: " & Message & VbCrLf ' send email Set myMail=CreateObject("CDO.Message") myMail.Subject=Subject myMail.From=EmailFrom myMail.To=EmailTo myMail.TextBody=Body myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing ' redirect to success page if Err then Response.Write "Result=Failed&" Else Response.Write "Result=Success&" End If %>