| |
Nexis
Posts: 5
Score: 0
Joined: 6/15/2005
From:
Status: offline
|
Hi All
Have been trying to figure this one out. How to email an entire asp page as seen on the screen to a client. Below is the script that I am currently using in my invoice page.
I am trying to use CDONTS as it has the capacity to send HTML as a BODY type.
Please could someone have a look at this function and tell me what's up?
If you can help... then THANKS in Advance!!!
<!--#include file="Connections/IMSCentral.asp" -->
<%Response.Expires=-1%>
<%
Dim rsContract
Dim rsClient
Dim rsCompany
Dim rsInvoice
Dim rsContractor
Set rsClient = Server.CreateObject("ADODB.Recordset")
rsClient.CursorType = 2
rsClient.LockType = 3
Set rsContract = Server.CreateObject("ADODB.Recordset")
rsContract.CursorType = 2
rsContract.LockType = 3
rsContract.Open "SELECT * FROM Contract WHERE Contract_ID = "& Request.QueryString("Contract"), conn_IMSCentral_STRING
If NOT rsContract("Agency") = "" then
rsClient.Open "SELECT * FROM Client WHERE Name = '"& rsContract("Agency") &"'", conn_IMSCentral_STRING
Else
rsClient.Open "SELECT * FROM Client WHERE Name = '"& rsContract("Name") &"'", conn_IMSCentral_STRING
End If
Set rsCompany = Server.CreateObject("ADODB.Recordset")
rsCompany.CursorType = 2
rsCompany.LockType = 3
rsCompany.Open "SELECT * FROM Company WHERE Name_full = '"& rsContract("Name_full") &"'", conn_IMSCentral_STRING
Set rsInvoice = Server.CreateObject("ADODB.Recordset")
rsInvoice.Open "SELECT * FROM Invoice WHERE (Date = DateValue('" & formatDate("date", Request.QueryString("Dated")) & "') AND Contract_ID = Clng('"& Request.QueryString("Contract") &"') AND Amount = Clng('"& Request.QueryString("Amnt") &"'))", conn_IMSCentral_STRING
Set rsContractor = Server.CreateObject("ADODB.Recordset")
rsContractor.Open "SELECT * FROM Contractor WHERE Name = '"& rsContract("Contractor_name") &"'", conn_IMSCentral_STRING
%>
<html>
<head>
<title>IMS : Invoice Print Details</title>
<style type="text/css">
<!--
body {
background-image: url(images/IMS_Background_plain.gif);scrollbar-face-color: #610F1D; scrollbar-shadow-color: #484F97; scrollbar-highlight-color: #FFFFFF; scrollbar-track-color: #484F97; scrollbar-arrow-color: #CCCC99; scrollbar-3dlight-color: #000000; scrollbar-darkshadow-color: #000000
}
-->
</style>
<link href="IMS_General.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: underline;
color: #CCCC99;
}
a:active {
text-decoration: none;
}
.style26 {
font-size: 20px;
font-family: Geneva, Arial, Helvetica, sans-serif;
}
.style27 {font-size: 14px; font-family: Geneva, Arial, Helvetica, sans-serif; }
.style28 {font-size: 12px}
.style29 {font-size: 12px; font-family: Geneva, Arial, Helvetica, sans-serif; }
.style36 {color: #FFFFFF}
.style38 {
font-size: 14px;
color: #FFFFFF;
font-family: Geneva, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style41 {
color: #FFCC00;
font-size: 15px;
}
.style42 {
font-size: 15px;
color: #FF9900;
}
-->
</style>
<%
Function emailThis()
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = rsCompany("Email_address")
'Who the e-mail is sent to
objCDOMail.To = rsClient("Payroll_email")
'Set the subject of the e-mail
objCDOMail.Subject = "Invoice from "& rsCompany("Name_full")
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the main body of the e-mail
objCDOMail.Body = Bod
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
End Function
%>
<%
' This function returns a date formatted up correctly for SQL server
' When stuffing date data into sql, I always send data as varchar and sql can do the rest
' With ado, if you use the date data type for the input params you will get problems :)
' NOTE this is robbed from my clsUTLdate VB Class
' Call this with ;
' date = YYYY/MM/DD (varChar(10) in ado)
' datetime = YYYY/MM/DD HH:MM (varChar(16) in ado)
' time = HH:MM (VarChar(5) in ado)
' filenamedate= DD-MM-YYYY (useable as part of a file name)
Function formatDate(formatAs, inputDate)
Dim strDate
Dim strDay
Dim strMonth
Dim strYear
Dim strHour
Dim strMinute
Dim outputDate
Select Case LCase(formatAs)
Case "date"
strDate = FormatDateTime(inputDate, 2)
strDay = Day(strDate)
If Len(strDay) = 1 Then
strDay = "0" & strDay
End If
strMonth = Month(strDate)
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
strYear = DatePart("yyyy", strDate)
outputDate = strYear & "/" & strMonth & "/" & strDay
Case "datetime"
strDate = FormatDateTime(inputDate, 2)
strDay = Day(strDate)
If Len(strDay) = 1 Then
strDay = "0" & strDay
End If
strMonth = Month(strDate)
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
strYear = DatePart("yyyy", strDate)
strHour = Hour(inputDate)
If Len(strHour) = 1 Then
strHour = "0" & strHour
End If
strMinute = Minute(inputDate)
If Len(strMinute) = 1 Then
strMinute = "0" & strMinute
End If
outputDate = strYear & "/" & strMonth & "/" & strDay & " " & strHour & ":" & strMinute
Case "time"
strDate = FormatDateTime(inputDate, 2)
strHour = Hour(inputDate)
If Len(strHour) = 1 Then
strHour = "0" & strHour
End If
strMinute = Minute(inputDate)
If Len(strMinute) = 1 Then
strMinute = "0" & strMinute
End If
outputDate = strHour & ":" & strMinute
Case "filenamedate"
strDate = FormatDateTime(inputDate, 2)
strDay = Day(strDate)
If Len(strDay) = 1 Then
strDay = "0" & strDay
End If
strMonth = Month(strDate)
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
strYear = DatePart("yyyy", strDate)
outputDate = strDay & "-" & strMonth & "-" & strYear
Case Else
'something when wrong so return -1
outputDate = -1
End Select
formatDate = outputDate
End Function
%>
<script language="JavaScript">
<!--
var gAutoPrint = true; // Flag for whether or not to automatically call the print function
function printSpecial()
{
if (document.getElementById != null)
{
var html = '<HTML>\n<HEAD>\n';
if (document.getElementsByTagName != null)
{
var headTags = document.getElementsByTagName("head");
if (headTags.length > 0)
html += headTags[0].innerHTML;
}
html += '\n</HE' + 'AD>\n<BODY>\n';
var printReadyElem = document.getElementById("printReady");
if (printReadyElem != null)
{
html += printReadyElem.innerHTML;
}
else
{
alert("Could not find the printReady section in the HTML");
return;
}
html += '\n</BO' + 'DY>\n</HT' + 'ML>';
var printWin = window.open("","Print","status=no,menubar=yes,scrollbars=yes,resizable=yes,width=800,height=600");
printWin.document.open();
printWin.document.write(html);
printWin.document.close();
if (gAutoPrint)
printWin.print();
}
else
{
alert("Sorry, the print ready feature is only available in modern browsers.");
}
}
//-->
</script>
</head>
<body topmargin="0">
<table width="100%" cellpadding="0" cellspacing="0"><!--DWLayoutTable-->
<tr>
<td width="19" height="30" valign="top"><img src="images/Header_Forms_left.gif" width="19" height="30"></td>
<td width="25" valign="top" background="images/Header_Forms.gif"><!--DWLayoutEmptyCell--> </td>
<td width="39" align="left" valign="middle" nowrap background="images/Header_Forms.gif"><a href="timesheet_add_admin.asp"><img src="images/Back.gif" alt="Back" width="39" height="30" border="0"></a></td>
<td width="226" align="left" valign="middle" background="images/Header_Forms.gif"><a href="timesheet_add_admin.asp"><span class="Header_text style36">go Back</span></a></td>
<td width="100%" valign="middle" background="images/Header_Forms.gif"><div align="center" class="Header_text style36">
<%
If NOT rsContract("Agency") = "" then
Response.Write(rsContract("Agency"))
Else
Response.Write(rsContract("Name"))
End If
%>
would prefer that this Invoice be <%=rsClient("Invoice_method")%> to them.</div></td>
<td width="277" align="right" valign="middle" nowrap background="images/Header_Forms.gif"><span class="style38">...would you like to <span class="style41" onClick="emailThis()">Email</span> -- or -- <a href="javascript:void(printSpecial());"><span class="style42">Print</span></a> </span></td>
<td width="19" valign="top"><img src="images/Header_Forms_right.gif" width="19" height="30"></td>
</tr><tr><td height="1"><img src="images/spacer.gif" alt="" width="17" height="1"></td><td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td><img src="images/spacer.gif" alt="" width="17" height="1"></td>
</tr>
<tr>
<td height="3"><img src="images/spacer.gif" alt="" width="17" height="1"></td>
<td><img src="images/spacer.gif" alt="" width="2" height="1"></td>
<td><img src="images/spacer.gif" alt="" width="37" height="1"></td>
<td><img src="images/spacer.gif" alt="" width="226" height="1"></td>
<td></td>
<td><img src="images/spacer.gif" alt="" width="267" height="1"></td>
<td><img src="images/spacer.gif" alt="" width="17" height="1"></td>
</tr>
</table>
<br><div id="printReady"><div id="emailReady">
<table width="100%" border="0" class="style29"><!--DWLayoutTable-->
<tbody><tr>
<th width="142" height="102" valign="top"><div align="left" class="style26"></div></th>
<th colspan="4" align="center" valign="middle"><span class="style26">INVOICE COPY</span></th>
<td width="141" align="right" valign="top">
<div align="right"><img src="images/Logo.gif" alt="Print Invoice" width="139" height="100" border="0" >
</div></td>
</tr>
<tr>
<td height="86" colspan="2" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0"><!--DWLayoutTable-->
<tbody>
<tr>
<td width="484" height="84" valign="top">
<table width="100%" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tbody>
<tr>
<td width="476">
<%
If NOT rsContract("Agency") = "" then
Response.Write(rsContract("Agency"))
Else
Response.Write(rsContract("Name"))
End If
%><br>
</td>
</tr>
<tr>
<td height="45" valign="top">
<%=Replace(rsClient.Fields.Item("Address"), ",", "<br>")%><br> <%=(rsClient.Fields.Item("Postal_Code"))%></td>
</tr>
</tbody>
</table></td>
</tr></tbody></table>
</td>
<td width="2"></td>
<td colspan="3" align="right"><%=(rsCompany("Name_full"))%><br>
<% If rsCompany("Address_billing") <> "" then %>
<%=Replace(rsCompany.Fields.Item("Address_billing"), ",", "<br>")%><br>
<%=(rsCompany("Postal_code"))%>
<% End If %><br>
E-Mail : <%=(rsCompany("Email_address"))%></td>
</tr>
<tr><td height="20"></td>
<td width="332"></td>
<td></td>
<td colspan="3" align="right" class="style27"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr><td height="50" colspan="2"><!--DWLayoutEmptyCell--> </td>
<td></td>
<td colspan="3"><table width="489" border="0">
<!--DWLayoutTable-->
<tbody><tr><th width="181" height="21"> </th>
<th width="168" align="left" valign="middle" class="style27">
<div align="left">Invoice Number :</div></th>
<td align="right" valign="middle" class="style29">Inv. 000<%=rsInvoice("Invoice_ID")%></td>
</tr>
<tr><th height="21"> </th>
<th align="left" valign="middle"><span class="style27">
</span>
<div align="left" class="style27">Date :</div></th>
<td align="right" valign="middle" class="style29"><%=DateAdd("m", 1, DateValue(rsInvoice("Date")))%></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td height="14"></td>
<td></td>
<td></td>
<td width="184"></td>
<td colspan="2" valign="top"><font size=-3>ALL FIGURES SHOWN ARE IN POUNDS</font></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
<td></td>
<td></td>
<td width="156"></td>
<td></td>
</tr>
</tbody></table>
<hr>
<table border="0" width="100%">
<!--DWLayoutTable-->
<tbody><tr style="font-size: 8pt;">
<td width="836" height="20" align="left" class="style27" Style="Text-Align:left">
For the professional services of <b><%=rsContractor("Title")%> <%=(rsContractor("Name"))%></b>.
</td>
<th width="158" align="right" valign="top" class="style27"><!--DWLayoutEmptyCell--> </th>
</tr>
<tr style="font-size: 8pt;">
<td height="18" align="left" class="style27" Style="Text-Align:left"><br><br></td>
<th align="right" class="style27"><div align="right">Amount</div></th>
</tr>
<tr style="font-size: 9pt;">
<td height="20" align="right" valign="top"><div align="left"><span class="style29">
<%=Request.QueryString("STD")%> x £ <%=rsContract.Fields.Item("Billing_rate")%> / <%=rsContract.Fields.Item("Billing_type")%>
</span> </div></td>
<td align="right" valign="top" class="style29"><%=FormatNumber(CInt(Request.QueryString("STD")) * CInt(rsContract.Fields.Item("Billing_rate")), 2)%>
</td>
</tr>
<%if Request.QueryString("OT") <> 0 then %>
<tr style="font-size: 9pt;">
<td height="20" align="right" valign="top"><div align="left"><span class="style29">
<%=Request.QueryString("OT")%> x £ <%=rsContract.Fields.Item("Billing_rate_2")%> / <%=rsContract.Fields.Item("Billing_type_2")%>
</span></div></td>
<td align="right" valign="top" class="style29"><%=FormatNumber(CInt(Request.QueryString("OT")) * CInt(rsContract.Fields.Item("Billing_rate_2")), 2)%></td>
</tr>
<% end if %>
<% if Request.QueryString("EOT") <> 0 then %>
<tr style="font-size: 9pt;">
<td height="20" align="right" valign="top"><div align="left"><span class="style29">
<%=Request.QueryString("EOT")%> x £ <%=rsContract.Fields.Item("Billing_rate_3")%> / <%=rsContract.Fields.Item("Billing_type_3")%>
</span></div></td>
<td align="right" valign="top" class="style29"><%=FormatNumber(CInt(Request.QueryString("EOT")) * CInt(rsContract.Fields.Item("Billing_rate_3")), 2)%></td>
</tr>
<% end if %>
<tr><td height="17" colspan="2"></td></tr>
<tr><td height="17" colspan="2"></td></tr>
</tbody></table>
</center>
<p class="style27" style="font-size: 9pt;"> </p>
<hr>
<table width="100%" style="font-size: 9pt;">
<!--DWLayoutTable-->
<tbody><tr class="style27">
<td width="121" height="20" align="left" class="style27 style28">Payee :</td>
<td width="659" align="left" valign="top" class="style29"><%=(rsCompany("Name_full"))%></td>
<th width="54" align="left" valign="top" class="Form_Font">NET</th>
<th width="143" class="style29"><div align="right" class="style29">
<div align="right">£ <%=FormatNumber(rsInvoice("Amount"), 2)%></div>
</div></th>
</tr>
<tr class="style27">
<td height="20" align="left" class="style29">VAT Number :</td>
<td align="left" valign="top" class="style29"><%=(rsCompany("Vat_no"))%></td>
<th align="left" valign="top" class="Form_Font">VAT</th>
<th class="style29"><div align="right">£ <%=FormatNumber(rsInvoice("VAT"), 2)%>
</div></th>
</tr>
<tr class="style27">
<td height="20" align="left" class="style29">Account Name :</td>
<td align="left" valign="top" class="style29"><%=(rsCompany("Name_full"))%></td>
<th align="left" valign="top" class="Form_Font">Total</th>
<th class="style29"><div align="right">£
<%=FormatNumber(rsInvoice("Total"), 2)%>
</div></th>
</tr>
<tr class="style27">
<td rowspan="2" class="style29" Style="Text-Align:left">Bank : </td>
<td rowspan="2" valign="top" class="style29" Style="Text-Align:left">
<%=rsCompany("Bank_name") &", SORT CODE : "& rsCompany("Sort_code") &", Account No : "& rsCompany("Account_no")%></td>
<td height="1"></td>
<td align="right" class="style29"></td>
</tr>
<tr class="style27">
<td height="17" valign="top"><img src="images/spacer.gif" alt="" width="56" height="1"></td>
<td align="right" class="style29"></td>
</tr>
<tr><td height="17"></td><td class="style29"></td>
<td> </td>
<td class="style29"></td>
</tr>
</tbody></table></div></div>
</body></html>
<%
Dim Bod
Bod = "<table width=100% border=0 class=style29><tbody><tr>"
Bod = Bod & "<th width=142 height=102 valign=top><div align=left class=style26></div></th>"
Bod = Bod & "<th colspan=4 align=center valign=middle><span class=style26>INVOICE COPY</span></th>"
Bod = Bod & "<td width=141 align=right valign=top>"
Bod = Bod & "<div align=right><img src=http://www.rdd.co.za/images/Logo.gif alt=Print Invoice width=139 height=100 border=0 >"
Bod = Bod & "</div></td></tr><tr><td height=86 colspan=2 valign=top><table width=100% border=0 cellpadding=0 cellspacing=0>"
Bod = Bod & "<tbody><tr><td width=484 height=84 valign=top><table width=100% cellpadding=0 cellspacing=0>"
Bod = Bod & "<tbody><tr><td width=476>"
If NOT rsContract("Agency") = then
Bod = Bod & Response.Write(rsContract("Agency"))
Else
Bod = Bod & Response.Write(rsContract("Name"))
End If
Bod = Bod & "<br></td></tr><tr><td height=45 valign=top>"& Response.Write(Replace(rsClient.Fields.Item("Address"), ",", "<br>"))
Bod = Bod & "<br>"& Response.Write(rsClient.Fields.Item("Postal_Code")) &"</td>"
Bod = Bod & "</tr></tbody></table></td></tr></tbody></table></td><td width=2></td>"
Bod = Bod & "<td colspan=3 align=right>"& Response.Write(rsCompany("Name_full")) &"<br>"
If rsCompany("Address_billing") <> then
Bod = Bod & Response.Write(Replace(rsCompany.Fields.Item("Address_billing"), ",", "<br>")) &"<br>"
Bod = Bod & Response.Write(rsCompany("Postal_code"))
End If
Bod = Bod & "<br>E-Mail : "& Response.Write(rsCompany("Email_address")) &"</td>"
Bod = Bod & "</tr><tr><td height=20></td><td width=332></td><td></td>"
Bod = Bod & "<td colspan=3 align=right class=style27> </td>"
Bod = Bod & "</tr><tr><td height=50 colspan=2> </td>"
Bod = Bod & "<td></td><td colspan=3><table width=489 border=0><tbody><tr><th width=181 height=21> </th>"
Bod = Bod & "<th width=168 align=left valign=middle class=style27><div align=left>Invoice Number :</div></th>"
Bod = Bod & "<td align=right valign=middle class=style29>Inv. 000"& Response.Write(rsInvoice("Invoice_ID")) &"</td>"
Bod = Bod & "</tr><tr><th height=21> </th><th align=left valign=middle><div align=left class=style27>Date :</div></th>"
Bod = Bod & "<td align=right valign=middle class=style29>"
Bod = Bod & Response.Write(DateAdd("m", 1, DateValue(rsInvoice("Date")))) &"</td>"
Bod = Bod & "</tr></tbody></table></td></tr><tr><td height=14></td><td></td><td></td><td width=184></td>"
Bod = Bod & "<td colspan=2 valign=top><font size=-3>ALL FIGURES SHOWN ARE IN POUNDS</font></td>"
Bod = Bod & "</tr><tr><td height=3></td><td></td><td></td><td></td><td width=156></td><td></td></tr>"
Bod = Bod & "</tbody></table><hr><table border=0 width=100%><tbody><tr style=font-size: 8pt;>"
Bod = Bod & "<td width=836 height=20 align=left class=style27 Style=Text-Align:left>"
Bod = Bod & "For the professional services of <b>"& Response.Write(rsContractor("Title")) &" "
Bod = Bod & Response.Write(rsContractor("Name")) &"</b>.</td>"
Bod = Bod & "<th width=158 align=right valign=top class=style27> </th>"
Bod = Bod & "</tr><tr style=font-size: 8pt;><td height=18 align=left class=style27 Style=Text-Align:left><br><br></td>"
Bod = Bod & "<th align=right class=style27><div align=right>Amount</div></th></tr><tr style=font-size: 9pt;>"
Bod = Bod & "<td height=20 align=right valign=top><div align=left><span class=style29>"
Bod = Bod & Response.Write(Request.QueryString("STD")) &" x £ "& Response.Write(rsContract.Fields.Item("Billing_rate") &" / "
Bod = Bod & Response.Write(rsContract.Fields.Item("Billing_type")) &"</span></div></td>"
Bod = Bod & "<td align=right valign=top class=style29>"& Response.Write(FormatNumber(CInt(Request.QueryString("STD")) * CInt(rsContract.Fields.Item("Billing_rate")), 2))
Bod = Bod & "</td></tr>"
If Request.QueryString("OT") <> 0 then
Bod = Bod & "<tr style=font-size: 9pt;><td height=20 align=right valign=top><div align=left><span class=style29>"
Bod = Bod & Response.Write(Request.QueryString("OT")) &" x £ "& Response.Write(rsContract.Fields.Item("Billing_rate_2"))
Bod = Bod &" / "& Response.Write(rsContract.Fields.Item("Billing_type_2"))
Bod = Bod & "</span></div></td><td align=right valign=top class=style29>"
Bod = Bod & Response.Write(FormatNumber(CInt(Request.QueryString("OT")) * CInt(rsContract.Fields.Item("Billing_rate_2")), 2))
Bod = Bod & "</td></tr>"
End If
If Request.QueryString("EOT") <> 0 then
Bod = Bod & "<tr style=font-size: 9pt;><td height=20 align=right valign=top><div align=left><span class=style29>"
Bod = Bod & Response.Write(Request.QueryString("EOT")) &" x £ "& Response.Write(rsContract.Fields.Item("Billing_rate_3"))
Bod = Bod & " / "& Response.Write(rsContract.Fields.Item("Billing_type_3"))
Bod = Bod & "</span></div></td><td align=right valign=top class=style29>"
Bod = Bod & Response.Write(FormatNumber(CInt(Request.QueryString("EOT")) * CInt(rsContract.Fields.Item("Billing_rate_3")), 2))
Bod = Bod & "</td></tr>"
End If
Bod = Bod & "<tr><td height=17 colspan=2></td></tr><tr><td height=17 colspan=2></td></tr>"
Bod = Bod & "</tbody></table></center><p class=style27 style=font-size: 9pt;> </p><hr>"
Bod = Bod & "<table width=100% style=font-size: 9pt;><tbody><tr class=style27>"
Bod = Bod & "<td width=121 height=20 align=left class=style27 style28>Payee :</td>"
Bod = Bod & "<td width=659 align=left valign=top class=style29>"& Response.Write(rsCompany("Name_full")) &"</td>"
Bod = Bod & "<th width=54 align=left valign=top class=Form_Font>NET</th><th width=143 class=style29><div align=right class=style29>"
Bod = Bod & "<div align=right>£ "& Response.Write(FormatNumber(rsInvoice("Amount"), 2)) &"</div>"
Bod = Bod & "</div></th></tr><tr class=style27><td height=20 align=left class=style29>VAT Number :</td>"
Bod = Bod & "<td align=left valign=top class=style29>"& Response.Write(rsCompany("Vat_no")) &"</td>"
Bod = Bod & "<th align=left valign=top class=Form_Font>VAT</th>"
Bod = Bod & "<th class=style29><div align=right>£ &" Response.Write(FormatNumber(rsInvoice("VAT"), 2)) &"</div></th></tr>"
Bod = Bod & "<tr class=style27><td height=20 align=left class=style29>Account Name :</td>"
Bod = Bod & "<td align=left valign=top class=style29>"& Response.Write(rsCompany("Name_full")) &"</td>"
Bod = Bod & "<th align=left valign=top class=Form_Font>Total</th>"
Bod = Bod & "<th class=style29><div align=right>£ "& Response.Write(FormatNumber(rsInvoice("Total"), 2))
Bod = Bod & " </div></th></tr><tr class=style27><td rowspan=2 class=style29 Style=Text-Align:left>Bank : </td>"
Bod = Bod & "<td rowspan=2 valign=top class=style29 Style=Text-Align:left>"
Bod = Bod & Response.Write(rsCompany("Bank_name")) &", SORT CODE : "& Response.Write(rsCompany("Sort_code")) &", Account No : "
Bod = Bod & Response.Write(rsCompany("Account_no")) &"</td><td height=1></td><td align=right class=style29></td></tr>"
Bod = Bod & "<tr class=style27><td height=17 valign=top><img src=images/spacer.gif alt= width=56 height=1></td>"
Bod = Bod & "<td align=right class=style29></td></tr><tr><td height=17></td><td class=style29></td><td> </td>"
Bod = Bod & "<td class=style29></td></tr></tbody></table>"
rsContract.Close
rsClient.Close
rsCompany.Close
rsInvoice.Close
rsContractor.Close
Set rsContract = nothing
Set rsClient = nothing
Set rsCompany = nothing
Set rsInvoice = nothing
Set rsContractor = nothing
%>
|
|
Printable Version
Emailing an entire ASP page through VBScript - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread