Snitz Forums 2000 - Quick Reply

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Quick Reply

New Topic

Topic Locked

Printer Friendly

Author

Topic

aviv
Junior Member

474 Posts

Posted - 25 July 2002 : 16:55:31

Can some help me with this? i need to add the pop_icon_legend.asp

to the quick replay code.
----------------

Sub QuickReply()
Response.Write " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"">" & vbNewLine & _
" <input name=""strMessageIcon"" type=""hidden"" value=""1"">" & vbNewLine & _
" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine & _
" <input name=""Method_Type"" type=""hidden"" value=""Reply"">" & vbNewLine & _
" <input name=""TOPIC_ID"" type=""hidden"" value=""" & Topic_ID & """>" & vbNewLine & _
" <input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """> " & vbNewLine & _
" <input name=""CAT_ID"" type=""hidden"" value=""" & Cat_ID & """>" & vbNewLine & _
" <input name=""FORUM_Title"" type=""hidden"" value=""" & ChkString(Forum_Subject, "hidden") & """>" & vbNewLine & _
" <input name=""Topic_Title"" type=""hidden"" value=""" & ChkString(Topic_Subject, "hidden") & """>" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & request.servervariables("SCRIPT_NAME") & "?" & Request.QueryString & """>" & vbNewLine & _
" <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
" <input name=""Password"" type=""hidden"" value=""" & Request.Cookies(strUniqueID & "User")("Pword") & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ noWrap vAlign=""top"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>תגובה מהירה</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _

" <td width=""" & strTopicWidthLeft & """ bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>תוכן התגובה: </b></font></td>" & vbNewLine & _

" <td width=""" & strTopicWidthRight & """ bgColor=""" & strPopUpTableColor & """><textarea name=""Message"" rows=""5"" cols=""50"" wrap=""VIRTUAL""></textarea><br></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <input name=""Sig"" type=""checkbox"" value=""yes"" checked>סמן על מנת לכלול את חתימתך בהודעה.<br></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap align=""center"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><input name=""Submit"" type=""submit"" value=""שלח תגובה""><input name=""Preview"" type=""button"" value="" תצוגה מקדימה "" onclick=""OpenPreview()""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </form>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
end sub

%>

--------------------

what do i need to do?!

ThanX
Aviv
Hebrew Snitz support center

Hamlin
Advanced Member

United Kingdom
2386 Posts

Posted - 25 July 2002 : 17:22:43

try this

No matter how fast light travels it finds the darkness has always got there first, and is waiting for it.
http://www.ian-hamlin.co.uk ™

EDIT - Am i going mad, if I saved that as .txt it should show in my browser.....woof woof.

You may have to go view source.

Edited by - Hamlin on 25 July 2002 17:24:36

aviv
Junior Member

474 Posts

Posted - 25 July 2002 : 18:23:49

i'm getting this error:

Type mismatch: 'QuickReply'

/forum2/topic.asp, line 725

ThanX
Aviv
Hebrew Snitz support center

Hamlin
Advanced Member

United Kingdom
2386 Posts

Posted - 25 July 2002 : 18:28:46

Opps I seem to have removed the Sub QuickReply() and End Sub parts add those back around the code.

No matter how fast light travels it finds the darkness has always got there first, and is waiting for it.
http://www.ian-hamlin.co.uk ™

aviv
Junior Member

474 Posts

Posted - 26 July 2002 : 05:30:35

i did it-it's much better now but i'm having 'error on page'/
\and when pressing on the icon no code added to the message.

ThanX
Aviv
Hebrew Snitz support center

aviv
Junior Member

474 Posts

Posted - 26 July 2002 : 05:53:13

it's working now-thanx a lot.

ThanX
Aviv
Hebrew Snitz support center

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.38 seconds.