| Author |
 Topic  |
|
sgoode
Starting Member
United Kingdom
22 Posts |
 Posted - 06 June 2008 : 07:27:51
|
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" />< |
Edited by - Shaggy on 09 June 2008 04:27:58 |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 06 June 2008 : 21:49:22
|
In register.asp, look for the following:
Immediately after, add the following (change items in RED to your details):
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.<
|
 |
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 09 June 2008 : 13:28:12
|
I think I have made the change correctly:
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< |
|
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 09 June 2008 : 13:34:52
|
Having looked through again, I now have this:
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< |
|
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 09 June 2008 : 13:52:52
|
Actually.........I now have this:
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:
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< |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 09 June 2008 : 16:07:34
|
quote:
Originally posted by sgoode
Actually.........I now have this:
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:
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.< |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 09 June 2008 : 16:07:52
|
Yep, you have only 1 set of quotes over name="cmd" in that line:
quote:
<input type=""hidden"" name="cmd" value=""_s-xclick"">
where as you should have:
quote:
<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:
I hope that helps.
< |
Cheers,
David Greening |
|
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 09 June 2008 : 17:07:13
|
Hi Carefree
I guess that was a mixture of my naivety and my inability to read what you had written!
I now have this:
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< |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 09 June 2008 : 18:48:20
|
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....< |
Edited by - Carefree on 09 June 2008 18:56:12 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 09 June 2008 : 19:31:42
|
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:
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.< |
Edited by - Carefree on 09 June 2008 19:33:26 |
|
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 10 June 2008 : 07:50: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!
Thanks for your help on this so far and not forgetting your patience. 
Cheers
Steve< |
Edited by - sgoode on 10 June 2008 08:24:47 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 10 June 2008 : 17:22:15
|
For the font request:
On the line which refers to headfontface, change the word "head" to the word "default".< |
|
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 11 June 2008 : 10:41:58
|
I tried the change but I didn't seem to have much success. I made the changes here:
sub ShowForm()
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=""" & strDefaultFontFace & """ 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 & _
Was that correct?
Also, how do you tie your annual subscription to a user? i.e. how do you ensure that they pay the next annual subscription when due?
Steve< |
|
|
|
sgoode
Starting Member
United Kingdom
22 Posts |
Posted - 15 August 2008 : 11:52:54
|
I am almost ready to go live.
I still have a broken link to the Paypal graphic. has it been moved to another location?
My other question is still pertinent, how do I ensure that the members only get one year for the subscription?
Thanks
Steve< |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 15 August 2008 : 17:31:09
|
You'll need to include a field in the database to indicate their subscription date, then have that date checked upon login.
Checked PayPal, that graphic has been deleted. I'll get you one that you can store locally.
Edit:  < |
Edited by - Carefree on 15 August 2008 19:27:14 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 15 August 2008 : 22:48:48
|
| |
|
|
|
Topic |
|
Link to Paypal on Registration
