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/O Code)
 Adding signatures to private messages

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

 
   

T O P I C    R E V I E W
philsbbs Posted - 11 April 2008 : 09:51:45
Hi,

I want to have the option to include profile signatures in private messages.

So far I've coded :-

Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea cols=""45"" name=""Message"" rows=""10"" wrap=""VIRTUAL""

onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) &

"</textarea><hr><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Sig"" id=""Sig"" type=""checkbox"" value=""yes""

checked><label for=""Sig"">Check here to include your profile signature.</label></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _

In privatesend.asp

What do I add next.

<
15   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 25 May 2008 : 18:47:09
You're welcome. Glad I could help.<
philsbbs Posted - 25 May 2008 : 18:38:59
Thanks it does the trick.<
Carefree Posted - 24 May 2008 : 23:50:05
My files are a bit different than yours, but I got mine working. I noticed that you deleted the second inclusion of inc_func_posting, they specifically said that it was necessary to leave that in. May want to consider putting it back.

I modified the checking routine a wee bit to say:

'	##################################### Include SIGs Mod ###############################
		if strSignatures = "1" and strDSignatures <> "1" then
			if ViewSig(MemberID) <> "0" then
				CanShowSignature = 1
				if Request.Form("Sig") = "yes" and GetSig(strDBNTUserName) <> " " then
					txtMessage = txtMessage & vbNewline & vbNewline & ChkString(GetSig(strDBNTUserName), "signature")
				end if
			end if
		end if
'	##################################### Include SIGs Mod End ###########################


I included inc_func_common.asp in my privatesend_info.asp

Here are links to the two files in .txt format:

http://98.25.191.199/privatesend_info.txt
http://98.25.191.199/privatesend.txt<
philsbbs Posted - 24 May 2008 : 16:50:20
has anyone found a solution ?<
philsbbs Posted - 05 May 2008 : 06:31:33
Can you send me the working file.<
cripto9t Posted - 04 May 2008 : 10:13:53
quote:
Originally posted by philsbbs

Done that change and got

1
1
Phil Forum Admin

You,re not getting a value for sig. When that happens to me its usually because of a missing parenthesis and not neccessarily in that line. I don't see anything wrong with the code you've added. I'll add the pm mod to one of my test forums and see if I can get it to working.
quote:

But the message was not sent, not even in out box.
Response.End stopped it. Those lines were temporary to see the form output.<
philsbbs Posted - 30 April 2008 : 10:14:00
bump<
philsbbs Posted - 21 April 2008 : 18:11:54
Done that change and got

1
1
Phil Forum Admin

But the message was not sent, not even in out box.

I've uploaded new .txt see previous message for link.

Please advise.
<
cripto9t Posted - 20 April 2008 : 18:20:05
Response.Write Request.Form("sig") & "<br >" & strSignatures & "<br />" & strDSignatures & "<br />" GetSig(strDBNTUserName)
Request.End

also Request.End should be Response.End
Response.Write Request.Form("sig") & "<br >" & strSignatures & "<br />" & strDSignatures & "<br />" & GetSig(strDBNTUserName)
Response.End

Sorry about that :)<
MaD2ko0l Posted - 19 April 2008 : 21:17:30
Response.Write Request.Form("sig") & "<br >" & strSignatures & "<br />" & strDSignatures & "<br />" & GetSig(strDBNTUserName)
Request.End

;-) add the part in red<
philsbbs Posted - 19 April 2008 : 19:04:55
i got:-

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/privatesend_info.asp, line 48

Response.Write Request.Form("sig") & "<br >" & strSignatures & "<br />" & strDSignatures & "<br />" GetSig(strDBNTUserName)
----------------------------------------------------------------------------------------------------^
<
philsbbs Posted - 19 April 2008 : 19:00:12
Sig to sig had no inpact, about to try next suggestion.<
cripto9t Posted - 17 April 2008 : 18:57:09
Phil, I don't see anything wrong with it.
The input name is spelled "Sig" in Privatesend and "sig" in privatesend_info, so you can start there.
The next step I would take is see if I am getting all the right values.
Add these lines after "<%" in privatesend_info near the top of the page. and try to post a test pm.
Response.Write Request.Form("sig") & "<br >" & strSignatures & "<br />" & strDSignatures & "<br />" GetSig(strDBNTUserName)
Request.End

You should get

yes
1
0
signature text

if one of those values is missing then that's your problem, If not it should be working.<
philsbbs Posted - 17 April 2008 : 15:25:28
cripto9t and news on this.<
philsbbs Posted - 16 April 2008 : 07:30:34
any news on this.<

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