<% 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
%>
Order Confirmation Page - Two Children and It
