<%@ Language="VBScript"%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
Dim strSql,rsGift,strReferer
strReferer=Request.ServerVariables("HTTP_REFERER")
If Request("giftid")="" then
response.write "Please select gift.
"
response.end
End if
Set rsGift=Server.CreateObject("ADODB.Recordset")
Set rsCart=Server.CreateObject("ADODB.Recordset")
If Session("OrderID") <> "" then
strSql="Select * from tblCart where OrderId= "&Session("OrderID")&" and Giftid="&Request("giftid")&";"
rsCart.open strSql,objConn,2,2
If not rsCart.Eof then
If not IsNull(trim(rsCart("engraveline1"))) then
strline1=Server.HTMLEncode(trim(rsCart("engraveline1")))
Else
strline1=""
End if
IF not IsNull(trim(rsCart("engraveline2"))) then
strline2=Server.HTMLEncode(trim(rsCart("engraveline2")))
Else
strline2=""
End if
End if
rsCart.Close
End if
strSql="Select * from tblGift where GiftID="& Request("giftid") &";"
rsGift.Open strSql,objConn,2,2
If not rsGift.Eof then
%>
Blueolivegifts
Need
Assistance?
If you have any questions about your
order, please feel free to give one
of our customer service representatives
a call at 1-888-555-1212
You can also feel free to email us at info@BlueOliveGifts.com
Satisfaction Guaranteed:
All merchandise comes with a 30-day money
back guarantee. Please click
here for details
<%Else%>
<%End if%>
" alt="<%=trim(rsGift("GiftName"))%>" border="0">
