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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Subscription MOD
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

kimm
Starting Member

Canada
39 Posts

Posted - 04 June 2001 :  15:23:58  Show Profile
After I have manually inserted the code for the Subscription MOD, I can check the checkbox to subscribe and unsubscribe no problem, but when I try to post a new topic in a subscribed to forum, I get this error. Did I miss-copy something? Please help!!
Thanks, Kim kimm@med2020.ca

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'SendSubscribeEmail'
/forum/post_info.asp, line 520

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 04 June 2001 :  17:49:13  Show Profile  Visit HuwR's Homepage
do a check for the variable SendSubscribeEmail, if you can ascertain the line numbers, check what it says on line 520 if it does SendSubscribeEmail = Number then change it to SendSubscribeEmail = "Number" or remove the " " if they are already there

Go to Top of Page

Anders M
Junior Member

Sweden
117 Posts

Posted - 04 June 2001 :  18:08:44  Show Profile  Visit Anders M's Homepage
SendSubscribeEmail is a function that takes several parameters. Probably you have miss-copied something. Please post line 520 here so we can help you.

Go to Top of Page

kimm
Starting Member

Canada
39 Posts

Posted - 05 June 2001 :  08:43:05  Show Profile
lines 517-526
set rsLastID = nothing

url = Left(Request.Form("refer"), InstrRev(Request.Form("refer"), "/")) & "link.asp?TOPIC_ID=" & topicId

SendSubscribeEmail topicId,Request.Form("Subject"),Request.Form("FORUM_ID"),Request.Form("FORUM_Title"),Request.Form("CAT_ID"),Request.Form("UserName"),url,False

'## Forum_SQL - Increase count of topics and replies in Forum table by 1

strSql = "UPDATE " & strTablePrefix & "FORUM "

strSql = strSql & " SET F_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"

strSql = strSql & ", F_TOPICS = F_TOPICS + 1"

strSql = strSql & ", F_COUNT = F_COUNT + 1"

strSql = strSql & ", F_LAST_POST_AUTHOR = " & rs("MEMBER_ID") & ""

strSql = strSql & " WHERE FORUM_ID = " & Request.Form("FORUM_ID")

Go to Top of Page

kimm
Starting Member

Canada
39 Posts

Posted - 06 June 2001 :  09:12:15  Show Profile
are you guys still out there?

Kim Monkhouse
Web/Marketing Design Specialist
www.med2020.ca
Go to Top of Page

Anders M
Junior Member

Sweden
117 Posts

Posted - 06 June 2001 :  16:36:19  Show Profile  Visit Anders M's Homepage
quote:
lines 517-526


Seems OK to me.

However, I have analyzed the file you sent me by email (post_info.asp). You forgot to insert these functions at the end of the file: BuildEmailAddr, MemberSubscribes, SendSubscribeEmail.

Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.37 seconds. Powered By: Snitz Forums 2000 Version 3.4.07