<% Option Explicit %> <% Dim iOrderID 'as integer Dim sContactName 'as string Dim sSQL 'as string Dim oConn 'as connection Dim RecordSet 'as record set Dim sBody 'as string '-- iOrderID = Request("oid") IF iOrderID > 0 THEN '-- open database Set oConn = dbOpenConnection(g_DSN) '-- get the contact information sSQL = "SELECT contactfirstname, contactlastname, productid, deliverymethod FROM orders WHERE customerorderid=" & iOrderID Set RecordSet = oConn.Execute(sSQL) IF NOT RecordSet.EOF THEN sContactName = RecordSet(0).Value & " " & RecordSet(1).Value sBody = FormatOrderConfirmation(iOrderID, sContactName, RecordSet(2).Value, RecordSet(3).Value) END IF Set RecordSet = Nothing '-- clean up oConn.Close Set oConn = Nothing END IF %> Romance By You: Order Confirmation

<%= sBody %>

Thank you for your order!

Need to give your gift immediately?
To print a personalized gift announcement, click here.

Don't forget the kids! In our full-length personalized children's novels, kids can play the starring role in some fantastic, fun, amazing adventures. Visit Kids Book By You and take the special kids in your life on a unique journey today!