<% Dim rs,rs2,sSQL,orderText,custEmail,mailsystem,success,isworldpay,isauthnet,ordGrandTotal,ordID,ordAuthNumber success=false errtext="" ordGrandTotal = 0 Session("couponapply") = "" Set rs = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN alreadygotadmin = getadminsettings() success = false worldpaycallbackerror = false isworldpay = false isauthnet = false isnetbanx = false issecpay = false if Trim(request.form("transStatus"))<>"" then ' WorldPay isworldpay = true transstatus = trim(request.form("transStatus")) data2cbp = "" sSQL = "SELECT payProvData1,payProvData2 FROM payprovider WHERE payProvID=5" rs.Open sSQL,cnn,0,1 acctno = trim(rs("payProvData1")) data2arr = split(trim(rs("payProvData2")&""),"&",2) if UBOUND(data2arr) >= 0 then data2md5 = data2arr(0) if UBOUND(data2arr) > 0 then data2cbp = data2arr(1) rs.Close if data2cbp <> "" then if data2cbp <> request.form("callbackPW") then transstatus="" errormsg = "Callback password incorrect" worldpaycallbackerror = TRUE end if end if if transstatus="Y" then ordID = trim(replace(request.form("cartId"),"'","")) avscode = trim(request.form("AVS")) if avscode<>"" then avscode=avscode&"-" if trim(request.form("wafMerchMessage"))<>"" then avscode = trim(request.form("wafMerchMessage")) & " " & avscode do_stock_management(ordID) sSQL="UPDATE cart SET cartCompleted=1 WHERE cartOrderID="&ordID cnn.Execute(sSQL) sSQL="UPDATE orders SET ordStatus=3,ordAuthNumber='"&replace(avscode&trim(request.form("transId")),"'","")&"' WHERE ordPayProvider=5 AND ordID="&ordID cnn.Execute(sSQL) Call do_order_success(ordID,emailAddr,sendEmail,FALSE,TRUE,TRUE,TRUE) success = true end if elseif Trim(request.form("x_response_code"))<>"" then ' Authorize.net isauthnet = true ordID = trim(replace(request.form("x_ect_ordid"),"'","")) if trim(request.form("x_response_code"))="1" AND ordID<>"" then do_stock_management(ordID) sSQL="UPDATE cart SET cartCompleted=1 WHERE cartOrderID="&ordID cnn.Execute(sSQL) sSQL="UPDATE orders SET ordStatus=3,ordAuthNumber='"&replace(trim(request.form("x_avs_code"))&"-"&trim(request.form("x_auth_code")),"'","")&"' WHERE ordPayProvider=3 AND ordID="&ordID cnn.Execute(sSQL) Call do_order_success(ordID,emailAddr,sendEmail,FALSE,TRUE,TRUE,TRUE) success = true else errormsg = Trim(request.form("x_response_reason_text")) end if elseif Trim(request.form("trans_id"))<>"" then ' Secpay issecpay = true if Trim(request.form("valid"))="true" AND Trim(request.form("auth_code"))<>"" then ordID = trim(replace(request.form("trans_id"),"'","")) do_stock_management(ordID) sSQL="UPDATE cart SET cartCompleted=1 WHERE cartOrderID="&ordID cnn.Execute(sSQL) sSQL="UPDATE orders SET ordStatus=3,ordAuthNumber='" if trim(request.form("cv2avs"))<>"" then sSQL=sSQL & replace(trim(request.form("cv2avs")),"'","")&"-" sSQL=sSQL & trim(replace(request.form("auth_code"),"'",""))&"' WHERE ordPayProvider=9 AND ordID="&ordID cnn.Execute(sSQL) Call do_order_success(ordID,emailAddr,sendEmail,FALSE,TRUE,TRUE,TRUE) success = true else errormsg = Trim(request.form("message")) end if elseif Trim(request.form("netbanx_reference"))<>"" then ' Netbanx isnetbanx = true thereference = Trim(request.form("netbanx_reference")) if Trim(Request.ServerVariables("REMOTE_HOST"))<>"195.224.77.2" then errormsg = "Error: This transaction does not appear to have been initiated by Netbanx" elseif thereference<>"0" AND Trim(request.form("order_id"))<>"" then ordID = trim(replace(request.form("order_id"),"'","")) do_stock_management(ordID) sSQL="UPDATE cart SET cartCompleted=1 WHERE cartOrderID="&ordID cnn.Execute(sSQL) if trim(request.form("houseno_auth"))="Matched" then allchecks = "Y" elseif trim(request.form("houseno_auth"))="Not matched" then allchecks = "N" else allchecks = "X" end if if trim(request.form("postcode_auth"))="Matched" then allchecks = allchecks & "Y" elseif trim(request.form("postcode_auth"))="Not matched" then allchecks = allchecks & "N" else allchecks = allchecks & "X" end if if trim(request.form("CV2_auth"))="Matched" then allchecks = allchecks & "Y" elseif trim(request.form("CV2_auth"))="Not matched" then allchecks = allchecks & "N" else allchecks = allchecks & "X" end if sSQL="UPDATE orders SET ordStatus=3,ordAuthNumber='" & allchecks & "-" & thereference &"' WHERE ordPayProvider=15 AND ordID="&ordID cnn.Execute(sSQL) Call do_order_success(ordID,emailAddr,sendEmail,FALSE,TRUE,TRUE,TRUE) success = true else errormsg = "Transaction Declined" end if end if cnn.Close set rs = nothing set rs2 = nothing set cnn = nothing %>
         <% response.write xxInAssc&" " if isworldpay then response.write "WorldPay" elseif isauthnet then response.write "Authorize.Net" elseif isnetbanx then response.write "Netbanx" elseif issecpay then response.write "SECPay" else response.write "EcommerceTemplates.com" end if %>         
<%=xxTnkStr%>
<% if isworldpay then %>

 

<%=xxTnkWit%>

<% if worldpaycallbackerror then %>
<%=xxThkErr%>

The error report returned by the server was:
<%=errormsg%>

<%=xxCntShp%>

 
<% end if %>

<% if NOT worldpaycallbackerror then if digidownloads=TRUE then response.write "
" noshowdigiordertext = TRUE ' WORLDPAY ONLY : To enable digital downloads, just add a "hash" back into the line below so it looks like this . . . ' ' If you apply an updater, you must repeat this step. %> <% response.write "
" end if %>

<%response.write Replace(orderText,vbCrLf,"
")%>

<% end if %>

<%=xxPlsNt1&" "&xxMerRef&" "&xxPlsNt2%>

 

<% elseif success then %>
<% if digidownloads=TRUE then response.write "
<%=xxThkYou%>
" noshowdigiordertext = TRUE ' To enable digital downloads, just add a "hash" back into the line below so it looks like this . . . ' ' If you apply an updater, you must repeat this step. %> <% response.write "" end if %>
<%response.write Replace(orderText,vbCrLf,"
")%>


<%=xxRecEml%>

<%=xxCntShp%>
<% else %>

 

<%=xxThkErr%>

The error report returned by the server was:
<%=errormsg%>

<%=xxCntShp%>

 
<% end if %>
<%=xxClkBck%>