|
aviv
Junior Member
474 Posts |
 Posted - 19 July 2002 : 02:46:13
|
I'm trying to add the pop_icon_legend.asp to my quick Replay.
this is my code (can some one tell me how to add it?)
----------------
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
%>
-------------------
ThanX
Aviv
Hebrew Snitz support center |
|
Topic Locked
