Link to Paypal on Registration - Posted (5372 Views)
Starting Member
sgoode
Posts: 22
22
I have a need that I have not seen addressed by anybody.
I would like to have my users pay a one year subscription through Paypal when they register. I would like all visitors to be able to see posts but only registered users can post.
I know that I can make the board readable by all but I don't know if anybody has the Paypal capability for registration.
Any help would be appreciated.
Thanks
Steve

<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" /><
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
Advanced Member
Carefree
Posts: 4224
4224
In register.asp, look for the following:
Code:

sub ShowForm()
Response.Write " <form action=""register.asp?mode=DoIt"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & chkString(Request.Form("Refer"),"refer") & """>" & vbNewLine & _
" <table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine
Call DisplayProfileForm
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewLine
Immediately after, add the following (change items in RED to your details):
[code]
Code:

	Response.Write	"<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""your_PayPal_Email_.com"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""Amount.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""Currency"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src="" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">" & vbNewLine & _
" <img alt="" border=""0"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif"" width=""1"" height=""1"">" & vbNewLine & _
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

Turn off automatic validation. When you receive notice of PayPal payment, then validate an account.
Note: Currencies for GB (GBP or EUR).
That should about do it.<
Posted
Starting Member
sgoode
Posts: 22
22
I think I have made the change correctly:

Code:
Call DisplayProfileForm
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewLine
Response.Write "<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""your_PayPal_Email_.com"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""Amount.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""Currency"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src="" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">" & vbNewLine & _
" <img alt="" border=""0"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif"" width=""1"" height=""1"">" & vbNewLine & _
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

end sub

Function IsValidURL(sValidate)

However, it just seems to work like a normal registration i.e. I am not seeing the text with regard to payment and validation.
Maybe I have inserted the code incorrectly?
Cheers
Steve<
Posted
Starting Member
sgoode
Posts: 22
22
Having looked through again, I now have this:

Code:
sub ShowForm()

Response.Write "<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""your_PayPal_Email_.com"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""Amount.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""Currency"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src="" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">" & vbNewLine & _
" <img alt="" border=""0"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif"" width=""1"" height=""1"">" & vbNewLine & _
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

end sub

I have a couple of questions.
Is there anyway I can format the look of the text? At the moment it appears to be Times Roman and laid out a little oddly.
I do not have a Paypal image showing. Should I create a Paypal button and link it in here in place of which piece of code? Does <amount & currency> indicate a variable that I should have set up somewhere or can I replace it with a text amount?
Thanks
Steve<
Posted
Starting Member
sgoode
Posts: 22
22
Actually.........I now have this:

Code:
sub ShowForm()

Response.Write "<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name="cmd" value=""_s-xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""your_PayPal_Email_.com"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""Amount.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""Currency"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type="image" src="https://www.paypal.com/en_GB/i/btn/btn_paynowCC_LG.gif" border="0" name="submit" alt="PayPal - The safer, easier way to pay online.">
" <img alt="" border="0" src="https://www.paypal.com/en_GB/i/scr/pixel.gif" width="1" height="1">
" <input type="hidden" name="encrypted" value="-----BEGIN PKCS7-----MIIHuQYJKoZIhvcNAQcEoIIHqjCCB6YCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCNoWUPl0vFB2XqJ0zkc7DvFhCmPxh1qMi4a/B6w7W+v9jPWCR42uoFvkkFikmr+pMuI8CvuZO6yHfRhvNIX7h1VYdiFWkEQ85xIDPp7MoQatOsBP0PaUfl8ImwnclQ5yFKiBePfpgFytycLMkbBfv4aaoMLt89M9IzPMIJ3E6ilzELMAkGBSsOAwIaBQAwggE1BgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECGBlo6XfF3RpgIIBEB2r57IJi3FPLPhqO/efbc+8sRd5GHdGHsDNON9jWRTe9qIgPdZWz0Mv82jtiPF6UR2LYZnIIkZzOB8bax8YpxzdqYvbeL6LV0zN4DM39d+baQ6kxUiyN8/7FQiCFjp5yvtnq9sNeWy1V8XvxIKMUVYv6/5XtId7AJJIBeCctQkf+wSfLh/NaKHPf2Mt19guSjn2Li8KpsENBlqvhawpdEpTddAG/jJUlkd+EIzZmBluP81LIrcxusLRqq4NAPgqrk/FqZs1rtuWNM9u3cnTsMINZZ9Zj6hfihwps5XV/hewaqvPJj/nMMKICRmM5lfBweINNzuX5WP9Xju0y195P8nuqRzULyojl8nl34zghQLFoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDgwNjA5MTc0NjQxWjAjBgkqhkiG9w0BCQQxFgQUvXPbhvM5jdBK5SYV6UQByNV1UUowDQYJKoZIhvcNAQEBBQAEgYBUZl5tHKZU1mgLK9m8UlxaaS2O15u+uChqUhB4IRwHX9qm1Rk5XLNmJ2Gq98eWK+h/mnUmF7BRQ10s75igpSKFIaLZTveDKbnHHGfaAyLwKFyrXpPAUU54pliEyFDgtoQM4C3hbzItaJ+dEZUXWgMr9uqdYY9ooLtr8PQIWDBlFA==-----END PKCS7-----
">
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

end sub


and I get this error message:

Code:
Microsoft VBScript compilation error '800a0401' 

Expected end of statement

/housing/register.asp, line 718

" <input type=""hidden"" name="cmd" value=""_s-xclick"">" & vbNewLine & _
----------------------------------^

Any ideas?
Thanks

Steve<
Posted
Advanced Member
Carefree
Posts: 4224
4224
Originally posted by sgoode
Actually.........I now have this:

Code:
sub ShowForm()

Response.Write "<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name="cmd" value=""_s-xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""your_PayPal_Email_.com"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""Amount.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""Currency"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type="image" src="https://www.paypal.com/en_GB/i/btn/btn_paynowCC_LG.gif" border="0" name="submit" alt="PayPal - The safer, easier way to pay online.">
" <img alt="" border="0" src="https://www.paypal.com/en_GB/i/scr/pixel.gif" width="1" height="1">
" <input type="hidden" name="encrypted" value="-----BEGIN PKCS7-----MIIHuQYJKoZIhvcNAQcEoIIHqjCCB6YCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCNoWUPl0vFB2XqJ0zkc7DvFhCmPxh1qMi4a/B6w7W+v9jPWCR42uoFvkkFikmr+pMuI8CvuZO6yHfRhvNIX7h1VYdiFWkEQ85xIDPp7MoQatOsBP0PaUfl8ImwnclQ5yFKiBePfpgFytycLMkbBfv4aaoMLt89M9IzPMIJ3E6ilzELMAkGBSsOAwIaBQAwggE1BgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECGBlo6XfF3RpgIIBEB2r57IJi3FPLPhqO/efbc+8sRd5GHdGHsDNON9jWRTe9qIgPdZWz0Mv82jtiPF6UR2LYZnIIkZzOB8bax8YpxzdqYvbeL6LV0zN4DM39d+baQ6kxUiyN8/7FQiCFjp5yvtnq9sNeWy1V8XvxIKMUVYv6/5XtId7AJJIBeCctQkf+wSfLh/NaKHPf2Mt19guSjn2Li8KpsENBlqvhawpdEpTddAG/jJUlkd+EIzZmBluP81LIrcxusLRqq4NAPgqrk/FqZs1rtuWNM9u3cnTsMINZZ9Zj6hfihwps5XV/hewaqvPJj/nMMKICRmM5lfBweINNzuX5WP9Xju0y195P8nuqRzULyojl8nl34zghQLFoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDgwNjA5MTc0NjQxWjAjBgkqhkiG9w0BCQQxFgQUvXPbhvM5jdBK5SYV6UQByNV1UUowDQYJKoZIhvcNAQEBBQAEgYBUZl5tHKZU1mgLK9m8UlxaaS2O15u+uChqUhB4IRwHX9qm1Rk5XLNmJ2Gq98eWK+h/mnUmF7BRQ10s75igpSKFIaLZTveDKbnHHGfaAyLwKFyrXpPAUU54pliEyFDgtoQM4C3hbzItaJ+dEZUXWgMr9uqdYY9ooLtr8PQIWDBlFA==-----END PKCS7-----
">
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

end sub


and I get this error message:

Code:
Microsoft VBScript compilation error '800a0401' 

Expected end of statement

/housing/register.asp, line 718

" <input type=""hidden"" name="cmd" value=""_s-xclick"">" & vbNewLine & _
----------------------------------^

Any ideas?
Thanks

Steve

Yes, I have a few ideas.
Follow instructions. All you need to do is change the items in red to match your details. Cut & paste. You'd be done.
You didn't change any of the three values, instead you added an encrypted value from PayPal which makes the whole routine non-functional. If you want to use the routine as written, you don't need the encrypted bit at all.
If others want to use the code, we need to leave it in variable (plain text) format.<
Posted
Development Team Leader
Classicmotorcycling
Posts: 2085
2085
Yep, you have only 1 set of quotes over name="cmd" in that line:
<input type=""hidden"" name=""cmd"" value=""_s-xclick"">
Then I noticed that you had missed the double quote on a few of the lines, so try this:

Code:

sub ShowForm()

Response.Write "<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_s-xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""your_PayPal_Email_.com"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""Amount.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""Currency"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src=""https://www.paypal.com/en_GB/i/btn/btn_paynowCC_LG.gif"" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">
" <img alt="" border=""0"" src=""https://www.paypal.com/en_GB/i/scr/pixel.gif"" width=""1"" height=""1"">
" <input type=""hidden"" name=""encrypted"" value=""-----BEGIN PKCS7-----MIIHuQYJKoZIhvcNAQcEoIIHqjCCB6YCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCNoWUPl0vFB2XqJ0zkc7DvFhCmPxh1qMi4a/B6w7W+v9jPWCR42uoFvkkFikmr+pMuI8CvuZO6yHfRhvNIX7h1VYdiFWkEQ85xIDPp7MoQatOsBP0PaUfl8ImwnclQ5yFKiBePfpgFytycLMkbBfv4aaoMLt89M9IzPMIJ3E6ilzELMAkGBSsOAwIaBQAwggE1BgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECGBlo6XfF3RpgIIBEB2r57IJi3FPLPhqO/efbc+8sRd5GHdGHsDNON9jWRTe9qIgPdZWz0Mv82jtiPF6UR2LYZnIIkZzOB8bax8YpxzdqYvbeL6LV0zN4DM39d+baQ6kxUiyN8/7FQiCFjp5yvtnq9sNeWy1V8XvxIKMUVYv6/5XtId7AJJIBeCctQkf+wSfLh/NaKHPf2Mt19guSjn2Li8KpsENBlqvhawpdEpTddAG/jJUlkd+EIzZmBluP81LIrcxusLRqq4NAPgqrk/FqZs1rtuWNM9u3cnTsMINZZ9Zj6hfihwps5XV/hewaqvPJj/nMMKICRmM5lfBweINNzuX5WP9Xju0y195P8nuqRzULyojl8nl34zghQLFoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDgwNjA5MTc0NjQxWjAjBgkqhkiG9w0BCQQxFgQUvXPbhvM5jdBK5SYV6UQByNV1UUowDQYJKoZIhvcNAQEBBQAEgYBUZl5tHKZU1mgLK9m8UlxaaS2O15u+uChqUhB4IRwHX9qm1Rk5XLNmJ2Gq98eWK+h/mnUmF7BRQ10s75igpSKFIaLZTveDKbnHHGfaAyLwKFyrXpPAUU54pliEyFDgtoQM4C3hbzItaJ+dEZUXWgMr9uqdYY9ooLtr8PQIWDBlFA==-----END PKCS7-----
"">" & vbNewLine & _
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

end sub
I hope that helps. <
Cheers,

David Greening
Posted
Starting Member
sgoode
Posts: 22
22
Hi Carefree

I guess that was a mixture of my naivety and my inability to read what you had written!
I now have this:

Code:
sub ShowForm()
Response.Write " <form action=""register.asp?mode=DoIt"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & chkString(Request.Form("Refer"),"refer") & """>" & vbNewLine & _
" <table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine
Call DisplayProfileForm
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewLine
Response.Write "<table width=""400"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>This forum requires an annual registration of <amount & currency>.<br>" & vbNewLine & _
"To continue, click: " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""steve@stevegoode.co.uk"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""50.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""£"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src="" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">" & vbNewLine & _
" <img alt="" border=""0"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif"" width=""1"" height=""1"">" & vbNewLine & _
" </form>" & vbNewLine & _
" <td>The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine



end sub

I have placed your second block of code directly after the last element of your first block of code. I have changed the items that are shown in red. However, I now do not seem to call this code when registering. Have I missed something else that you told me to do?
Thanks again in advance.
Steve<
Posted
Advanced Member
Carefree
Posts: 4224
4224
I tested it, it works but wasn't very pretty. Here's a more cosmetic version:

Code:

	Response.Write	"<table width=""100%"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"">This forum requires an annual registration of £50. To continue, click:" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"">" & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"" target=""_blank"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""steve@stevegoode.co.uk"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""50.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""GBP"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src=""https://www.paypalobjects.com/WEBSCR-525-20080606-1/en_US/i/btn/btn_subscribe_SM.gif"" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">" & vbNewLine & _
" <img alt="" border=""0"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif"" width=""1"" height=""1"">" & vbNewLine & _
" </form>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"">The administrator performs manual validation of payment and registration details. When validated, you will receive activation EMail." & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

This should display below your normal registration form. I have the PayPal payment opening in a different page so the member doesn't lose his/her registration details. Can't do much more for them....<
Posted
Advanced Member
Carefree
Posts: 4224
4224
Here's a version which displays the subscription at the top of the page, in a table with the same formatting as the registration table below it.
Code:

	Response.Write	"<table width=""60%"" border=""1"" cellspacing=""0"" cellpadding=""0"" valign=""center"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""50%"" align=""center"" bgColor=""" & strCategoryCellColor & """<font face=""" & strHeadFontFace & """ size=""" & strHeadFontSize & """><br><b>Subscription Forum</b><br> " & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgColor=""" & strPopupTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>This forum requires an annual subscription of £50.<br>To continue, click:" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""> " & vbNewLine & _
" <form action=""https://www.paypal.com/cgi-bin/webscr"" method=""post"" target=""_blank"">" & vbNewLine & _
" <input type=""hidden"" name=""cmd"" value=""_xclick"">" & vbNewLine & _
" <input type=""hidden"" name=""business"" value=""steve@stevegoode.co.uk"">" & vbNewLine & _
" <input type=""hidden"" name=""item_name"" value=""Annual Subscription"">" & vbNewLine & _
" <input type=""hidden"" name=""amount"" value=""50.00"">" & vbNewLine & _
" <input type=""hidden"" name=""no_shipping"" value=""0"">" & vbNewLine & _
" <input type=""hidden"" name=""no_note"" value=""1"">" & vbNewLine & _
" <input type=""hidden"" name=""currency_code"" value=""GBP"">" & vbNewLine & _
" <input type=""hidden"" name=""lc"" value=""GB"">" & vbNewLine & _
" <input type=""hidden"" name=""bn"" value=""PP-SubscribeBF"">" & vbNewLine & _
" <input type=""image"" src=""https://www.paypalobjects.com/WEBSCR-525-20080606-1/en_US/i/btn/btn_subscribe_SM.gif"" border=""0"" name=""submit"" alt=""PayPal - The safer, easier way to pay online."">" & vbNewLine & _
" <img alt="" border=""0"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif"" width=""1"" height=""1"">" & vbNewLine & _
" </form>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgColor=""" & strPopupTableColor & """>The administrator performs manual validation of payment and registration details.<br>When validated, you will receive activation EMail." & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine


This would be placed between the lines:
Code:
sub ShowForm()
Response.Write " <form action=""register.asp?mode=DoIt"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _

I think you'll like this one better.<
Posted
Starting Member
sgoode
Posts: 22
22
Hi Carefree

That looks really good. The only problem that I have is that the Paypal graphic link is broken?

I have just tried this again and now I see the Subscribe button. Not sure what happened before. So please ignore the point above.
Am I able to change the font for the text so that it can all be in Verdana?
Also, is there a way to have the site displayed to all but only registered members posting. I am sure this is possible but I can't seem to work out the combination in the features section?
Sorted it. I am a little stupid. Just turning off enforced registrations is the answer. You still have to be registered to post!blush
Thanks for your help on this so far and not forgetting your patience. bigsmile
Cheers

Steve<
You Must enter a message