The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Rolling on from this MOD over 6 years ago: Greeting Card Mod
I have re-written the Greeting Card to now work off the Forum database and a few other things including easy to install (being 1 out 10 and 1 being the easiest). I have included 10 Greeting Cards to get you started and all appears to work fine on Access & MSSQL.
I have also made it work using the forums inc_mail.asp so there is no need for a special mail component.
You can download it from: Greeting Card Mod 3.6
Enjoy...
<
I have re-written the Greeting Card to now work off the Forum database and a few other things including easy to install (being 1 out 10 and 1 being the easiest). I have included 10 Greeting Cards to get you started and all appears to work fine on Access & MSSQL.
I have also made it work using the forums inc_mail.asp so there is no need for a special mail component.
You can download it from: Greeting Card Mod 3.6
Enjoy...
<
Posted
To save getting an error message if you fail to enter a title in the Greetings card input form and then send
file: greetings_card_preview.asp
find
if message = "" then approx line 98
above that insert the following:
if title = "" then
Response.Write "<font face=""" & strDefaultFontFace & """ color=""#FF0000"" size=""" & strdefaultFontSize & """><br>This Greeting Card Title is blank!<br></font>" & vbNewLine
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strdefaultFontSize & """>Please enter the Greetings Card Title that is missing<br />Thank You <br><a href=""javascript:history.back()"">Back</a></font>" & vbNewLine
else
then at line 174
add an additional
end if<
file: greetings_card_preview.asp
find
if message = "" then approx line 98
above that insert the following:
if title = "" then
Response.Write "<font face=""" & strDefaultFontFace & """ color=""#FF0000"" size=""" & strdefaultFontSize & """><br>This Greeting Card Title is blank!<br></font>" & vbNewLine
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strdefaultFontSize & """>Please enter the Greetings Card Title that is missing<br />Thank You <br><a href=""javascript:history.back()"">Back</a></font>" & vbNewLine
else
then at line 174
add an additional
end if<
Posted
Correct, me if I am wrong, but if I alter the General Settings "Leave cards in db for xx days: to '0' then if I click on Remove Dead Cards (greeting_cards_clean.asp) it should remove all the cards stored in Table GREETINGS_SENT<
Posted
Sounds logical to me. I'll check it when I get home next week.<