Help to create HTML Style Invoice

ltleforge · Oct 16, 2003

I need some help to create a HTML style invoice.

I have created a registration page register.asp which posts the info to another asp form that contains the variables necessary to update a database and send an email containing the form data using CDONTS. The register.asp form also contains products and prices.

How can I post this information so that it also creates a HTML invoice to attach to the CDONTS email. If you get what I mean.

This has taken me hours to figure out but still can't

Please please please help!

Chris

mwolf00 · Oct 16, 2003

write the body using HTML and set the body format and mail format as follows...

with objEmail
.From = emailRS("eFrom&quot

.To = emailRS("eTo&quot

if not isNull(emailRS("eCC&quot

) then
.CC = emailRS("eCC&quot

end if
.Subject = emailRS("subject&quot

.Body = emailRS("body&quot

if not isNull(emailRS("value&quot

) then
.Value("Reply-To&quot

=emailRS("value&quot

end if
.bodyFormat = 0 'HTML'
.mailFormat = 0 'MIME Format'
.send
end with

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook (No, I'm not Rick)

ltleforge · Oct 16, 2003

Thanks for your comment. Its not the writing of an email object I have trouble with but how to compile an invoice in html format and send it as an attachment. Where can it get its values from based on what the person has selected in the checkboxes.

chinnababu · Oct 20, 2003

Here you go, I am giving all the code,
from here you have to improve,add.
As is it is working fine.

from: chinnababureddy@hotmail.com
--------------------------------------

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Invoice</title>
</head>

<body>
<% if request.form("company&quot

= "" then%>
<form action="invoice.asp" method="post">
<table>
<tr>
<td>Comany Name</td>
<td><input type="text" name="company" value="your company"></td>
</tr>
<tr>
<td>Email</td>
<td><input type="text" name="email" value="chinnababureddy@hotmail.com"></td>
</tr>
<tr>
<td>Amount</td>
<td><input type="text" name="amount" value="10000"></td>
</tr>
<tr>
<td> </td>
<td><input type="reset" value="Reset"> <input type="submit"
value="Submit"></td>
</tr>
</table>
</form>

<% else %>

<% company=request.form("company&quot

%>
<% response.write "Company - " & company %>
<br>
<% email=request.form("email&quot

%>
<% response.write "Email - " & email %>
<br>
<% amount=request.form("amount&quot

%>
<% response.write "Amount - " & amount %>
<br>
<% response.write "Email has been sent out with attachment." %>
<br>
<%

Const ForReading = 1, ForWriting = 2, ForAppending = 8
dim strFileName, objFSO, objMenuPage

Set objFSO = CreateObject("Scripting.FileSystemObject&quot

strFileName = "c:\temp\invoice.htm"
Set objMenuPage = objFSO.createtextFile(strFileName, forWriting, True)

'write the HTML page
objMenuPage.WriteLine "<html><head><title>Invoice</title></title></head>"
objMenuPage.WriteLine "<body><b><center>ASP - Invoice<br><hr color='blue' width='100%' size='1'></center></b>"
objMenuPage.WriteLine Now()
objMenuPage.WriteLine "<br>"
objMenuPage.WriteLine "<br>"
objMenuPage.WriteLine "Company - " & company
objMenuPage.WriteLine "<br>"
objMenuPage.WriteLine "Email - " & email
objMenuPage.WriteLine "<br>"
objMenuPage.WriteLine "Amount - " & amount
objMenuPage.WriteLine "<br>"
objMenuPage.WriteLine "</body></html>"
objMenuPage.Close
%>

<%

Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail&quot

objMail.From = "webserver"
objMail.Subject = "Your Invoice"
objMail.AttachFile("c:\temp\invoice.htm&quot

objMail.To = email
objMail.Body = "See attachment, your invoice."
objMail.Send

set objMail = nothing
%>

<% end if %>

</body>
</html>

ltleforge · Oct 21, 2003

I tried the code and I keep getting a compilation error. Do you think it might be a good idea if I email the code to you to have a look. Just so you can get an idea of what I am trying to achieve

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Help to create HTML Style Invoice

ltleforge

Technical User

mwolf00

Programmer

ltleforge

Technical User

chinnababu

IS-IT--Management

ltleforge

Technical User

Similar threads

Part and Inventory Search

Sponsor