<%
strId = session("UpgradeId")
'Response.Write strId
' Create a recordset object to store specific table information
Set objRS = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From REListing where REListingId=" & strId
'Set the recordset object equal to the SQL query string
objRS.Open SQL, objADO, 1, 3
objrs("AdType") = "1"
objRS.Update
%>
PAYMENT SUCCESSFUL
Your payment to upgrade your standard listing to a featured listing for $<%= strUpgradeAdCost %> has been received.
The selected listing has been upgraded automatically for you.