<%
If Request.ServerVariables("Request_Method") <> "POST" Then
%>
else
<%
Dim msg
msg = Server.CreateObject("SoftArtisans.SMTPMail")
msg.remotehost = "mail.exadev.com"
'set the from address
' If trim(emailaddress.text) = "" Then
msg.FromAddress = "MERCY@pineloch.com"
' Else
' msg.FromAddress = emailaddress.text
' End If
'set the to address
msg.AddRecipient("MERCY@pineloch.com")
'email subject and body
msg.Subject = "SWd Quote Form"
msg.BodyText = " CUSTOMER: "+Request.form("name")+" TITLE: "+Request.form("title")+chr(10)+" COMPANY: "+Request.form("COMPANY")+chr(10)+"EMAIL:" +Request.form("emailaddress")+chr(10)
'send the email
msg.SendMail
msg=nothing
End If
%>