%@ Language=VBScript %> <% if len(Request.Form("submit")) > 0 then dim body dim replyto replyto = Request.Form("email") body = body & "Name: " & Request.Form("name") & vbcrlf body = body & "Email Address: " & Request.Form("email") & vbcrlf body = body & "Phone Number: " & Request.Form("phone") & vbcrlf body = body & "Message: " & Request.Form("comments") & 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 = "BillBunch_WS@Denovo.net" cdoMessage.To = "BillBunch_WS@Denovo.net" ' cdoMessage.To = "Peter@Denovo.net" cdoMessage.Subject = "William H Bunch Web Site Contact Form" cdoMessage.ReplyTo = replyto cdoMessage.TextBody = body cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing Response.redirect "thanks.htm" end if %>
![]() |
![]() |
|
|
![]() |
![]() |
![]() |
![]() |