<% @LANGUAGE = VBScript %>
<% Option Explicit %>
TellUsWhatYouThinkOrthoInfoRequest
<%
Dim cdoConfig, cdoMessage, strBody, blnSuccess, item
'Make sure there is either a phone number or email address
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
If Trim(Request.Form("UserTel")) = "" And Trim(Request.Form("UserEmail")) = "" Then
Response.Write("Please enter either a phone number or email address where you can be reached.
")
Else
Set cdoConfig = CreateObject("CDO.Configuration")
strBody=Now & vbcrlf
for each item in Request.Form
strBody=strBody & item & ": " & Request.Form(item) & vbcrlf
next
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.bluedoginternet.com"
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUsername) = "jstaggers"
.Item(cdoSendPassword) = "xrt9h357"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "jstaggers@bluedoginternet.com"
.To = "j8649@aol.com"
'.CC = "jhinson@brainstormsoftware.com"
.Subject = "From Staggers Orthodontics Website: " & Trim(Request("MessageType"))
.TextBody = strBody
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Server.Transfer "ThankYouForOrthoInterest.htm"
End If
End If 'If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
%>
Tell us what you think about our web site, our
services or anything else that comes to mind. We welcome all of your
comments and suggestions.
Copyright © 2006 by Julie A. Staggers D.D.S., M.S. All rights reserved.