%@ Language=VBScript %> <% if len(Request.Form("submit")) > 0 then dim body body = body & "Name: " & Request.Form("name") & vbcrlf body = body & "Spouse Name: " & Request.Form("spouse") & vbcrlf body = body & "Phone Number: " & Request.Form("phone") & vbcrlf body = body & "Address: " & Request.Form("address") & vbcrlf body = body & "City: " & Request.Form("city") & vbcrlf body = body & "State: " & Request.Form("state") & vbcrlf body = body & "Zip: " & Request.Form("zip") & vbcrlf body = body & "Email Address: " & Request.Form("emailaddr") & vbcrlf body = body & "Comments: " & Request.Form("comments") & vbcrlf & vbcrlf & vbcrlf dim sch dim cdoConfig dim cdoMessage sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.fountainshosting.com" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "barduad@hpw.com" cdoMessage.To = "barduad@hpw.com" cdoMessage.Subject = "Donna J. Bardua Website Contact Form" 'objMsg.To = "sarah@denovo.net" cdoMessage.TextBody = body cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing Response.redirect "thanks.htm" end if %>
![]() |
![]() |
|
|
|
|
Please use this form to request more information on my services, or to submit your questions or offer feedback on my website. You can also e-mail me at barduad@hpw.com. I'm looking
forward to hearing from you!
|
|
||
![]() |
|||
|
[Home Page :: House Listings :: Area Golf :: Relocation Essentials :: Local Schools :: Financial Information :: About Donna :: Referral Network :: Contact Donna :: Client Testimonials]   Donna J. Bardua :: 100 Connemara Drive :: Cary, NC 27519 :: 1.800.680.8884 :: barduad@hpw.com |
|||