<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Copyright 2002, 2003 by Robert Aung. '' '' All rights reserved. No part of this work may be '' reproduced, stored, or transmitted in any form, '' without prior written permission. '' '' Neither this page, nor any part of it, may be '' modified, copied, distributed, displayed, reproduced, '' published, licensed, sold, placed on a web site, '' or used to create derivitive works without the '' express written consent of the author. Any use '' of this page is subject to the terms of a license '' agreement with the author. '' '' To obtain a license for this software, contact the '' author at robert.aung@verizon.net. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' dim cn, rs, cmd set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") set cmd = server.CreateObject("ADODB.Command") cn.ConnectionString = connectstring cn.Open if cn.State = 1 then cmd.activeconnection = cn cmd.commandtext = "select * from book_order where book_order_id=? and magic=?" cmd(0) = request.querystring("book_order_id") cmd(1) = request.querystring("magic") set rs.source = cmd rs.open if not (rs.eof and rs.bof) then %> iNEER - International Network for Engineering Education & Research

Fax Payment Billing Details

Please print this form and fill in (or correct) the invoice information. When you are finished, fax the form to (301) 983-3039 (Country Code: 001). Please send an e-mail to ineer@ineer.org indicating that you are using this option.

Shipping Information
Name: <%=rs("firstname")%> <%=rs("lastname")%> 
Position:  
Affiliation: <%=rs("affiliation")%> 
Address: <%=rs("shipaddress")%> 
<%=rs("shipcity")%> <%=rs("shipstate")%> <%=rs("shipzip")%> 
<%=rs("shipcountry")%> 
 
E-mail Address: <%=rs("email")%> 
Telephone Number: <%=rs("phone")%> 
Fax Number:  

Invoice to be Sent to
(if same as above, just note "Same")
Name: <%=rs("billfirstname")%> <%=rs("billlastname")%> 
Position:  
Affiliation: <%=rs("affiliation")%> 
Address: <%=rs("billaddress")%> 
<%=rs("billcity")%> <%=rs("billstate")%> <%=rs("billzip")%> 
<%=rs("billcountry")%> 
 
E-mail Address:  
Telephone Number:  
Fax Number:  
Invoice Payment
Method (check one):
 ___ Fax Credit Card
 ___ Paypal
 ___ Check
 ___ Wire/Bank Transfer

<% else response.write "Invalid order specified." end if else response.write "There was an error connecting to the database server." end if %>