<% Dim iMsg Dim iConf Dim Flds Dim strHTML Dim strSmartHost %> <% 'Please donot edit the lines below //////////////////////////////////////////// Const cdoSendUsingPort = 1 StrSmartHost = "mail@infometusa.com" 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/smtpserverpickupdirectory")= "c:\inetpub\mailroot\pickup" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With '////////////////////////////////////////////////////////////////////////////////////////////////////////////// Response.Write "" strHTML=" Form Mail " strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "
Thank you, the following information has been sent:
NAME " strHTML = strHTML & request.form("lastname") strHTML = strHTML & " " strHTML = strHTML & request.form("firstname") strHTML = strHTML & "
E-MAIL" strHTML = strHTML & request.form("email") strHTML = strHTML & "
PHONE" strHTML = strHTML & request.form("phone") strHTML = strHTML & "
COUNTRY " strHTML = strHTML & request.form("country") strHTML = strHTML & "
INTERESTED" strHTML = strHTML & request.form("inter") strHTML = strHTML & "
" 'send mail With iMsg Set .Configuration = iConf .To = "contact@infometusa.com" .From = "mail@infometusa.com" .Subject = "Feedback Form From web" .HTMLBody = strHTML .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing 'response.write strHTML %> Untitled Document
 
 
Feedback Form
 
 
 Thank you, This information has been sent successfully
 
 Name   <%=request.form("firstname")%><%=request.form("lastname")%>
Address  <%=request.form("add")%>
City <%=request.form("city")%>
State/Province <%=request.form("state")%>
Postal/ Zip Code <%=request.form("zip")%>
Country <%=request.form("country")%>
E-Mail <%=request.form("email")%>
Phone Number <%=request.form("phone")%>
Message <%=request.form("mess")%>