<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.QueryString("Name") Mailer.FromAddress= "none@none.com" Mailer.RemoteHost = "mail.kojy.net" Mailer.AddRecipient "Brian Kang", "jhkang@kojy.net" Mailer.Subject = "Demo CD Request" tBody = "" tBody = tBody & request.querystring("Name") & vbCrLf tBody = tBody & request.querystring("Company") & vbCrLf tBody = tBody & request.querystring("Street") & vbCrLf tBody = tBody & request.querystring("City") & ", " & request.querystring("State") & " " & request.querystring("Zipcode") & vbCrLf tBody = tBody & "Phone : " & request.querystring("Phone") & vbCrLf tBody = tBody & "Fax : " & request.querystring("Fax") & vbCrLf tBody = tBody & request.querystring("Email") & vbCrLf Mailer.BodyText = tBody if Mailer.SendMail then Response.Write "Thank you. Your request has been submitted." else Response.Write "Mail send failure. Error was " & Mailer.Response end if %>