Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringGreeting Card Mod 3.6 (RC1)

Author : Classicmotorcycling
Subject : Greeting Card Mod 3.6 (RC1)
Posted : 30 June 2008, 22:37
Message :

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...

<

Reply Author: HuwR
Replied on: 01 July 2008, 04:40
Message:

I have removed the link until the code for this mod is sanitised against SQL injection, currently it is not. I found several request variables in the _preview.asp file that were not being sanitised prior to using in a query.<

Reply Author: Classicmotorcycling
Replied on: 01 July 2008, 06:59
Message:

HuwR,

I have rechecked the code and made the changes now it should be right on all the files. Do you want to put the link back up? <

Reply Author: HuwR
Replied on: 01 July 2008, 07:03
Message:

did you also check greeting_cards_get.asp ? I think that had some vulnerabilities too<

Reply Author: Classicmotorcycling
Replied on: 01 July 2008, 07:17
Message:

All files where chaecked and the zip updated...<

Reply Author: HuwR
Replied on: 01 July 2008, 07:28
Message:

ok great

feel free to put the link back up<

Reply Author: texanman
Replied on: 01 July 2008, 18:50
Message:

Hi,

I am getting this error message when I click on "Cards" in the Admin Section.
Microsoft OLE DB Provider for SQL Server error '80040e14'
Incorrect syntax near '*'.
/greeting_cards_clean.asp, line 92

line 92: set rs = conn.execute (strsql)

The two lines above it are:

strSQL = "DELETE * FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE" _
& "< #" & rev & "#;"

Any idea what the problem is?
Thanks
<

Reply Author: ruirib
Replied on: 01 July 2008, 18:51
Message:

Remove the '*', so that the SQL statement is "DELETE FROM " &...<

Reply Author: mdelcour2000
Replied on: 01 July 2008, 19:18
Message:

VERY IMPRESSIVE!<

Reply Author: leatherlips
Replied on: 01 July 2008, 20:27
Message:

When I go into General Settings and click "Send Config" I get this error:

Code:

You need to put in a SMTP Server
Back
Please enter the greetings URL!
Back

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/forumtest/greeting_cards_docard.asp, line 188

<

Reply Author: texanman
Replied on: 01 July 2008, 20:37
Message:

Originally posted by ruirib
Remove the '*', so that the SQL statement is "DELETE FROM " &...

Thanks ruirib
Tried that but still gives the same error

<

Reply Author: Carefree
Replied on: 01 July 2008, 21:01
Message:

Originally posted by leatherlips
When I go into General Settings and click "Send Config" I get this error:

Code:
You need to put in a SMTP Server
Back
Please enter the greetings URL!
Back

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/forumtest/greeting_cards_docard.asp, line 188

In greeting_cards_docard.asp, lines 166-170, replace with:

Code:


Sub general
mailserver = strMailServer
url = strForumURL
myname = Request.Form("myname")
days = Request.form("days")

lines 188-191, replace with:

Code:


rs("mailserver") = strMailServer
rs("url") = strForumURL
rs("myname") = Request.Form("myname")
rs("days") = Request.form("days")

That should fix your problem.<

Reply Author: leatherlips
Replied on: 01 July 2008, 21:07
Message:

It took out some of the error. Now it only says this:

Code:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/forumtest/greeting_cards_docard.asp, line 188

Line 188 is:

rs("mailserver") = strMailServer<

Reply Author: mdelcour2000
Replied on: 01 July 2008, 21:46
Message:

ok, when I try to delete a card, that I added, I am getting this error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/default/greeting_cards_remcardcat.asp, line 109

cat = trim(chkStringRequest("catid"),"SQLString"))
-------------------------------------------------^
<

Reply Author: Carefree
Replied on: 01 July 2008, 22:34
Message:

Originally posted by leatherlips
It took out some of the error. Now it only says this:

Code:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/forumtest/greeting_cards_docard.asp, line 188
Line 188 is:

rs("mailserver") = strMailServer

Try this one, think it'll do it.
greeting_cards_docard.txt<

Reply Author: Carefree
Replied on: 01 July 2008, 22:37
Message:

Originally posted by mdelcour2000
ok, when I try to delete a card, that I added, I am getting this error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/default/greeting_cards_remcardcat.asp, line 109

cat = trim(chkStringRequest("catid"),"SQLString"))
-------------------------------------------------^

That one's rather obvious, there are differing quantities of opening and closing parentheses. Eliminate the final closing parenthesis.<

Reply Author: mdelcour2000
Replied on: 01 July 2008, 23:01
Message:

thanks Carefree, I will do that. Also, when deleting the images, the thumb seems to not be there.<

Reply Author: Carefree
Replied on: 01 July 2008, 23:08
Message:

That's a permissions error. In Windows Explorer, browse to the forum directory. Right-click, select properties. Select the Security tab.
Look in the top window of the security tab for "Internet Guest Account" or IUSR-(Computer Name).
If it's not there, you'll have to add it. Click "Add", type in IUSR and click check names. It'll show up. Give it "read" permission only.

After it's there, click the "advanced" button on bottom right. Check the box "Replace permission entries on all child objects ...". Click apply. When it's done, your photos will show up.<

Reply Author: texanman
Replied on: 01 July 2008, 23:15
Message:

Originally posted by mdelcour2000
ok, when I try to delete a card, that I added, I am getting this error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/default/greeting_cards_remcardcat.asp, line 109

cat = trim(chkStringRequest("catid"),"SQLString"))
-------------------------------------------------^

That one's rather obvious, there are differing quantities of opening and closing parentheses. Eliminate the final closing parenthesis.
Now a new error:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'chkStringRequest'
/greeting_cards_remcardcat.asp, line 109

<

Reply Author: mdelcour2000
Replied on: 01 July 2008, 23:43
Message:

yeah I'm getting the same error<

Reply Author: mdelcour2000
Replied on: 01 July 2008, 23:48
Message:

ok, I am also getting this error when trying to delete dead cards:

Greeting Cards Cleaned
Microsoft OLE DB Provider for SQL Server error '80040e14'

Incorrect syntax near '#'.

/default/greeting_cards_clean.asp, line 92

The line above is:
& "< #" & rev & "#;"<

Reply Author: texanman
Replied on: 01 July 2008, 23:53
Message:

Try ruirib's fix above and see if it works for you. I tried and it didn't fix the problem.<

Reply Author: mdelcour2000
Replied on: 01 July 2008, 23:57
Message:

Yeah, it only gave me this error when I did that. I had the same error you had before I applied Ruirib's fix
<

Reply Author: Carefree
Replied on: 02 July 2008, 00:14
Message:

Ok, in greeting_cards_clean.asp, change the whole block of instruction from lines 90-92:

Search for:

Code:


	strSQL = "DELETE * FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE" _
	& "< #" & rev & "#;"
	set rs = conn.execute (strsql)

Change that to say:

Code:


	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

At the end of that file, search for:

Code:


	rs.close

%>

Delete the line saying:

rs.close
<

Reply Author: Carefree
Replied on: 02 July 2008, 00:21
Message:

Originally posted by mdelcour2000
ok, when I try to delete a card, that I added, I am getting this error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/default/greeting_cards_remcardcat.asp, line 109

cat = trim(chkStringRequest("catid"),"SQLString"))
-------------------------------------------------^

That one's rather obvious, there are differing quantities of opening and closing parentheses. Eliminate the final closing parenthesis.
Now a new error:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'chkStringRequest'
/greeting_cards_remcardcat.asp, line 109

Sorry, I was blinded by parentheses. The correct line 109 should read:

Code:


cat = trim(chkString(Request("catid"),"SQLString"))

<

Reply Author: texanman
Replied on: 02 July 2008, 00:47
Message:

Thanks carefree
greeting_cards_clean.asp fix still doesn't work. The fix for greeting_cards_remcardcat.asp works only after you remove the "*" after "delete" from lines 112 and 113 (The ruirib's fix above)<

Reply Author: Carefree
Replied on: 02 July 2008, 01:58
Message:

I installed it, tested the cleaning file, works perfectly with my change. Here's my file in .txt format: greeting_cards_clean<

Reply Author: texanman
Replied on: 02 July 2008, 02:12
Message:

why is this giving me a security warning? LOL<

Reply Author: Carefree
Replied on: 02 July 2008, 02:48
Message:

Don't worry about the security warning, just means the certificate wasn't issued by someone that MS recognizes as having authority. A txt file cannot hurt your browser.<

Reply Author: Maxime
Replied on: 02 July 2008, 02:49
Message:

And what the original file of this MOD at summer updated with touts post for that of the forum. In order to not seek too much. Thank you<

Reply Author: Classicmotorcycling
Replied on: 02 July 2008, 03:42
Message:

I put it through a heap of testing on 2 installs of Snitz to make sure it was working on a fresh install of Snitz that was using Access and MS SQL and never had the errors that some are having.<

Reply Author: texanman
Replied on: 02 July 2008, 08:20
Message:

Originally posted by Carefree
I installed it, tested the cleaning file, works perfectly with my change. Here's my file in .txt format: greeting_cards_clean

Carefree, I used your copy and still same error. hmmm<

Reply Author: ruirib
Replied on: 02 July 2008, 08:27
Message:

I'm not sure what type is DateSent (guessing datetime), but the syntax used is valid just for Access. SQL Server doesn't use '*' in DELETE statements and dates aren't delimited by '#'.<

Reply Author: HuwR
Replied on: 02 July 2008, 08:31
Message:

Originally posted by ruirib
I'm not sure what type is DateSent (guessing datetime), but the syntax used is valid just for Access. SQL Server doesn't use '*' in DELETE statements and dates aren't delimited by '#'.

and it is the reason we do dates in the forum as a string not a date<

Reply Author: texanman
Replied on: 02 July 2008, 09:12
Message:

rurib & HuwR:
This is the date format in the code:

rev = (rmonth & "/" & rday & "/" &ryear )
strSQL = "DELETE FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE< #" & rev & "#"

For SQ are you saying we take out those "#"'s? Thanks<

Reply Author: HuwR
Replied on: 02 July 2008, 09:14
Message:

Originally posted by texanman
rurib & HuwR:
This is the date format in the code:

rev = (rmonth & "/" & rday & "/" &ryear )
strSQL = "DELETE FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE< #" & rev & "#"

For SQ are you saying we take out those "#"'s? Thanks

yes, replace them with ', however you will need to ascertain whether your server wants the adte as mm/dd/yy or dd/mm/yy and adjust the rev = (rmonth & "/" & rday & "/" &ryear )
accordingly<

Reply Author: texanman
Replied on: 02 July 2008, 09:25
Message:

Tried both date types and got the same error:

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.
/greeting_cards_clean.asp, line 89
I changed the line as:

strSQL = "DELETE FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE< '" & rev & "'"
<

Reply Author: HuwR
Replied on: 02 July 2008, 09:32
Message:

an object closed error means you don't have an open connection, it has nothing to do with what the query is, have you deleted or commented any lines ?<

Reply Author: texanman
Replied on: 02 July 2008, 09:58
Message:

Thanks HuwR, You are the man!! This is original code modified using your suggestion (works fine now in SQL):

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

Thanks again<

Reply Author: HuwR
Replied on: 02 July 2008, 10:21
Message:

glad you have it working now

(so far at least)<

Reply Author: texanman
Replied on: 02 July 2008, 11:12
Message:

LOL @ so far

. You got that right.
The issue brought up by leatherlips still needs fixing.

It took out some of the error. Now it only says this:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal. /forumtest/greeting_cards_docard.asp, line 188
Line 188 is:
rs("mailserver") = strMailServer

<

Reply Author: Carefree
Replied on: 02 July 2008, 12:35
Message:

I found the problem. Delete lines 188-189, the fields he's trying to update do not exist in that table.<

Reply Author: texanman
Replied on: 02 July 2008, 12:50
Message:

Genius!!!!!!!!!!!!!! Thanksssssssssss

Now everything works fine for SQL<

Reply Author: Carefree
Replied on: 02 July 2008, 14:03
Message:

You're welcome.<

Reply Author: Maxime
Replied on: 04 July 2008, 14:07
Message:

I applied all updates proposed here

Change the number of days before expiry of the card
ADODB.Recordset error '800a0cc1'

Unable to find the object in the collection corresponding to the name or the reference asked ordinal.

/forum/greeting_cards_docard.asp, line 188

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
<

Reply Author: texanman
Replied on: 04 July 2008, 16:11
Message:

I found the problem. Delete lines 188-189, the fields he's trying to update do not exist in that table.

You have missed that one for the first error.
For the second error if you are using SQL replace lines 90-92 with:

strSQL = "DELETE FROM " & strTablePrefix & "GREETING_SENT WHERE SENTDATE< '" & rev & "'"
set rs = conn.execute (strsql)<

Reply Author: mdelcour2000
Replied on: 04 July 2008, 19:02
Message:

I have a question. How could I make the "Thumbs" clickable so that anyone may view them full size in a different window?
Otherwise, I think that this MOD should be right up there with the best. I really like it.<

Reply Author: Carefree
Replied on: 04 July 2008, 22:01
Message:

In "Greeting_Cards_Cat.asp", look for the following (appx line 94):

Code:


			"			<img border=""2"" width=""100"" src=""" & strimgsm & """><br />" & vbNewLine & _

Replace it with the following 2 lines:

Code:


			"		<a href=""" & RS("IMAGENAME") & """>" & _
			"			<img src=""" & strimgsm & """ border=""2"" width=""100""><br /></a>" & vbNewLine & _

<

Reply Author: mdelcour2000
Replied on: 04 July 2008, 22:12
Message:

works great. Thanks Carefree<

Reply Author: Carefree
Replied on: 04 July 2008, 22:13
Message:

You're welcome.<

Reply Author: Andy Humm
Replied on: 11 July 2008, 17:08
Message:

Is there a fully functioning demo available to peruse?<

Reply Author: weeweeslap
Replied on: 11 July 2008, 18:52
Message:

http://www.coastercrazy.com/forum/greeting_cards.asp
I have only added 1 additional picture and category for greeting cards. I have not had much time to play with but it works good so far from testing and the public feedback.<

Reply Author: Andy Humm
Replied on: 12 July 2008, 03:52
Message:

Looks good, is you version as per David Greening's mod. Also, am I right in saying that the download available has all the errors above ironed out?<

Reply Author: Classicmotorcycling
Replied on: 12 July 2008, 06:10
Message:

It certianly looks like the Greeting Card Mod 3.6 I put together as it has the same images and categories..<

Reply Author: modifichicci
Replied on: 12 July 2008, 06:12
Message:

Are the include in all files all necessary?






 <

Reply Author: weeweeslap
Replied on: 12 July 2008, 11:59
Message:

Andy, the one I downloaded worked right off the box. So mine still has the bugs other reported but since I am so cool, they don't show up for me

<

Reply Author: Andy Humm
Replied on: 12 July 2008, 17:19
Message:

Having a try with the demo, a couple of questions:
1. Access to the Greetings Cards can the use be set to members levels? 2. Can the send card be set to automatically put your email address in from the member login and also the member name by default
3. Can the input boxesbe set as soon asyou place the cursor in the boxes it clears prompting statements, instead of having to block and delete.. 4. I am making the assumption, that the format layout, colours and fonts are inline withe the rest of the forum settings

Looks good so far
andy<

Reply Author: Classicmotorcycling
Replied on: 12 July 2008, 19:22
Message:

Hello Andy,

In answer to your questions:

1. I have not had time to set to member level access as it would be a total re-write of the Greeting Card Mod and calls to the MEMBERS table with extra fields required there for each member.

Originally posted by Andy Humm
Having a try with the demo, a couple of questions:
1. Access to the Greetings Cards can the use be set to members levels? 2. Can the send card be set to automatically put your email address in from the member login and also the member name by default
3. Can the input boxesbe set as soon asyou place the cursor in the boxes it clears prompting statements, instead of having to block and delete.. 4. I am making the assumption, that the format layout, colours and fonts are inline withe the rest of the forum settings

Looks good so far
andy

2. I have changed it so that if the user is logged in, it will grab the users name and their e-mail address which they will not be able to change, but a visitor can enter there own detailts

3. I have put some javascript in to clear the fields in the form when you click on them

4. You assumption is incorrect for the Background and the Text, these are hard coded values that are listed in greeting_cards_cat.asp in lines 222 to 280 if you want to change them to suit your site

Enjoy. I have not seen the issues that others have when installing. I have tried the Greeting Card Mod 3.6 on multiple different sites with MS SQL and Access with it working first time as I stated in the original post. I have not tried on MySQL as I have not had the time to setup the database.

<

Reply Author: Andy Humm
Replied on: 15 July 2008, 08:04
Message:

Dave, Quality installed and only one observation:
When you are in the admin and trying to delete a card from a category ie
/forum/greeting_cards_docards.asp?func=delcard&f=get&cat=4
The maiin forum header is not shown, the background is balnk and the footer does not correspond with the same size settings as the rest of the footers..Does this whole function get wrapped into the main forum table seetings. I have up to the directory tree at the top,

File greeting_cards_docards.asp text
<

Reply Author: Classicmotorcycling
Replied on: 16 July 2008, 06:48
Message:

Andy,

Here is the fix. I was originally going to have that in a pop-up and must of forgotten to put it back.

Originally posted by Andy Humm
Dave, Quality installed and only one observation:
When you are in the admin and trying to delete a card from a category ie
/forum/greeting_cards_docards.asp?func=delcard&f=get&cat=4
The maiin forum header is not shown, the background is balnk and the footer does not correspond with the same size settings as the rest of the footers..Does this whole function get wrapped into the main forum table seetings. I have up to the directory tree at the top,
File greeting_cards_docards.asp text

Fix located at: Delete Greeting Cards Fix<

Reply Author: Andy Humm
Replied on: 16 July 2008, 16:10
Message:

Thank you Dave, we have the header back, but the table delete cards is not showing
see image..

Can you advise or provide amended file
Thank you Andy
<

Reply Author: texanman
Replied on: 16 July 2008, 16:29
Message:

I am using the same files and it is showing what cards to delete.<

Reply Author: Andy Humm
Replied on: 16 July 2008, 16:34
Message:

Apologies, mine works now, Thank you Dave,(and Tex) I had a spelling mistake ooops..<

Reply Author: Andy Humm
Replied on: 16 July 2008, 17:05
Message:

Something you might want to consider:
1. If a message is added to the greeting card which is more than 255 charactors, you will receive the following error:

The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.
/forum/greeting_cards_send.asp, line 106
To fix this you need to amend the database properties. Table: FORUM_GREETING_SENT
Field: MESSAGE
Properties change data type from text to memo

2. When you are compiling a message and whenready select preview, if you go back to edit the greeting, then do not reselect an image for use, you will receive the following error:

Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression 'ID='.
/forum/greeting_cards_preview.asp, line 115

Could there be a solution to keep the selected picture on the radio box in 'session' so that you don't have to reselect an image again, all the added text in the other fields remain.<

Reply Author: Classicmotorcycling
Replied on: 18 July 2008, 06:46
Message:

I have fixed the dbs file to have a memo field, so that should be right now.
I have put a "checked" to select the image as a quick fix, but if you are going back, you are obviously fixing something and most users will look to make sure that the right image is selected.

It is all updated in the original download for 3.6 RC1.<

Reply Author: Andy Humm
Replied on: 18 July 2008, 07:45
Message:

Thank you David, which file did you amend for "I have put a "checked" to select the image as a quick fix"
Rgds Andy<

Reply Author: Classicmotorcycling
Replied on: 18 July 2008, 08:03
Message:

I updated greeting_cards_cat.asp

<

Reply Author: Carefree
Replied on: 18 July 2008, 09:28
Message:

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).

I re-ran the dbs file (recreating the default categories), looks fine. Added categories and the error was back.<

Reply Author: Carefree
Replied on: 18 July 2008, 09:33
Message:

Interesting note: if the number of categories is divisible by 3, the error disappears again.<

Reply Author: texanman
Replied on: 18 July 2008, 10:45
Message:

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<

Reply Author: Maxime
Replied on: 18 July 2008, 11:35
Message:

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<

Reply Author: texanman
Replied on: 18 July 2008, 12:15
Message:

~~If you read pages 1 and 2, you will get the answer.~~
Opps this looks like a new error.<

Reply Author: Andy Humm
Replied on: 18 July 2008, 12:32
Message:

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
<

Reply Author: Classicmotorcycling
Replied on: 18 July 2008, 15:50
Message:

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.<

Reply Author: Carefree
Replied on: 18 July 2008, 15:57
Message:

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.<

Reply Author: Andy Humm
Replied on: 18 July 2008, 16:04
Message:

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????<

Reply Author: Andy Humm
Replied on: 18 July 2008, 16:29
Message:

This is the new code: line 84 in red

Code:

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

<

Reply Author: Classicmotorcycling
Replied on: 19 July 2008, 03:35
Message:

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..<

Reply Author: Andy Humm
Replied on: 19 July 2008, 03:38
Message:

ok thanks andy<

Reply Author: Classicmotorcycling
Replied on: 19 July 2008, 21:47
Message:

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.<

Reply Author: Andy Humm
Replied on: 20 July 2008, 20:01
Message:

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.<

Reply Author: Andy Humm
Replied on: 22 July 2008, 03:38
Message:

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 " This Greeting Card Title is blank! " & vbNewLine
Response.Write "Please enter the Greetings Card Title that is missing Thank You <a href=""javascript:history.back()"">Back</a>" & vbNewLine
else
then at line 174
add an additional
end if<

Reply Author: Andy Humm
Replied on: 12 September 2008, 14:39
Message:

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<

Reply Author: Carefree
Replied on: 13 September 2008, 11:39
Message:

Sounds logical to me. I'll check it when I get home next week.<

Greeting Card Mod 3.6 (RC1)

Topic

Replies ...