DwZone Forum DwZone Forum
Welcome to the DwZone-it Forum
 
  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups  
    RegisterRegister -->   LoginLogin  
PayPal IPN  
DwZone Forum Index -> PayPal IPN

Moderators: Administrators, Moderators 		 Mark all topics read
Hint: For improved responsiveness, use Internet Explorer 4 (or above) with Javascript enabled, choose 'Dynamic' from the View dropdown and hit 'Set Options' to save your changes.
New Topic Search for
 View     Per page     Messages Since 
Messages 11 to 20 of 76 (Total: 29) First |  Prev |  Next |  Last  
 Subject Author Date  
   Re: IPN send email  
View this persons public profile  Gary   9:29 9 Sep 2011  
   Re: IPN send email  
View this persons public profile  Gianluigi   9:41 9 Sep 2011  
   XMLHTTP error on new server  
View this persons public profile  [email protected]   3:43 9 Nov 2008  
   Re:XMLHTTP error on new server  
View this persons public profile  gianluigi   7:39 9 Nov 2008  
   multiple row insert?  
View this persons public profile  [email protected]   13:33 25 Oct 2008  
   Re:multiple row insert?  
View this persons public profile  gianluigi   15:53 25 Oct 2008  
   Re:multiple row insert?  
View this persons public profile  [email protected]   5:01 29 Oct 2008  
   Brilliant extension  
View this persons public profile  [email protected]   10:27 22 Oct 2008  
    Help with Database Update  
View this persons public profile  [email protected]   4:13 28 Jan 2008  
 
Hi Gianluigi,

I'm having difficulty updating the database upon validation. What I'm trying to do is update the column JBAPPPaid to y for the paticular record when verified

The only value that i can is Receiver_Email which I'm guessing is the email account of the PayPal merchant? but it doesn't seem to be working,----

i've attached the code - any help would be appreciated ---

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/recruta2.asp" -->
<!--#include file="../dwzPayPal/PayPalClass.asp" -->
<%Session.Contents.Remove("SITEID")%>
<%Session("SITEID") = "1"%>
<%
Dim PPAdvert__MMColParam
PPAdvert__MMColParam = "0"
If (Request.Form("custom") <> "") Then
PPAdvert__MMColParam = Request.Form("custom")
End If
%>
<%
Dim PPAdvert__MMColParam2
PPAdvert__MMColParam2 = "0"
If (Session("SITEID") <> "") Then
PPAdvert__MMColParam2 = Session("SITEID")
End If
%>
<%
Dim PPAdvert
Dim PPAdvert_cmd
Dim PPAdvert_numRows

Set PPAdvert_cmd = Server.CreateObject ("ADODB.Command")
PPAdvert_cmd.ActiveConnection = MM_recruta2_STRING
PPAdvert_cmd.CommandText = "SELECT JBAID, JBASiteID, JBATitle, JBAPPPaid FROM dbo.JBAdvert WHERE JBAID = ? AND JBASiteID = ? AND JBAPPPaid = 'n'"
PPAdvert_cmd.Prepared = true
PPAdvert_cmd.Parameters.Append PPAdvert_cmd.CreateParameter("param1", 5, 1, -1, PPAdvert__MMColParam) ' adDouble
PPAdvert_cmd.Parameters.Append PPAdvert_cmd.CreateParameter("param2", 5, 1, -1, PPAdvert__MMColParam2) ' adDouble

Set PPAdvert = PPAdvert_cmd.Execute
PPAdvert_numRows = 0
%>
<%
Dim paypal__MMColParam
paypal__MMColParam = "0"
If (Session("SITEID") <> "") Then
paypal__MMColParam = Session("SITEID")
End If
%>
<%
Dim paypal
Dim paypal_cmd
Dim paypal_numRows

Set paypal_cmd = Server.CreateObject ("ADODB.Command")
paypal_cmd.ActiveConnection = MM_recruta2_STRING
paypal_cmd.CommandText = "SELECT JBSSiteID, JBSPPID, JBSPPActive FROM dbo.JBSite WHERE JBSSiteID = ? AND JBSPPActive = 'Y'"
paypal_cmd.Prepared = true
paypal_cmd.Parameters.Append paypal_cmd.CreateParameter("param1", 5, 1, -1, paypal__MMColParam) ' adDouble

Set paypal = paypal_cmd.Execute
paypal_numRows = 0
%>
<%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Version 1.1.2
'*****************************
dim PayPal_IPN
set PayPal_IPN = new dwzPayPal_IPN
PayPal_IPN.init()
'*****************************
%>
<%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Version 1.1.2
'*****************************
PayPal_IPN.SetConnection MM_recruta2_STRING
PayPal_IPN.SetPayPalPage "https://www.paypal.com/cgi-bin/webscr"
PayPal_IPN.SetFieldList "Item_Name;Item_Number;Payment_Status;Mc_Gross;Mc_Currency;Txn_id;Receiver_Email;Payer_Email;custom"
PayPal_IPN.SetLog "false", ""
PayPal_IPN.SetMailOnError ""
PayPal_IPN.SetVerify "false;true;false;false;false", "None;Receiver_Email;None;None;None", "None;paypal:JBSPPID;None;None;None"
PayPal_IPN.AddTransaction "Update", "dbo.JBAdvert", "None", "Verified", "None", "JBAPPPaid_@@_None_@@_Text,''_@@_Y", "JBAID_@@_PayPal: custom_@@_Numeric,Null_@@__@@_="
PayPal_IPN.Execute()
'*****************************
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<%=(paypal.Fields.Item("JBSPPID").Value)%>
</body>
</html>
<%
PPAdvert.Close()
Set PPAdvert = Nothing
%>
<%
paypal.Close()
Set paypal = Nothing
%>
<%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Version 1.1.2
'*****************************
Set PayPal_IPN = nothing
%>



When i test it here http://www.eliteweaver.co.uk/testing/ipntest.php it tells me - Your script is not posting back to us!

Any help is appreciated.

many thanks
 
Reply to this current thread  View this persons public profile  Send Private Message
   Re:Help with Database Update  
View this persons public profile  gianluigi   11:47 28 Jan 2008  
Last Visit: Tuesday 7 May, 2024 9:18 am First |  Prev |  Next |  Last  
 Login
Username:  Password:    
Read Message Read Message   Unread message Unread message
Read message [popular] Read message [popular]   Unread message [popular] Unread message [popular]
Read message [locked] Read message [locked]   Unread message [locked] Unread message [locked]
All times are GMT-2

Jump to: