<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.Querystring("isSubmitted") = "yes" then
Dim subject, mail, content
Dim objCDO
subject = Request.Querystring("sendto")
mail = Request.Querystring("email")
content = Request.Querystring("content")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "jimc@iasinc.net"
objCDO.To = "jimc@iasinc.net"
objCDO.Subject = "Submitted form data from Client Information Page"
objCDO.Body = "Topic: " & subject
"Email Address: " & mail
"Message: " & content
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
ConfirmMsg = "Thanks for submitting your name!"
end if
%>
DefaultLink - Offering Customized Services for the Professional Default Community
