<%@ Language=VBScript %>
Hello
<%
Response.Write("hello world");
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Const cdoSendUsingPort = 2
StrSmartHost = "localhost"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
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
strBody = "This is a test of sending an email via ASP" & vbCrLf & vbCrLf
strBody = strBody & "This is line 2. " & vbCrLf
strBody = strBody & "you can have as many as you want" & vbCrLf
strBody = strBody & "THIS IS AN AUTOMATED EMAIL - PLEASE DO NOT REPLY"
' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "ifipkpk@yahoo.com"
.From = "QuoteRequest@yahoo.com"
.Subject = "This is a test message from an ASP Email"
.textbody = strBody
'redirect code goes here
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
<%
'Dim MyMail
'Set MyMail = Server.CreateObject("CDO.Message")
'MyMail.From = Request.QueryString("txtName")
'name = Request.QueryString("txtName")
'companyName = Request.QueryString("txtCompanyName")
'address = Request.QueryString("txtAddress")
'phone = Request.QueryString("txtPhone")
'fax = Request.QueryString("txtFax")
'email = Request.QueryString("txtEmail")
'quote = Request.QueryString("txtQuote")
'MyMail.To = "najamamin@hotmail.com"
'MyMail.From = "QuotesRequest@itclinens.com"
'MyMail.Subject = "Quote Request"
'dim bodyString
'bodyString = "" & name &" has requested for a quote
"
'bodyString = bodyString + "Company Name: " & companyName & "
"
'bodyString = bodyString + "Address: " & address & "
"
'bodyString = bodyString + "Phone: " & phone & "
"
'bodyString = bodyString + "Fax: " & fax & "
"
'bodyString = bodyString + "Email: " & email & "
"
'bodyString = bodyString + "
"
'bodyString = bodyString + "Comments/ Quote request:" & quote
'MyMail.HTMLBody = bodyString
'response.Write("Your quote request has been successfully logged, we'll get back to you in a little time.
Thanks")
'MyMail.Fields.Update()
'MyMail.Send()
'Set MyMail = Nothing
%>