Forums :: PayPal IPN :: DwZone Forum

DwZone Forum
Welcome to the DwZone-it Forum

FAQ

Memberlist

Usergroups

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.

	Search for
View Per page Messages Since

Messages 31 to 40 of 76 (Total: 29)

First | Prev | Next | Last

Subject Author Date

Re:Confused with error message

[email protected]

13:49 25 Sep 2007

Ok extension installed good. Now new problem.
Have everything on the page to insert a record and send an email.
But it is neither inserting nor sending. have all permissions for the database to insert and mail to send.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="dwzPayPal/PayPalClass.asp" -->
<%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Version 1.1.2
'*****************************
dim PayPal_IPN
set PayPal_IPN = new dwzPayPal_IPN
PayPal_IPN.init()
'*****************************
%>
<!--#include file="Connections/mhp_reg.asp" -->
<%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Setup send mail
' Version 1.1.2
'*****************************
PayPal_IPN.SetMailSend "1"
PayPal_IPN.SetMailParameters "1@[email protected]@__@25@__@joe@__@password@__@ @__@ @__@Joe@__@[email protected]@__@ @__@ @__@Joe@__@[email protected]@__@ @__@ @__@ @__@0@__@1@__@0@__@Thank you@__@us-ascii;20127;US-ASCII"
PayPal_IPN.SetMailSuccess "Test body text on success"
PayPal_IPN.SetMailFailed "Test body text on failure"
PayPal_IPN.SetMailSuccessFile ""
PayPal_IPN.SetMailFailedFile ""
PayPal_IPN.SetMailReplace ""
PayPal_IPN.SetMailImages ""
PayPal_IPN.SetMailAttachments ""
'Send Mail End Code
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_mhp_reg_STRING
Recordset1_cmd.CommandText = "SELECT * FROM dbo.payments" 
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Version 1.1.2
'*****************************
PayPal_IPN.SetConnection MM_mhp_reg_STRING
PayPal_IPN.SetPayPalPage "https://www.sandbox.paypal.com/cgi-bin/webscr"
PayPal_IPN.SetFieldList "Item_Name;Item_Number;Payment_Status;Txn_id;Receiver_Email;Payer_Email;payment_date;first_name;last_name;payment_type;custom"
PayPal_IPN.SetLog "true", "photos/"
PayPal_IPN.SetMailOnError "[email protected]"
PayPal_IPN.SetVerify "true;true;false;false;true", "Payer_Email;Receiver_Email;None;None;Txn_id", "Recordset1:payer_email;Recordset1:receiver_email;None;None;Recordset1:Txn_id"
PayPal_IPN.AddTransaction "Insert", "dbo.payments", "payment_id", "Always", "None", "payment_date_@@_PayPal: payment_date_@@_Text,Null_@@_;_;receiver_email_@@_PayPal: Receiver_Email_@@_Text,Null_@@_;_;payer_email_@@_PayPal: Payer_Email_@@_Text,Null_@@_;_;item_name_@@_PayPal: Item_Name_@@_Text,Null_@@_;_;item_number_@@_PayPal: Item_Number_@@_Integer,Null_@@_;_;payment_status_@@_PayPal: Payment_Status_@@_Text,Null_@@_;_;pending_reason_@@_PayPal: Payment_Status_@@_Text,Null_@@_;_;first_name_@@_PayPal: first_name_@@_Text,Null_@@_;_;last_name_@@_PayPal: last_name_@@_Text,Null_@@_;_;payment_type_@@_PayPal: payment_type_@@_Text,Null_@@_;_;Customer_ID_@@_PayPal: custom_@@_Integer,Null_@@_;_;Txn_id_@@_PayPal: Txn_id_@@_Text,Null_@@_", ""
PayPal_IPN.Execute()
'*****************************
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%><%
'*****************************
' http://www.dwzone-it.com
' PayPal IPN setup
' Version 1.1.2
'*****************************
Set PayPal_IPN = nothing
%>