%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% fromName="alpinelaserclinic.com" fromAddress="form@alpinelaserclinic.com" toName="Questions" toAddress="questions@" subject="ALC - Question" relay="smtp.1and1.com" %>
ALC - Ask a Question
<%
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.FromName = "ALC Question"
Mail.FromAddress= Request.Form("email")
Mail.RemoteHost = "mrelay.perfora.net"
Mail.AddRecipient "Alpine Laser Clinic", "webmaster@alpinelaserclinic.com"
Mail.Subject = "ALC - Question"
Mail.BodyText = Request.Form("question")
sBodyText = "The following is feedback from my web site." & vbcrlf & vbcrlf sBodyText = sBodyText & "First Name: " & Request.Form("firstname") & vbCrLf sBodyText = sBodyText & "Last Name: " & Request.Form("lastname") & vbCrLf
if Mail.SendMail then
Response.Write "Your mail has been sent..."
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
%>