<%@ Language=VBScript %> <%Response.Buffer=true%> <% if Request.form("FromDate") <> "" then session("FromDate")=Request.Form("FromDate") session("ToDate")=Request.Form("ToDate") session("CreditCardNo")=Request.Form("CreditCardNo") session("PinNo")=Request.Form("PinNo") session("PhoneNo")=Request.Form("PhoneNo") session("EmailAddress")=Request.Form("EmailAddress") session("IPAddress")=Request.Form("IPAddress") if Request.Form("CustomerID") <> "" then session("CustomerID")=Request.Form("CustomerID") else session("CustomerID")="0" end if end if %>

FRAUD/CHARGEBACK REPORT

Enter search criteria:
From Date: > To Date : > Credit card #: >
PIN # : > Phone #: > Email : >
IP Address : > Customer ID: >
<% if session("FromDate")="" then Response.end response.write "
" Response.write "Sorted by : " select case Request.QueryString("sortcol") case 1 Response.Write " Order Date" case 2 Response.Write " CSR Name" case 3 Response.Write " Order ID" case 4 Response.Write " Order State" case 5 Response.Write " Chargeback Order" case 6 Response.Write " Fraud Order" case 7 Response.Write " Process Date" case 8 Response.Write " Fraud CSR" case 9 Response.Write " Response Text" case 10 Response.Write " Email Address" case 11 Response.Write " IP Address" case 12 Response.Write " Credit Card #" case 13 Response.Write " Expiry Date" case 14 Response.Write " Payment Amount" case 15 Response.Write " Quantity" case 16 Response.Write " Description" case 17 Response.Write " Toll Free #" case 18 Response.Write " PIN #" case 19 Response.Write " Last Name" case 20 Response.Write " First Name" case 21 Response.Write " Customer Since Date" case 22 Response.Write " Phone #" case 23 Response.Write " Address 1" case 24 Response.Write " Address 2" case 25 Response.Write " City" case 26 Response.Write " State" case 27 Response.Write " Postal Code" case 28 Response.Write " Validation Exp Date" case 29 Response.Write " Validation CSR" case 30 Response.Write " Payment Device Validation Date" case 31 Response.Write " Payment Device Validation CSR" case 32 Response.Write " Strike" case 33 Response.Write " Strike points" case 34 Response.Write " Strike Ticket Info" case 35 Response.Write " AVS" case 36 Response.Write " CVV" case 37 Response.Write " Fraud/Chargeback Reason" end select %>   ( Click on any heading to sort by that field )

<% dim cn,rs set cn=server.CreateObject("Adodb.connection") set rs=server.CreateObject("Adodb.Recordset") cn.Open Application("Connection1_ConnectionString") cn.CommandTimeout=600 if Request.QueryString("getdata")=1 then sqlstr="exec rp_Fraudreport '"+session("FromDate")+"','"_ +session("ToDate")+"','"_ +session("CreditCardNo")+"','"_ +session("PinNo")+"','"_ +session("PhoneNo")+"','"_ +session("EmailAddress")+"','"_ +session("IPAddress")+"',"_ +session("CustomerID")+","_ +Request.QueryString("sortcol") 'session("RetrieveData")=false else sqlstr="select * from DataMart.dbo.fraudreport order by " + Request.QueryString("sortcol") end if 'Response.Write sqlstr 'Response.end 'rs.ActiveConnection=cn rs.open sqlstr,cn do while not rs.eof Response.Write "" for i=0 to rs.fields.count-1 Response.Write "" next Response.Write "" rs.MoveNext loop %>
Ord Dt CSR Ord ID State CB FR Proc Dt Fraud CSR Response Text Email IP CCN Exp Dt Amount Qty Product TFN PIN LName FName Cust Dt Phone Addr1 Addr2 City State Zip Val Exp Date Val CSR CCN Val Dt CCN Val CSR Strike Strike points Strike Ticket Info AVS CVV Fraud/Chargeback Reason
" if i=11 then 'creditcardno Response.Write("") Response.Write rs(i) Response.Write("") elseif i=17 then 'pin no Response.Write("") Response.Write rs(i) Response.Write("") elseif i =13 then 'amount field Response.Write formatcurrency(rs(i)) else Response.Write rs(i) end if Response.Write "