<%@Language=VBScript %> <% Response.Buffer = True %> <% pPageName="Blaze Mobile Daily Deals" pModuleName="dealToday.asp" %> <% Response.Cookies("BlazeDeal")="Y" Set oRS=Server.CreateObject("ADODB.recordset") Set objCmd=Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = "getCurrentDeals" objCmd.CommandType = adCmdStoredProc set oRS = objCmd.Execute 'Check for errors if objconn.Errors.Count > 0 then set objErr = Server.CreateObject("ADODB.RecordSet") For Each objErr In objConn.Errors if objErr.Number <> 0 Then Response.Write "

System Error Description: " & objErr.Description & "

" Response.Write "
The system encountered a problem in processing your request. Please send an email to our " Response.Write "technical support team with the description included in the body of the email." Response.Write " We are sorry for any inconvenience that you're experiencing. We will look into this problem asap and notify you of our status." Response.Write "

Please feel free to contact us if you have any questions. " Response.Write "support@mobilecandydish.com" blnCriticalError = True end if Next Set objErr = Nothing if blncriticalError Then Response.End end if objErr.Close set objErr = Nothing end if if not oRS.EOF then pTitle=oRS("DealShortDescription") & " at blazewallet.com/deals" pDescription=oRS("DealLongDescription") %> <% Response.write "

" Response.write "" Response.write "" Response.Write "" Response.write "" Response.write "" Response.write "" response.write "" response.write "

" & oRS("DealShortDescription") & "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" if oRS("NumOfPurchases")>"49" then response.write "" response.write "" response.write "" end if response.write "" response.write "" response.write "" %> <% response.write "

" & oRS("MerchantName") & " - " & oRS("MerchantCity") & "

" pDealPrice=formatCurrency(oRS("DealPrice"),2) %> <% response.write "

Regular Price
" & FormatCurrency(oRS("RegularPrice"),2) & "

Discount
" & oRS("Discount") & "%

" if oRS("NumOfDays")= 1 then pNumDays=oRS("NumOfDays") & " day" else pNumDays=oRS("NumOfDays") & " days" end if %>

<%= pNumDays %>

<% response.write "

" %>

<%= oRS("NumOfPurchases") %>

<% response.write "

Download Blaze Mobile Wallet

" Response.Write "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" if oRS("DealShortDescription")<>"" then pShortDescription=oRS("DealShortDescription") response.write "" response.write "" response.write "" end if response.write "" response.write "" response.write "" if oRS("WebSite")<>"" then response.write "" response.write "" response.write "" end if response.write "" response.write "" response.write "" if oRS("ContactPhone")<>"" then response.write "" response.write "" response.write "" end if if oRS("DealLongDescription")<>"" then response.write "" response.write "" response.write "" end if if oRS("Terms")<>"" then response.write "" response.write "" response.write "" end if if oRS("Restriction1")<>"" then response.write "" response.write "" response.write "" end if if oRS("Restriction2")<>"" then response.write "" response.write "" response.write "" end if if oRS("Restriction3")<>"" then response.write "" response.write "" response.write "" end if if oRS("Restriction4")<>"" then response.write "" response.write "" response.write "" end if response.write "

" response.write "

" & oRS("DealShortDescription") & "

" & oRS("MerchantName") & "

" & oRS("WebSite") & "

" & oRS("MerchantLocation") & "

Business Phone: " & oRS("ContactPhone") & "

" & oRS("DealLongDescription") & "

" & oRS("Terms") & "

" & oRS("Restriction1") & "

" & oRS("Restriction2") & "

" & oRS("Restriction3") & "

" & oRS("Restriction4") & "

" Response.Write "

" end if %>