The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
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" /><
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" /><
Last edited by Shaggy on 09 June 2008, 04:27
Posted
In register.asp, look for the following:
Immediately after, add the following (change items in RED to your details):
[code]
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.<
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
[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
I think I have made the change correctly:
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<
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
Having looked through again, I now have this:
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<
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
Actually.........I now have this:
and I get this error message:
Any ideas?
Thanks
Steve<
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
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
Yep, you have only 1 set of quotes over name="cmd" in that line:
I hope that helps.
<
<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 subCheers,
David Greening
David Greening
Posted
Hi Carefree
I guess that was a mixture of my naivety and my inability to read what you had written!
I now have this:
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<
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
I tested it, it works but wasn't very pretty. Here's a more cosmetic version:
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....<
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....<
Last edited by Carefree on 09 June 2008, 18:56
Posted
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.
This would be placed between the lines:
I think you'll like this one better.<
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.<
Last edited by Carefree on 09 June 2008, 19:33
Posted
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!
Thanks for your help on this so far and not forgetting your patience.
Cheers
Steve<
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!
Thanks for your help on this so far and not forgetting your patience.
Cheers
Steve<
Last edited by sgoode on 10 June 2008, 08:24
Email Member
Message Member
Post Moderation
FileUpload
If you're having problems uploading, try choosing a smaller image.
Preview post
Send Topic
Loading...