| Author |
 Topic  |
|
|
aston
New Member
Andorra
51 Posts |
 Posted - 04 April 2001 : 01:37:40
|
I use that but it doesn`t work!!
:(
______________________
Fly me to the Moon
|
|
|
Da_Stimulator
DEV Team Forum Moderator
USA
3373 Posts |
Posted - 04 April 2001 : 16:22:41
|
There are alot of code changes in several places, make sure they are all correct.
----------------
Da_Stimulator
Need a Mod?
My Snitz Test Center
|
 |
|
|
blackinwhite
Average Member
Turkey
657 Posts |
Posted - 05 April 2001 : 16:45:36
|
I get this one, when I run it.
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/forum/post_info.asp, line 70
strFormSubject = replace(request.form("Subject"), Chr(34), """) ' Subject
-------------------------------------------------------------------------^
|
|
|
|
rick7165
Senior Member
USA
1094 Posts |
Posted - 05 April 2001 : 17:10:45
|
I can't get it to work either...
I can go reply.. but when I hit "Post New Reply" I get "The page cannot be displayed"
There is only 2 things to do to the post_info.asp file..
just add 2 things don't understand what I did wrong 
Rick
Test Site
www.eastpasco.com
Running on HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser. |
|
|
|
johngo33
Starting Member
14 Posts |
Posted - 05 April 2001 : 22:08:18
|
strTempFormMessage = Replace(request.form("Message"), Chr(34), """) 'Message for sending
should be:
strTempFormMessage = Replace(request.form("Message"), Chr(34), """) 'Message for sending
|
|
|
|
rick7165
Senior Member
USA
1094 Posts |
Posted - 05 April 2001 : 22:49:33
|
ok.. Can anyone help me?
I've copied a section of my code and put it here... let me know if you see anything that's out of place?
I've added the <% end if %> At the very end of the post_info.asp file... the rest works until I hit the
button to preview it.
Here is my pop_info.asp file http://www.eastpasco.com/tools/post_info.txt
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<%
if strAuthType = "db" then
strDBNTUserName = Request.Form("UserName")
end if
set rs = Server.CreateObject("ADODB.RecordSet")
err_Msg = ""
ok = ""
if ((request.form("Method_Type") = "Topic" or request.form("Method_Type") = "Reply" or request.form("Method_Type") = "ReplyQuote") and (request.form("newPreview") = "yes")) then
strFormMType = request.form("Method_Type")
strFormType = request.form("Type")
strFormTopicId = request.form("TOPIC_ID")
strFormReplyId = request.form("REPLY_ID")
strFormForumId = request.form("FORUM_ID")
strFormCatId = request.form("CAT_ID")
strFormAuthor = request.form("Author")
strFormModId = request.form("Mod_ID")
strFormCatTitle= request.form("Cat_Title")
strFormForumTitle = request.form("FORUM_Title")
strFormTopicTitle = request.form("Topic_Title")
strFormM = request.form("M")
strFormRefer = request.form("Refer")
strFormCookies = request.form("cookies")
strFormUsername = request.form("UserName") ' UserName
strFormPassword = request.form("Password") ' Password
strFormSubject = replace(request.form("Subject"), Chr(34), """) ' Subject
strFormMessage = ChkString(request.form("Message"), "message")
strTempFormMessage = Replace(request.form("Message"), Chr(34), """) 'Message for sending
strTempFormMessage = Replace(strTempFormMessage, "'", "''") 'Message for Sending
strFormSig = request.form("Sig") ' Show Sig?
strFormLock = request.form("lock")
if strFormLock = "" then
strFormLock = 0
end if
if strFormSig = "yes" then
strTempSignature = getSig(strFormUsername)
end if
response.write "<table border=0 bgcolor=""" & strTableBorderColor & """ cellspacing=1 width=95% cellpadding=3 align=""center"">" & vbcrlf _
& "<tr><td align=""center"" bgcolor=""" & strHeadCellColor & """><font color=""" & strHeadFontColor _
& """ face=""" & strDefaultFontFace & """>" & vbcrlf _
& "Below is a Preview of your message</font>" & vbcrlf & "</td>" & vbcrlf & "</tr>" & vbcrlf
response.write "<tr><td align=""left"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" _
& formatStr(strFormMessage) & "<p>" & formatStr(strTempSignature) & "</font>" & vbcrlf & "</td>" & vbcrlf & "</tr>" & vbcrlf & "</table>"
response.write "<p>"
response.write "<form action=""post_info.asp"" method=""post"">" & vbcrlf
response.write "<input type=""hidden"" name=""Method_Type"" value=""" & strFormMType & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Type"" value=""" & strFormType & """>" & vbcrlf
response.write "<input type=""hidden"" name=""TOPIC_ID"" value=""" & strFormTopicId & """>" & vbcrlf
response.write "<input type=""hidden"" name=""REPLY_ID"" value=""" & strFormReplyId & """>" & vbcrlf
response.write "<input type=""hidden"" name=""FORUM_ID"" value=""" & strFormForumId & """>" & vbcrlf
response.write "<input type=""hidden"" name=""CAT_ID"" value=""" & strFormCatId & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Author"" value=""" & strFormAuthor & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Mod_Id"" value=""" & strFormModId & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Cat_Title"" value=""" & strFormCatTitle & """>" & vbcrlf
response.write "<input type=""hidden"" name=""FORUM_Title"" value=""" & strFormForumTitle & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Topic_Title"" value=""" & strFormTopicTitle & """>" & vbcrlf
response.write "<input type=""hidden"" name=""M"" value=""" & strFormM & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Refer"" value=""" & strFormRefer & """>" & vbcrlf
response.write "<input type=""hidden"" name=""cookies"" value=""" & strFormCookies & """>" & vbcrlf
response.write "<input type=""hidden"" name=""UserName"" value=""" & strFormUsername & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Password"" value=""" & strFormPassword & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Subject"" value=""" & strFormSubject & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Message"" value=""" & strTempFormMessage & """>" & vbcrlf
response.write "<input type=""hidden"" name=""Sig"" value=""" & strFormSig & """>" & vbcrlf
response.write "<input type=""hidden"" name=""lock"" value=""" & strFormLock & """>" & vbcrlf
response.write "<input type=""button"" value="" Back "" onClick=""history.go(-1)"">"
response.write "<input type=""submit"" value="" Submit "">" & vbcrlf & "</form>"
%>
<!--#include file="inc_footer.asp" -->
<%
else
if Request.Form("Method_Type") = "Edit" then
member = cint(ChkUser(strDBNTUserName, Request.Form("Password")))
Select Case Member
case 0 '## Invalid Pword
Go_Result "Invalid Password or UserName", 0
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
case 1 '## Author of Post so OK
'## Do Nothing
case 2 '## Normal User - Not Authorised
Go_Result "Only Admins, Moderators and the Author can change this post", 0
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
case 3 '## Moderator so OK - check the Moderator of this forum
if chkForumModerator(Request.Form("FORUM_ID"), STRdbntUserName) = "0" then
Go_Result "Only Admins, Moderators and the Author can change this post", 0
end if
case 4 '## Admin so OK
'## Do Nothing
case else
Go_Result cstr(Member), 0
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
I've tried what johngo33 said above and still doesn't work.
Test Site
www.eastpasco.com
Running on HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Edited by - rick7165 on 05 April 2001 23:04:38 |
|
|
|
blackinwhite
Average Member
Turkey
657 Posts |
Posted - 06 April 2001 : 06:19:30
|
quote:
strTempFormMessage = Replace(request.form("Message"), Chr(34), """) 'Message for sending
should be:
strTempFormMessage = Replace(request.form("Message"), Chr(34), """) 'Message for sending
it weorked bu tnow I get this error:
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
/forum/post_info.asp, line 710
|
|
|
|
rick7165
Senior Member
USA
1094 Posts |
Posted - 06 May 2001 : 14:16:32
|
Has anyone figured out this problem? I have the same problem.
quote:
I get this one, when I run it.
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/forum/post_info.asp, line 70
strFormSubject = replace(request.form("Subject"), Chr(34), """) ' Subject
-------------------------------------------------------------------------^
Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser. |
|
|
| |
Topic |
|
Topic Locked
