I need a ASP Results form emailed

**imageproz** · 01-04-2008, 04:48 PM

Hi,

I have this form that I need to be email but can't seem to get it to work. The confirmation form is populated by the text fields and I need to be able to let the inputter send themselves the results.

Any ideas.

Here is the confirmation form code:

<%
Dim company, prepby, prepfor, propadd, ClosingDate, SalePrice, LoanAmt, IntRate, AnnualTaxBill, TransFee, OriginFee, LoanDiscount, AppraisalFee, CreditReportFee, DocPrepFee, UnderwritingFee, TaxServiceFee, FloodFee, ProcessingFee, CourierFee, AdministrativeFee, PPInt, InsPrem, InsEscrowFee, TaxEscrow, ClosingFee, LendTitlePolicy, TitleEndorse, MailAwayYES, MailaWayExpress, DeedRecFee, MortgageRecFee, DocStamps, IntangibleTax, SurveyFee, TermiteInsp, HOAtransFeeYES, HOATransFee, HOAInitFee, HOADues, MiscFees, SellerPaidCosts, EarnestMoneyDeposit, Balance

company = Request.Form("Company")
prepby = Request.Form("Prepared By")
prepfor = Request.Form("Prepared For")
propadd = Request.Form("Property Address")
ClosingDate = Request.Form("Closing Date")
SalesPrice = Request.Form("Sale Price")
LoanAmt = Request.Form("Loan Amount")
IntRate = Request.Form("Interest Rate")
AnnualTaxBill = Request.Form("Annual Tax Bill")
TransFee = Request.Form("Transaction Fee")
OriginFee = Request.Form("Loan Origination Fee")
LoanDiscount = Request.Form("Loan Discount")
AppraisalFee = Request.Form("Appraisal Fee")
CreditReportFee = Request.Form("Credit Reporting Fee")
DocPrepFee = Request.Form("Doc Prep Fee")
UnderwritingFee = Request.Form("Underwriting Fee")
TaxServiceFee = Request.Form("Tax Service Fee")
FloodFee = Request.Form("Flood Fee")
ProcessingFee = Request.Form("Processing Fee")
CourierFee = Request.Form("Courier Fee")
AdministrativeFee = Request.Form("Administrative Fee")
PPInt = Request.Form("Prepaid Interest")
InsPrem = Request.Form("Homeowners Insurance Premium")
InsEscrowFee = Request.Form("Insurance Escrow Fee")
TaxEscrow = Request.Form("Tax Escrow")
ClosingFee = Request.Form("Closing Fee")
LendTitlePolicy = Request.Form("Lender Title Policy")
TitleEndorse = Request.Form("Title Endorse")
MailAwayYes = Request.Form("Mailaway")
DeedRecFee = Request.Form("Deed Recording Fee")
MortggageRecFee = Request.Form("Mortgage Recording Fee")
DocStamps = Request.Form("Document Stamps on Mortgage")
IntangibleTax = Request.Form("Intangible Tax")
SurveyFee = Request.Form("Survey Fee")
TermiteInsp = Request.Form("Termite Inspection")
HOATransFeeYES = Request.Form("HOA Transfer")
HOATransFee = Request.Form("HOA Transfer Fee")
HOAIntFee = Request.Form("HOA Initiation Fee")
HOADues = Request.Form("HOA Dues")
MiscFee = Request.Form("Miscellaneous Fees")
SellerPaidCosts = Request.Form("Seller Paid Costs")
EarnestMoneyDeposit = Request.Form("Earnest Money Deposit")
Balance = Request.Form("Balance")

Response.Write("Company: " & request.form("company") & " ")
Response.Write("Prepared By: " & request.form("prepby") & " ")
Response.Write("Prepared For: " & request.form("prepfor") & " ")
Response.Write("Property Address: " & request.form("propadd") & " ")
Response.Write("Closing Date: " & request.form("ClosingDate") & " ")
Response.Write("Sale Price: " & request.form("SalesPrice") & " ")
Response.Write("Loan Amount: " & request.form("LoanAmt") & " ")
Response.Write("Interest Rate: " & request.form("IntRate") & " ")
Response.Write("Annual Tax Bill: " & request.form("AnnualBill") & " ")
Response.Write("Transaction Fee: " & request.form("TransFee") & " ")
Response.Write("Loan Origination Fee: " & request.form("OriginFee") & " ")
Response.Write("Loan Discount: " & request.form("LoanDiscount") & " ")
Response.Write("Appraisal Fee: " & request.form("AppraisalFee") & " ")
Response.Write("Credit Report Fee: " & request.form("CreditReportFee") & " ")
Response.Write("Doc Prep Fee: " & request.form("DocPrepFee") & " ")
Response.Write("Underwriting Fee: " & request.form("UnderwritingFee") & " ")
Response.Write("Tax Service Fee: " & request.form("TaxServiceFee") & " ")
Response.Write("Flood Cert. Fee: " & request.form("FloodFee") & " ")
Response.Write("Processing Fee: " & request.form("ProcessingFee") & " ")
Response.Write("Courier Fee: " & request.form("CourierFee") & " ")
Response.Write("Administrative Fee: " & request.form("AdministrativeFee") & " ")
Response.Write("Prepaid Interest: " & request.form("PPInt") & " ")
Response.Write("Homeowner Insurance Premium: " & request.form("InsPrem") & " ")
Response.Write("2 month Ins. Escrow: " & request.form("InsEscrowFee") & " ")
Response.Write("4 month Tax Escrow: " & request.form("TaxEscrow") & " ")
Response.Write("Closing Fee: " & request.form("ClosingFee") & " ")
Response.Write("Lendor Title Policy: " & request.form("LenderTitlePolicy") & " ")
Response.Write("Title Endorsements: " & request.form("TitleEndorse") & " ")
Response.Write("Mailaway: " & request.form("MailaWayExpress") & " ")
Response.Write("Deed Recording Fee: " & request.form("DeedRecFee") & " ")
Response.Write("Mortgage Recording Fee: " & request.form("MortgageRecFee") & " ")
Response.Write("Document Stamps on Mortgage: " & request.form("DocStamps") & " ")
Response.Write("Intangible Tax: " & request.form("IntangibleTax") & " ")
Response.Write("Survey Fee: " & request.form("SurveyFee") & " ")
Response.Write("Termite Inspection: " & request.form("TermiteInsp") & " ")
Response.Write("HOA Transfer: " & request.form("HOATransFeeYES") & " ")
Response.Write("HOA Transfer Fee: " & request.form("HOATransFee") & " ")
Response.Write("HOA Dues per year: " & request.form("HOADues") & " ")
Response.Write("Miscellaneous Fees: " & request.form("MiscFee") & " ")
Response.Write("Seller Paid Closing Costs: " & request.form("SellerPaidCosts") & " ")
Response.Write("Earnest Money Deposit: " & request.form("EarnestMoneyDeposit") & " ")
Response.Write("Estimated Balance Due: " & request.form("Balance") & " ")
%>
</body>
</html>

**chrishirst** · 01-05-2008, 03:19 AM

Sending email with CDOSYS

You need to write the same information into the HTMLBody of the email

**imageproz** · 01-07-2008, 09:36 AM

How do I do that? Any ideas How to get it to a HTML page?

Thanks