<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
If request("submit") <> "" THEN
' send by connecting to port 25 of the SMTP server
Const cdoSendUsingPort = 2
StrSmartHost = "localhost"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= 10
.Update
End With
' build HTML for message body
strHTML = ""
strHTML = strHTML & "From: " & Request.form("realname") & "
"
strHTML = strHTML & "Phone: " & Request.form("phone") & "
"
strHTML = strHTML & "Email: " & Request.form("email") & "
"
strHTML = strHTML & "Company: " & Request.form("company") & "
"
strHTML = strHTML & ""
strHTML = strHTML & "Message: " & Request.form("comments") & "
"
strHTML = strHTML & ""
strHTML = strHTML & ""
' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "kzilber@gmail.com"
.From = "web@visimaker.com"
.Subject = "Web site email message"
.HTMLBody = strHTML
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
Thank you for your registration
Your request was successfully submitted
and you will be hearing from us shortly
|
<%
Else
%>
Please login to open your project
This area contains applications and projects that are currently in progress.
Please login to view your project. If you are a new customer please register to see applications.
<%
End If
%>
Custom Web and Graphic Design the way you want it!
