Link to Paypal on Registration
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/67214?pagenum=1
05 November 2025, 02:12
Topic
sgoode
Link to Paypal on Registration
06 June 2008, 07:27
Link to Paypal on Registration
06 June 2008, 07:27
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" /><
Replies ...
Carefree
06 June 2008, 21:49
06 June 2008, 21:49
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.<
sgoode
09 June 2008, 13:28
09 June 2008, 13:28
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<
sgoode
09 June 2008, 13:34
09 June 2008, 13:34
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<
sgoode
09 June 2008, 13:52
09 June 2008, 13:52
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<
Carefree
09 June 2008, 16:07
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.<
09 June 2008, 16:07
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.<
Classicmotorcycling
09 June 2008, 16:07
09 June 2008, 16:07
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 sub
sgoode
09 June 2008, 17:07
09 June 2008, 17:07
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<
Carefree
09 June 2008, 18:48
09 June 2008, 18:48
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....<
Carefree
09 June 2008, 19:31
09 June 2008, 19:31
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.<
sgoode
10 June 2008, 07:50
10 June 2008, 07:50
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<
Carefree
10 June 2008, 17:22
10 June 2008, 17:22
For the font request:
On the line which refers to headfontface, change the word "head" to the word "default".<
On the line which refers to headfontface, change the word "head" to the word "default".<
sgoode
11 June 2008, 10:41
11 June 2008, 10:41
I tried the change but I didn't seem to have much success. I made the changes here:
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<
Code:
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
15 August 2008, 11:52
15 August 2008, 11:52
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<
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
15 August 2008, 17:31
15 August 2008, 17:31
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:
<
Edit:
<
Carefree
15 August 2008, 22:48
15 August 2008, 22:48
thermal_seeker
20 January 2010, 02:22
20 January 2010, 02:22
I'm looking for the code that checks the subscription date on login.. can you point me in the right direction please?
Carefree
06 December 2010, 16:34
06 December 2010, 16:34
I had forgotten this thread, someone pointed out that I never finished it LOL.
Code to check subscription date: Save the following as "dbs_PayPal.asp", then run it from admin console:
In "inc_header.asp":
In "pop_profile.asp":
In "members.asp":
In "inc_profile.asp":
Code to check subscription date: Save the following as "dbs_PayPal.asp", then run it from admin console:
Code:
PayPal Date 1.0
[ALTER]
MEMBERS
ADD#M_PAYPALDATE#VARCHAR(8)#NULL#
[END]
In "inc_header.asp":
Code:
Look for the following lines (appx 197-200):
if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then
chkCookie = 1
mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
chkCookie = 0
After them, insert the following:
' ########## PayPal Mod ##########
dim PayLev
PayLev = 1
strSql = "SELECT M_NAME, M_PAYPALDATE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME= '" & ChkString(strDBNTUserName, "SQLString") & "'"
strSql = strSql & " AND M_PAYPALDATE > '" & DatetoStr(strForumTimeAdjust) & "'"
set rsSponsor = my_Conn.Execute (strSql)
if rsSponsor.EOF or rsSponsor.BOF then
strPaid = "<font color=""red""><b>expired or not paid.</b></font>"
PayLev = 0
else
strPaid = "<font color=""green""><b>current.</b></font>"
rsSponsor.Close
end if
set rsSponsor = nothing
Response.Write "<table align=""center"" width=""50%"" border=""0"" cellspacing=""2"" cellpadding=""4"" bgcolor=""" & strPageBGColor & """>" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center"" width=""100%"" bgcolor=""" & strPageBGColor & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strForumFontColor & """>PayPal subscription to this board is required. Your subscription is : " & strPaid & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
if PayLev = 0 then
MemberID = 0
strDBNTUserName = ""
strLoginStatus = 0
Call ClearCookies()
Response.Write "<meta http-equiv=""Refresh"" content=""5; URL=login.asp"">" & vbNewLine
end if
' ######## PayPal Mod End ########
In "pop_profile.asp":
Code:
Look for the following line (appx 1707):
strSql = strSql & ", M_LEVEL = " & cLng("0" & Request.Form("Level"))
After it, insert the following:
' ########## PayPal Mod ##########
if mLev > 3 and len(Request.Form("PAYPALDATE")) > 0 then
strSql = strSql & ", M_PAYPALDATE = '" & left(ChkString(Request.Form("PAYPALDATE"), "SQLString"),8) & "'"
end if
' ########## PayPal Mod End ##########
Look for the following line (appx 1339):
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"SQLString") & "', "
After it, insert the following:
' ########## PayPal Mod ##########
if mLev > 3 and len(Request.Form("PAYPALDATE")) > 0 then
strSql = strSql & " M_PAYPALDATE = '" & left(ChkString(Request.Form("PAYPALDATE"), "SQLString"),8) & "', "
end if
' ########## PayPal Mod End ##########
Look for the following line (appx 907):
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY"
After it, insert the following:
' ########## PayPal Mod ##########
strsql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PAYPALDATE"
' ########## PayPal Mod End ##########
Look for the following line (appx 817):
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY"
After it, insert the following:
' ########## PayPal Mod ##########
strsql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PAYPALDATE"
' ########## PayPal Mod End ##########
In "members.asp":
Code:
Look for the following lines (appx 462-464):
if mlev = 4 or mlev = 3 then
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastHereDate,"",false) & "</font></td>" & vbNewLine
end if
After them, insert the following:
' ########## PayPal Mod ##########
if mlev > 3 then
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>"
Response.Write ChkDate(Members_MemberPayPalDate,"",false)
Response.Write "</font></td>" & vbNewLine
end if
' ########## PayPal Mod End ##########
Look for the following line (appx 389):
Members_MemberCountry = arrMemberData(mM_COUNTRY, iMember)
After it, insert the following:
' ########## PayPal Mod ##########
Members_MemberPayPalDate = arrMemberData(mM_PAYPALDATE, iMember)
' ########## PayPal Mod End ##########
Look for the following line (appx 367):
mM_COUNTRY = 5
After it, insert the following, and renumber consecutive items appropriately:
' ########## PayPal Mod ##########
mM_PAYPALDATE = 6
' ########## PayPal Mod End ##########
Look for the following lines (appx 348-352):
if mlev = 4 or mlev = 3 then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method="
if Request.QueryString("method") = "lastheredatedesc" then Response.Write("lastheredateasc") else Response.Write("lastheredatedesc")
Response.Write """" & dWStatus("Sort by Last Visit Date") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Visit</font></b></a></td>" & vbNewLine
end if
After them, insert the following:
' ########## PayPal Mod ##########
if mlev > 3 then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method="
if Request.QueryString("method") = "PayPaldate" then Response.Write("PayPaldate") else Response.Write("PayPaldate")
Response.Write """" & dWStatus("Sort by PayPal Date") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Date Paid</font></b></a></td>" & vbNewLine
end if
' ########## PayPal Mod End ##########
Look for the following lines (appx 185-186):
case "countrydesc"
strSql4 = " ORDER BY M_COUNTRY DESC, M_NAME ASC"
After them, insert the following:
' ########## PayPal Mod ##########
case "PayPaldateasc"
strSql4 = " ORDER BY M_PAYPALDATE ASC, M_NAME ASC"
case "PayPaldatedesc"
strSql4 = " ORDER BY M_PAYPALDATE DESC, M_NAME ASC"
' ########## PayPal Mod End ##########
Look for the following lines (appx 107 AND 145):
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
Change them to say:
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_PAYPALDATE, M_HOMEPAGE, "
In "inc_profile.asp":
Code:
Look for the following lines (appx 628-631):
Response.Write ">No</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
After them, insert the following:
' ########## PayPal Mod ##########
if Request.Form("Method_Type") = "Modify" or _
Request.Form("Method_Type") = "goModify" or _
Request.Form("Method_Type") = "goEdit" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=right valign=""top"" nowrap>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>PayPal Mod: </b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top""> " & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor& """ align=right valign=""top"" nowrap>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Paid Date:</b><br><small>eg: YYYYMMDD</small>" & vbNewline & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
" <input name=""PAYPALDATE"" size=""8"" value=""" & rs("M_PAYPALDATE") & """>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
' ########## PayPal Mod End ##########
thermal_seeker
08 December 2010, 17:04
08 December 2010, 17:04
I'm getting this error:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/Forum/inc_header.asp, line 226
"<meta http-equiv=""Refresh"" content=""2; URL="login.asp""">" & vbNewLine
------------------------------------------------^
Dave
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/Forum/inc_header.asp, line 226
"<meta http-equiv=""Refresh"" content=""2; URL="login.asp""">" & vbNewLine
------------------------------------------------^
Dave
Classicmotorcycling
10 December 2010, 04:31
10 December 2010, 04:31
Change the line to read:
That should fix it..
Code:
"<meta http-equiv=""Refresh"" content=""2; URL=""login.asp"""">" & vbNewLine
That should fix it..
Jezmeister
10 December 2010, 07:16
10 December 2010, 07:16
Originally posted by ClassicmotorcyclingTwo "s would cause it to read as the end of the content...erm... content... anyway the above will work :P
Change the line to read:Code:"<meta http-equiv=""Refresh"" content=""2; URL='login.asp'"">" & vbNewLine
That should fix it..
thermal_seeker
10 December 2010, 11:23
10 December 2010, 11:23
Thanks guys.
The first one brought up an error and I had to remove the ...for the second one to work.
However there is still a problem. Upon login the date should be checked and if it is within the membership period everything should be normal. If the date has passed (membership has expired) it should refresh the page back to login.asp. It appears that a check on the date isnt being made and the page is just refreshing (ie default.asp) every 2 seconds.
Dave
The first one brought up an error and I had to remove the ...
Code:
' ########## PayPal Mod End ##########
However there is still a problem. Upon login the date should be checked and if it is within the membership period everything should be normal. If the date has passed (membership has expired) it should refresh the page back to login.asp. It appears that a check on the date isnt being made and the page is just refreshing (ie default.asp) every 2 seconds.
Dave
Carefree
10 December 2010, 11:32
10 December 2010, 11:32
I fixed the routine for "inc_header.asp" above. Replace it and it'll be solved.
thermal_seeker
10 December 2010, 12:34
10 December 2010, 12:34
Thanks Carefree
No errors this time but the page still refreshes every 2 seconds (default.asp) and doesn't refresh to login.asp regardless of what date has been entered.
No errors this time but the page still refreshes every 2 seconds (default.asp) and doesn't refresh to login.asp regardless of what date has been entered.
Carefree
10 December 2010, 13:37
10 December 2010, 13:37
I added four lines to be sure variables are deleted. I also changed the background color to match the page and extended the time displayed so the user can see why the redirect is happening.
thermal_seeker
10 December 2010, 14:19
10 December 2010, 14:19
it's looking good now Carefree.
I'll just have some dinner and have a thorough test.
One thing I did notice. Is it possible to have the date format changed from yyyy/mm/dd (in pop profile)to dd/mm/yyyy ??
Dave
I'll just have some dinner and have a thorough test.
One thing I did notice. Is it possible to have the date format changed from yyyy/mm/dd (in pop profile)to dd/mm/yyyy ??
Dave
thermal_seeker
10 December 2010, 16:50
10 December 2010, 16:50
I'm getting an error trying to enter the date in pop profile.
Microsoft OLE DB Provider for SQL Server error '80040e57'
Arithmetic overflow error converting expression to data type nvarchar.
/Forum/pop_profile.asp, line 1943
Dave
Microsoft OLE DB Provider for SQL Server error '80040e57'
Arithmetic overflow error converting expression to data type nvarchar.
/Forum/pop_profile.asp, line 1943
Code:
strSql = strSql & ", M_ALLOWEMAIL = " & cLng(Request.Form("allowemail"))
end if
end if
strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))
my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords
if ChkString(Request.Form("Level"),"") = "1" then
'## Forum_SQL - Remove the member from the moderator table
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))Dave
Carefree
10 December 2010, 16:59
10 December 2010, 16:59
Originally posted by thermal_seekerYes, it is possible. But no slashes should be included - just YYYYMMDD format. If you want to enter it as DD/MM/YYYY, I can write a routine to convert it.
it's looking good now Carefree.
I'll just have some dinner and have a thorough test.
One thing I did notice. Is it possible to have the date format changed from yyyy/mm/dd (in pop profile)to dd/mm/yyyy ??
Dave
Carefree
10 December 2010, 17:01
I'm assuming you were still including slashes - which tells the computer to DIVIDE ....
10 December 2010, 17:01
Originally posted by thermal_seeker
I'm getting an error trying to enter the date in pop profile.
Microsoft OLE DB Provider for SQL Server error '80040e57'
Arithmetic overflow error converting expression to data type nvarchar.
/Forum/pop_profile.asp, line 1943Code:strSql = strSql & ", M_ALLOWEMAIL = " & cLng(Request.Form("allowemail"))
end if
end if
strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))
my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords
if ChkString(Request.Form("Level"),"") = "1" then
'## Forum_SQL - Remove the member from the moderator table
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))
Dave
I'm assuming you were still including slashes - which tells the computer to DIVIDE ....
thermal_seeker
10 December 2010, 17:20
10 December 2010, 17:20
Just tried without the slashes and still the same error :(
Dave
Dave
thermal_seeker
10 December 2010, 17:36
Only if you have time. You have been extremely helpful and I really don't want to put you to any trouble.
Dave
10 December 2010, 17:36
Originally posted by thermal_seekerYes, it is possible. But no slashes should be included - just YYYYMMDD format. If you want to enter it as DD/MM/YYYY, I can write a routine to convert it.
it's looking good now Carefree.
I'll just have some dinner and have a thorough test.
One thing I did notice. Is it possible to have the date format changed from yyyy/mm/dd (in pop profile)to dd/mm/yyyy ??
Dave
Only if you have time. You have been extremely helpful and I really don't want to put you to any trouble.
Dave
thermal_seeker
10 December 2010, 18:02
10 December 2010, 18:02
Is this a clue?
Microsoft OLE DB Provider for SQL Server error '80040e14'
There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
/Forum/register.asp, line 749
Microsoft OLE DB Provider for SQL Server error '80040e14'
There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
/Forum/register.asp, line 749
Code:
strSql = strSql & ", 1"
strSql = strSql & ", '" & ChkString(Request.Form("Avatar_URL"),"SqlString") & "'"
strSql = strSql & ")"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if strEmail = "1" and strEmailVal = "1" then
'Do Nothing
else
Carefree
10 December 2010, 19:26
10 December 2010, 19:26
Post a link to your "register.asp" in .txt format for us to see.
I decided to put some working files on SnitzBitz.
Read the txt file for configuration instructions.
I decided to put some working files on SnitzBitz.
Read the txt file for configuration instructions.
thermal_seeker
11 December 2010, 04:36
11 December 2010, 04:36
OK scratch all the error problems... I seem to now be error free 
Now, a question...
Is it possible to have the date box in pop_profile_pending so that the subscription end date could be entered prior to approving a member??
Dave
Now, a question...
Is it possible to have the date box in pop_profile_pending so that the subscription end date could be entered prior to approving a member??
Dave
thermal_seeker
11 December 2010, 09:37
11 December 2010, 09:37
I spoke too soon...
Microsoft OLE DB Provider for SQL Server error '80040e14'
There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
/Forum/register.asp, line 749
Also even though the town/city and county/state boxes are filled in, I get an warning saying they are not, yet modifying a member profile no warning even if the boxes are empty.
Pop_Profile.txt
Register.txt
Dave
Microsoft OLE DB Provider for SQL Server error '80040e14'
There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
/Forum/register.asp, line 749
Also even though the town/city and county/state boxes are filled in, I get an warning saying they are not, yet modifying a member profile no warning even if the boxes are empty.
Pop_Profile.txt
Register.txt
Dave
Carefree
11 December 2010, 09:55
No. There would be no member there to edit. The program doesn't look at pending member table, there would be no need.
11 December 2010, 09:55
Originally posted by thermal_seeker
OK scratch all the error problems... I seem to now be error free
Now, a question...
Is it possible to have the date box in pop_profile_pending so that the subscription end date could be entered prior to approving a member??
Dave
No. There would be no member there to edit. The program doesn't look at pending member table, there would be no need.
Carefree
11 December 2010, 10:02
Your register.txt file has nothing from this mod in it, so it's not the culprit. In pop_profile.asp, you didn't include the upload quota in the section of code ending at line 973.
11 December 2010, 10:02
Originally posted by thermal_seeker
I spoke too soon...
Microsoft OLE DB Provider for SQL Server error '80040e14'
There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
/Forum/register.asp, line 749
Also even though the town/city and county/state boxes are filled in, I get an warning saying they are not, yet modifying a member profile no warning even if the boxes are empty.
Pop_Profile.txt
Register.txt
Dave
Your register.txt file has nothing from this mod in it, so it's not the culprit. In pop_profile.asp, you didn't include the upload quota in the section of code ending at line 973.
thermal_seeker
11 December 2010, 10:35
I've just compared pop_profile against the downloaded one from snitzbitz and I can't see anything missing
I understand now... It never has had the upload quota there..
11 December 2010, 10:35
I understand now... It never has had the upload quota there..
Carefree
11 December 2010, 14:27
11 December 2010, 14:27
Post a link to your "inc_profile.asp" in .txt format. That's the only place left to look.
thermal_seeker
11 December 2010, 15:10
11 December 2010, 15:10
inc_profile.txt
I have installed the only backup I have (thanks to the neighbour torching my shed!) which was a couple of mods ago and the problem still persists. What I find frustrating is I did a test register this morning without a problem.
Dave
I have installed the only backup I have (thanks to the neighbour torching my shed!) which was a couple of mods ago and the problem still persists. What I find frustrating is I did a test register this morning without a problem.
Dave
Carefree
11 December 2010, 16:26
11 December 2010, 16:26
The "inc_profile.asp" link you provided doesn't have the PayPal mod in it, either. You cannot ignore parts of the mod and install others, it won't work that way.
Here's your file with the mod added:
Here's your file with the mod added:
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
Sub DisplayProfileForm
on error resume next
strMode = Request.QueryString("mode")
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" valign=""top"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPageBGColor & """ align=""center""" & strColSpan & "><p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>All Fields marked with <font size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>*</font> are required</b>"
if lcase(strEmail) = "1" and strEmailVal = "1" then
if strMode = "Register" then
Response.Write("<br /><small>To complete your registration, you need to have a valid e-mail address.</small>")
else
if strMode <> "goModify" then
Response.Write("<br /><small>If you change your e-mail address, a confirmation e-mail will be sent to your new address.<br />Please make sure it is a valid address.</small>")
else
Response.Write("<br /><small>If you change the e-mail address, a confirmation e-mail will be sent to the new address.<br />Please make sure it is a valid address.</small>")
end if
end if
end if
Response.Write "</font></p></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPageBGColor & """ align=""left"" valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""80%"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <td width=""50%"" bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Contact Info </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """>" & vbNewLine & _
" <input type=""hidden"" name=""Email2"" value="""
if strMode <> "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "Register" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email3"" size=""25"" maxLength=""50"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Allow Forum Members<br />to Send you E-Mail?: </font></b></td>" & vbNewLine
if strMode = "Register" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"""
if rs("M_RECEIVE_EMAIL") <> "0" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""0"""
if rs("M_RECEIVE_EMAIL") = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Initial IP: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strIPLookup & ChkString(rs("M_IP"), "display") & """ target=""_blank"">" & ChkString(rs("M_IP"), "display") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Last IP: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strIPLookup & ChkString(rs("M_LAST_IP"), "display") & """ target=""_blank"">" & ChkString(rs("M_LAST_IP"), "display") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strAIM = "1" then
Response.Write " <tr>" & vbNewLine
if strReqAIM = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> AIM: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""AIM"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" then
Response.Write " <tr>" & vbNewLine
if strReqICQ = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> ICQ: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" then
Response.Write " <tr>" & vbNewLine
if strReqMSN = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> MSN: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""MSN"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strSKYPE = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>SKYPE: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input class=newlogin name=""SKYPE"" size=""25"" maxLength=""150"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_SKYPE"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write " <tr>" & vbNewLine
if strReqYAHOO = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Yahoo!: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Yahoo!: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""YAHOO"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if (strHomepage + strFavLinks) > 0 then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
" <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Links </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strHomepage = "1" then
Response.Write " <tr>" & vbNewLine
if strReqHomepage = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Homepage: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Homepage: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
end if
if strMode <> "Register" then
if ChkString(rs("M_HOMEPAGE"), "display") <> " " and lcase(rs("M_HOMEPAGE")) <> "http://" then Response.Write(rs("M_HOMEPAGE")) else Response.Write("http://") end if
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strFavLinks = "1" then
Response.Write " <tr>" & vbNewLine
if strReqFavLinks = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Cool Links: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link1"" size=""25"" maxLength=""255"" value="""
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Cool Links: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link1"" size=""25"" maxLength=""255"" value="""
end if
if strMode <> "Register" then
if rs("M_LINK1") <> " " and lcase(rs("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link2"" size=""25"" maxLength=""255"" value="""
if strMode <> "Register" then
if rs("M_LINK2") <> " " and lcase(rs("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if strPicture = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
" <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Picture</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strReqPicture = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Picture URL:</br><small>(please note; This is for a picture of yourself)</small> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Photo_URL"" size=""25"" maxLength=""255"" value="""
else
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Picture URL:</br><small>(please note; This is for a picture of yourself)</small> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Photo_URL"" size=""25"" maxLength=""255"" value="""
end if
if strMode <> "Register" then
if rs("M_PHOTO_URL") <> " " and lcase(rs("M_PHOTO_URL")) <> "http://" then Response.Write(ChkString(rs("M_PHOTO_URL"), "displayimage")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
%>
<!--#INCLUDE FILE="inc_avatar.asp" -->
<%
if (strBio + strHobbies + strLNews + strQuote) > 0 then
if strMode <> "Register" then
strMyHobbies = rs("M_HOBBIES")
strMyLNews = rs("M_LNEWS")
strMyQuote = rs("M_QUOTE")
strMyBio = rs("M_BIO")
else
strMyHobbies = ""
strMyLNews = ""
strMyQuote = ""
strMyBio = ""
end if
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>More About Me</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strHobbies = "1" then
Response.Write " <tr>" & vbNewLine
if strReqHobbies = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Hobbies: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Hobbies: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""Hobbies"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyHobbies)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strLNEWS = "1" then
Response.Write " <tr>" & vbNewLine
if strReqLNEWS = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Latest News: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Latest News: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""LNews"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyLNews)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strQuote = "1" then
Response.Write " <tr>" & vbNewLine
if strReqQuote = "1" then
Response.Write " <td bgcolor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Favorite Quote: </font></b></td>" & vbNewLine
else
Response.Write " <td bgcolor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Favorite Quote: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""Quote"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyQuote)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strBio = "1" then
Response.Write " <tr>" & vbNewLine
if strReqBio = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Bio: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Bio: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""Bio"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyBio)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine
end if 'extended profile
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td valign=""top"" align=""center"" colspan=""2"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Basics</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> User Name: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if (strMode = "goEdit") or (strMode = "goModify" and cLng(Request.Form("MEMBER_ID")) = cLng(intAdminMemberID)) then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_NAME"), "display") & "</font>" & vbNewLine & _
" <input type=""hidden"" name=""Name"" value=""" & chkString(rs("M_NAME"), "sqlstring") & """>" & vbNewLine
else
Response.Write " <input name=""Name"" size=""25"" maxLength=""25"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_NAME"), "display"))
Response.Write """>" & vbNewLine
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Title: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Title"" size=""25"" maxLength=""50"" value=""" & CleanCode(rs("M_TITLE")) & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strAuthType = "nt" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Your Account: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if Request.Form("Method_Type") = "Modify" then
Response.Write " <input name=""Account"" value=""" & ChkString(rs("M_USERNAME"), "display") & """>" & vbNewLine
else
Response.Write " " & Session(strCookieURL & "userid") & "<input type=""hidden"" name=""Account"" value=""" & Session(strCookieURL & "userid") & """>" & vbNewLine
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
if strMode = "Register" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Password: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Password Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password2"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> New Password: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password"" type=""Password"" size=""25"" maxLength=""25"" value="""">" & vbNewLine & _
" <input name=""Password-d"" type=""hidden"" value=""" & rs("M_PASSWORD") & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "goEdit" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> New Password Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password2"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
end if
if strFullName = "1" then
Response.Write " <tr>" & vbNewLine
If strReqFullName = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> First Name: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>First Name: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""FirstName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_FIRSTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
If strReqFullName = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Last Name: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Last Name: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""LastName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_LASTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strCity = "1" then
Response.Write " <tr>" & vbNewLine
If strReqCity = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Town/City: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Town/City: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""City"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_CITY"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strState = "1" then
Response.Write " <tr>" & vbNewLine
If strReqState = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> County/State: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>County/State: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""State"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_STATE"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strCountry = "1" then
Response.Write " <tr>" & vbNewLine
If strReqCountry = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Country: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Country: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""Country"" size=""1"">" & vbNewLine
if strMode <> "Register" then
Response.Write(" <option selected value=""" & rs("M_COUNTRY") & """>" & ChkString(rs("M_COUNTRY"), "display") & "</option>" & vbNewLine)
else
Response.Write " <option value=""""></option>" & vbNewLine
end if
Response.Write " <option value="""">None</option>" & vbNewLine
%>
<!--#INCLUDE FILE="inc_countrylist.asp"-->
<%
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMinAge > 0 or strReqAge = "1" or strReqAgeDOB = "1" then
strReq = "<font color=""" & strHiLiteFontColor & """>*</font>"
else
strReq = ""
end if
if strAge = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strReq & " Age: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Age"" size=""5"" maxLength=""3"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AGE"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strAgeDOB = "1" then
strDOByear = ""
strDOBmonth = ""
strDOBday = ""
if strMode <> "Register" then
strMDOB = trim(ChkString(rs("M_DOB"), "display"))
if len(strMDOB) > 0 then
strDOByear = cInt(left(strMDOB, 4))
strDOBmonth = cInt(mid(strMDOB, 5, 2))
strDOBday = cInt(right(strMDOB, 2))
end if
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strReq & " Birth Date: </font></b></td>" & vbNewLine & _
" <td bgcolor=""" & strPopUpTableColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""year"" id=""year"" onchange=""DateSelector(0);"">" & vbNewLine & _
" <option value=""""" & chkSelect("", strDOByear) & ">Year</option>" & vbNewLine
intStartYear = cInt(year(strForumTimeAdjust) - strMinAge)
for intYear = intStartYear to 1900 step -1
Response.Write " <option value=""" & intYear & """"
if strMode <> "Register" and len(strMDOB) > 0 then
Response.Write chkSelect(intYear, strDOByear)
end if
Response.Write ">" & intYear & "</option>" & vbNewLine
next
Response.Write " </select> "& vbNewLine & _
" <select name=""month"" id=""month"" style=""visibility:visible;"" onchange=""DateSelector(1);"">"& vbNewLine & _
" <option value=""""" & chkSelect("", strDOBmonth) & ">Month</option>" & vbNewLine
for intMonth = 1 to 12
Response.Write " <option value=""" & doublenum(intMonth) & """"
if strMode <> "Register" and len(strMDOB) > 0 then
Response.Write chkSelect(intMonth, strDOBmonth)
end if
Response.Write ">" & monthname(intMonth) & "</option>" & vbNewLine
next
Response.Write " </select> "& vbNewLine & _
" <select name=""day"" id=""day"" style=""visibility:visible;"">" & vbNewLine & _
" <option value=""""" & chkSelect("", strDOBday) & ">Day</option>" & vbNewLine
for intDay = 1 to 31
Response.Write " <option value=""" & doublenum(intDay) & """"
if strMode <> "Register" and len(strMDOB) > 0 then
Response.Write chkSelect(intDay, strDOBday)
end if
Response.Write ">" & intDay & "</option>" & vbNewLine
next
Response.Write " </select></font>"& vbNewLine & _
" <script language=""JavaScript"" type=""text/javascript"" src=""inc_datepicker.js""></script></td>"& vbNewLine & _
" </tr>" & vbNewLine
end if
if strSex = "1" then
Response.Write " <tr>" & vbNewLine
If strReqSex = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Gender: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Gender: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""Sex"" size=""1"">" & vbNewLine & _
" <option value="""""
if strMode <> "Register" then
if rs("M_SEX") = "" then Response.Write(" selected")
else
Response.Write(" selected")
end if
Response.Write ">Not specified </option>" & vbNewLine & _
" <option value=""Male"""
if strMode <> "Register" then
if rs("M_SEX") = "Male" then Response.Write(" selected")
end if
Response.Write ">Male </option>" & vbNewLine & _
" <option value=""Female"""
if strMode <> "Register" then
if rs("M_SEX") = "Female" then Response.Write(" selected")
end if
Response.Write ">Female </option>" & vbNewLine & _
" </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMarStatus = "1" then
Response.Write " <tr>" & vbNewLine
If strReqMarStatus = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Marital Status: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Marital Status: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""MarStatus"" size=""25"" maxLength=""25"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_MARSTATUS"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strOccupation = "1" then
Response.Write " <tr>" & vbNewLine
If strReqOccupation = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Occupation: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Occupation: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Occupation"" size=""25"" maxLength=""255"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_OCCUPATION"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """># of Posts: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Posts"" size=""5"" maxLength=""10"" value=""" & ChkString(rs("M_POSTS"), "display") & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strSignatures = "1" then
if strMode <> "Register" then
strTxtSig = rs("M_SIG")
end if
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Signature: </font></b><br />" & vbNewLine & _
" <span style=""font-size: 4px;""><br /></span>" & vbNewLine & _
" <table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine
if strAllowHTML = "1" then
Response.Write " * HTML is ON<br />" & vbNewLine
else
Response.Write " * HTML is OFF<br />" & vbNewLine
end if
if strAllowForumCode = "1" then
Response.Write " * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
else
Response.Write " * Forum Code is OFF<br />" & vbNewLine
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <span style=""font-size: 4px;""><br /></span>" & vbNewLine & _
" <input name=""Preview"" type=""button"" value=""Preview"" onclick=""OpenSigPreview()""> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea name=""Sig"" cols=""25"" rows=""4"">" & Trim(cleancode(strTxtSig)) & "</textarea></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode <> "goModify" then
if strDSignatures = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>View Signatures<br />in Posts?: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""ViewSig"">" & vbNewLine
if strMode = "Register" then
Response.Write " <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine
else
Response.Write " <option value=""1""" & chkSelect(rs("M_VIEW_SIG"),1) & ">Yes</option>" & vbNewLine & _
" <option value=""0""" & chkSelect(rs("M_VIEW_SIG"),0) & ">No</option>" & vbNewLine
end if
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Signature checkbox<br />checked by default?: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""fSigDefault"">" & vbNewLine
if strMode = "Register" then
Response.Write " <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine
else
Response.Write " <option value=""1""" & chkSelect(rs("M_SIG_DEFAULT"),1) & ">Yes</option>" & vbNewLine & _
" <option value=""0""" & chkSelect(rs("M_SIG_DEFAULT"),0) & ">No</option>" & vbNewLine
end if
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if strAUAnon = "1" then
response.write " <tr>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & fLang(strLangMOD_Ls3kAU_04000) & "<br />" & fLang(strLangMOD_Ls3kAU_04010) & ": </font></b></td>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle"">" & VBNewLine & _
" <select name=""AUHide"">" & vbNewLine
if RS("M_AUHIDE") = "1" or trim(RS("M_AUHIDE")) = "" then
response.write " <option value=""1"" selected>" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"">" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
else
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
end if
'!!!!!!!!!!!!!!upload quota
If strAllowAttachment = 1 Then
If mLev = 4 Then
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Upload Quota: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Quota"" size=""15"" maxLength=""15"" value=""" & ChkString(rs("M_FUPL_QUOTA"), "display") & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
End If
End If
'!!!!!!!!!!!!!!!upload quota
if Request.Form("Method_Type") = "Modify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Member Level: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine
if rs("MEMBER_ID") = intAdminMemberID then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Administrator</font>" & vbNewLine & _
" <input type=""hidden"" value=""3"" name=""Level"">" & vbNewLine
else
Response.Write " <select value=""1"" name=""Level"">" & vbNewLine & _
" <option value=""1"""
if rs("M_LEVEL") = 1 then Response.Write(" selected")
Response.Write ">Normal User</option>" & vbNewLine & _
" <option value=""2"""
if rs("M_LEVEL") = 2 then Response.Write(" selected")
Response.Write ">Moderator</option>" & vbNewLine & _
" <option value=""3"""
if rs("M_LEVEL") = 3 then Response.Write(" selected")
Response.Write ">Administrator</option>" & vbNewLine & _
" </select>" & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>User allowed to send<br />e-mail before limit of <br />" & intMaxPostsToEMail & " posts is reached? </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""bottom"">" & vbNewLine & _
" <select name=""allowemail"">" & vbNewLine & _
" <option value=""1"""
if rs("M_ALLOWEMAIL") = "1" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""0"""
if rs("M_ALLOWEMAIL") <> "1" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
' ########## PayPal Mod ##########
if Request.Form("Method_Type") = "Modify" or _
Request.Form("Method_Type") = "goModify" or _
Request.Form("Method_Type") = "goEdit" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=right valign=""top"" nowrap>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>PayPal Mod: </b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top""> " & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor& """ align=right valign=""top"" nowrap>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Paid Date:</b><br><small>eg: YYYYMMDD</small>" & vbNewline & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
" <input name=""PAYPALDATE"" size=""8"" value=""" & rs("M_PAYPALDATE") & """>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
' ########## PayPal Mod End ##########
end if
'####### Begin UserGroup MOD #######
if mLev = 4 and strMode <> "Register" then
strSql = "SELECT U.USERGROUP_ID FROM " & strTablePrefix & "USERGROUPS U, " &_
strTablePrefix & "USERGROUP_USERS UM " &_
"WHERE U.USERGROUP_ID = UM.USERGROUP_ID " &_
"AND UM.MEMBER_TYPE = 1 " &_
"AND UM.MEMBER_ID = " & rs("MEMBER_ID") & " " &_
"ORDER BY U.USERGROUP_NAME"
set rsPPGroups = my_Conn.execute(strSql)
arPPGroups = Null
if not rsPPGroups.bof and not rsPPGroups.eof then arPPGroups = rsPPGroups.GetRows
rsPPGroups.close
set rsPPGroups = Nothing
strPPGroups = ""
if not IsNull(arPPGroups) then
for iPPGcount = LBound(arPPGroups,2) to UBound(arPPGroups,2)
if strPPGroups <> "" then strPPGroups = strPPGroups & ","
strPPGroups = strPPGroups & arPPGroups(0,iPPGcount)
next
end if
strSql = "SELECT USERGROUP_ID, USERGROUP_NAME FROM " & strTablePrefix & "USERGROUPS ORDER BY USERGROUP_NAME"
set rsAllGroups = my_Conn.execute(strSql)
arAllGroups = Null
if not rsAllGroups.bof and not rsAllGroups.eof then arAllGroups = rsAllGroups.GetRows
rsAllGroups.close
set rsAllGroups = Nothing
Response.Write "<tr class=""ccc cfc"">" & vbNewLine & _
"<td valign=""top"" class=""c"" colspan=""2""><b>UserGroups</b></td>" & vbNewLine & _
"</tr>" & vbNewLine
if IsNull(arAllGroups) then
Response.Write "<tr>" & vbNewLine & _
"<td colspan=""2"">No usergroups found.</td>" & vbNewLine &_
"</tr>" & vbNewLine
else
for iGcount = LBound(arAllGroups,2) to UBound(arAllGroups,2)
Response.Write "<tr>" & vbNewLine & _
"<td class=""r""><input type=""checkbox"" name=""UserGroups"" value=""" & arAllGroups(0,iGcount) & """"
if InStr("," & strPPGroups & ",", "," & arAllGroups(0,iGcount) & ",") then response.write " checked"
Response.Write "></td>" & vbNewLine &_
"<td class=""l"">" & chkString(arAllGroups(1,iGcount),"display") & "</td>" & vbNewline &_
"</tr>" & vbNewLine
next
end if
end if
'####### End UserGroup MOD #######
if not(strUseExtendedProfile) then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Contact Info </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_EMAIL"), "display"))
Response.Write """>" & vbNewLine & _
" <input type=""hidden"" name=""Email2"" value="""
if strMode <> "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "Register" then
Response.Write " </tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email3"" size=""25"" maxLength=""50"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Allow Forum Members<br />to Send you E-Mail?: </font></b></td>" & vbNewLine
if strMode = "Register" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"""
if rs("M_RECEIVE_EMAIL") <> "0" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""0"""
if rs("M_RECEIVE_EMAIL") = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
if strAIM = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""AIM"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""MSN"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strSKYPE = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Skype: </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input class=newlogin name=""SKYPE"" size=""25"" maxLength=""150"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_SKYPE"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>YAHOO IM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""YAHOO"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if (strHomepage + strFavLinks) > 0 and not(strUseExtendedProfile) then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Links </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strHomepage = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Homepage: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
if strMode <> "Register" then
if rs("M_HOMEPAGE") <> " " and lcase(rs("M_HOMEPAGE")) <> "http://" then Response.Write(ChkString(rs("M_HOMEPAGE"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strFavLinks = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Cool Links: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link1"" size=""25"" maxLength=""255"" value="""
if strMode <> "Register" then
if rs("M_LINK1") <> " " and lcase(rs("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link2"" size=""25"" maxLength=""255"" value="""
if strMode <> "Register" then
if rs("M_LINK2") <> " " and lcase(rs("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</a></font></p>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap " & strColSpan & ">" & vbNewLine & _
" <input type=""hidden"" value=""" & cLng(Request.Form("MEMBER_ID")) & """ name=""MEMBER_ID"">" & vbNewLine & _
" <input type=""submit"" value=""Submit"" name=""Submit1"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap " & strColSpan & ">" & vbNewLine & _
" <input type=""hidden"" value=""" & cLng(Request.Form("MEMBER_ID")) & """ name=""MEMBER_ID"">" & vbNewLine & _
" <input type=""submit"" value=""Submit"" name=""Submit1"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
on error goto 0
end Sub
%>
thermal_seeker
11 December 2010, 17:09
11 December 2010, 17:09
Carefree, I installed my backup files that were a couple of mods back so the problem isn't the paypal one or the nested quotes one.
I'm at a total loss as to why this is happening. I have been comparing files all afternoon.
I'm at a total loss as to why this is happening. I have been comparing files all afternoon.