Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Greeting Card Mod 3.6 (RC1)

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
Classicmotorcycling Posted - 30 June 2008 : 22:37:37
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... <
15   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 13 September 2008 : 11:39:16
Sounds logical to me. I'll check it when I get home next week.<
Andy Humm Posted - 12 September 2008 : 14:39:33
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<
Andy Humm Posted - 22 July 2008 : 03:38:41
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<
Andy Humm Posted - 20 July 2008 : 20:01:07
Excellent, thank you David.. Does the parameter/value setting at line 50 greeting_card_gte.asp change both the number of columns shown in the categories headings on greeting_cards.asp as well as the number of columns of cards shown in greeting_cards_post_cats.asp
I believe that the latter is set to three, irrespective of the line 50 setting. ,
Thanks you for the stirling work.<
Classicmotorcycling Posted - 19 July 2008 : 21:47:51
OK, I have re-written the greeting_card_clean.asp which requires that file and the greeting_card_sent.asp files to be replaced. I have changed the way that the dates are inserted in to the GREETING_CARD_SENT table and it now doesn't kill anything newer that the specified older than the days put in the Greeting Card admin side.

I have also redone the greeting_card_gte.asp to allow you to specify the ammount of columns to show the categories accross your page. Just change the value at line 50 in the greeting_card_gte.asp file to the ammount of columns you want to display. All updates in the original download.

As far as I know, there are only 1 thing to work on now, and that is the following:

Getting the top greeting card to come up and if there is no greeting card sent or not enogh to randomize the cards displayed. This is not going to be a quick done fix.<
Andy Humm Posted - 19 July 2008 : 03:38:58
ok thanks andy<
Classicmotorcycling Posted - 19 July 2008 : 03:35:16
I will re-write the function over this week-end and see what happens when I put in more than 20 categories on my test site(s). I'll let you know when it is fixed..<
Andy Humm Posted - 18 July 2008 : 16:29:19
This is the new code: line 84 in red
count = rssubcat.RecordCount
count = 1
	do while not rssubcat.EOF and count<=5			
	
	rssubcat.movenext
	loop

ColNum = ColNum + 1 

if NOT rs.EOF then  
	rs.MoveNext  
end if 

Response.Write	"								</td>" & vbNewLine &_		"								<td align=""left"" width=""33%"" valign=""top"">" & vbNewLine & _
		"									<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b><a href=""greeting_cards_post_cats.asp?category=" & rs("catid") & """>" & rs("catname") & "</a></b>" & vbNewLine
ParentID = rs("catid")
	sqlcount = "SELECT COUNT(CARDNAME) FROM " & strTablePrefix & "GREETING_CARD WHERE CATID=" & rs("CATID") 
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)

Response.Write "[" & rcounts & "]</font><br />" & vbNewLine
<
Andy Humm Posted - 18 July 2008 : 16:04:52
Hi Dave, Just uploaded new greeting_cards_gte.asp file and view three columns but underneath have
error '80020009'
/forum/greeting_cards_gte.asp, line 84
I have eight categories to start off with. However, if I add an additional category the error disappears and the Greeting Card Collection Centre and Top5 Category Tables show.
Also adding another category ok, but when delete these two added categories, ie go back to my original eight, then the error above reappears? and the Greeting Card Collection Centre and Top5 Category Tables do not show

Further testing if I have either 8, 11 or 14 categories ie the latest cat is in middle column, the error occurs,. I tested the initial start with by deleteing the eighth cat and the error goes. It appears to work okay if the last or latest cat does not appear in centre column????<
Carefree Posted - 18 July 2008 : 15:57:06
The error appears in greeting_cards.asp; I first discovered it with 10 categories; deleted, rebuilt the table; gone. Added to 11 categories, checked again, error back. Added 12th, error gone again.<
Classicmotorcycling Posted - 18 July 2008 : 15:50:17
I do not have the issue. I have the Greeting Cards added here: http://www.vncommodore.com/forum/greeting_cards.asp

This has the extra column in there and works fine. I have tested on Access and MS SQL and the system works fine from the download.

Andy, the only thing added to greeting_cards_cat.asp was at line 95, the word "checked" for the extra columns the file updated was in greeting_cards_gte.asp so there was 3 columns of categories.<
Andy Humm Posted - 18 July 2008 : 12:32:29
quote:
Originally posted by Carefree

I get 3 columns when the default categories are listed; however, when I add a few categories, I get an 80020009 error at line 84 (which is obviously an error itself).

Carefree did you get these errors post greeting_cards_cat.asp file edited by Classicmotorcycling 18 July 2008 : 08:03:20
<
texanman Posted - 18 July 2008 : 12:15:57
If you read pages 1 and 2, you will get the answer.

Opps this looks like a new error.<
Maxime Posted - 18 July 2008 : 11:35:14
Page greeting_cards_clean.asp to line 86-92

strSQL = "DELETE FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE< '" & rev & "'"
set rs = conn.execute (strsql)
if rs.EOF or rs.BOF then ' Not Found
Response.Write "Deleted"
end if
rs.Close
set rs = Nothing

Here is the code error when I try to delete expired cards

Removing card sent before the deadline expiry

ADODB.Recordset error '800a0e78'

This operation is not permitted if the subject is closed.

/forum/greeting_cards_clean.asp, line 88<
texanman Posted - 18 July 2008 : 10:45:31
Carefree
Where do you get the error? I mean at what page?
I have 13 categories and no error. I have the original files. I did not make the new updates
Thanks<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.04 seconds. Powered By: Snitz Forums 2000 Version 3.4.07