Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Greeting Card Mod 3.6 (RC1)		  New Topic  Reply to Topic
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 6

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 18 July 2008 :  16:29:19  Show Profile  Reply with Quote
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
<
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 19 July 2008 :  03:35:16  Show Profile  Reply with Quote
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..<
Cheers,

David Greening
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 19 July 2008 :  03:38:58  Show Profile  Reply with Quote
ok thanks andy<
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 19 July 2008 :  21:47:51  Show Profile  Reply with Quote
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.<
Cheers,

David Greening
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 20 July 2008 :  20:01:07  Show Profile  Reply with Quote
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.<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 22 July 2008 :  03:38:41  Show Profile  Reply with Quote
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<
Edited by - Andy Humm on 22 July 2008 03:41:56
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 12 September 2008 :  14:39:33  Show Profile  Reply with Quote
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<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 13 September 2008 :  11:39:16  Show Profile  Reply with Quote
Sounds logical to me. I'll check it when I get home next week.<
Go to Top of Page
Page: of 6 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.13 seconds. Powered By: Snitz Forums 2000 Version 3.4.07