| Author |
 Topic  |
|
|
bezalel
Starting Member
3 Posts |
 Posted - 03 June 2001 : 19:17:54
|
Hey guys - I am really impressed with this package, and I am looking forward to deploying it on several sites.
Unfortunately, I am currently experiencing the following error. In different parts of the admin.
Microsoft VBScript compilation error '800a0400'
Expected statement
/forum/post_info.asp, line 372
end if
I have reuploaded everything twice. It is running on a co-located W2k Server.
I currently have it set to the DNSless configuration of
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Webserver\jameswardmusic.com\database\snitz_forums_2000.mdb;" '## MS Access 2000
I am using the version of Snitz_Forums_2000_V3_1_SR4
I am going to try the earlier 2.o version and maybe even the alph version or try to go with a DSN connection. The form has no problem pulling everything up. It is just selectively throwing this error when I try to update/change anything
the forum is at http://216.15.242.59/forum/
I welome you to reproduce the error. the Admin is the standard default one
Greatly appreciative
matthew lipscomb
Bezalel Technologies
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 03 June 2001 : 20:36:10
|
Sounds like you made some modification or the file got corrupted.
Can you post what is on your line 372 and 10 lines before that, of the post_info.asp page?quote:
I am going to try the earlier 2.o version and maybe even the alph version or try to go with a DSN connection.
No need to do any of that. One little error and you're ready to scrap the whole thing? 
|
 |
|
|
bezalel
Starting Member
3 Posts |
Posted - 03 June 2001 : 22:48:16
|
quote:
Can you post what is on your line 372 and 10 lines before that, of the post_info.asp page?
sure
these are lines 350 to 384
Up until this point I have not opened it up in anything. I did download this and unzip/config/upload it on a mac. I will bounce down into Virtual PC and see if there is something that got messed up somehow. If so - then this is really the first time I have seen this sort of thing.
I appreciate you quick response
Da Code:
<%
Response.End
else
Go_Result "Updated OK", 1
end if
else
%>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">There Was A Problem With Your Details</font></p>
<table align=center border=0>
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<ul>
<% =Err_Msg %>
</ul>
</font></td>
</tr>
</table>
<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">Go Back To Enter Data</a></font></p>
<% end ifend ifif Request.Form("Method_Type") = "Topic" then '## Forum_SQL strSql = "SELECT MEMBER_ID, M_LEVEL, M_EMAIL, "&Strdbntsqlname if strAuthType = "db" then strSql = strSql & ", M_PASSWORD " end if strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE "&Strdbntsqlname&" = '" & STRdbntUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 if strAuthType = "db" then strSql = strSql & " AND M_PASSWORD = '" & Request.Form("Password") &"'" QuoteOk = (ChkQuoteOk(STRdbntUserName) and ChkQuoteOk(Request.Form("Password"))) else QuoteOk = ChkQuoteOk(Session(strCookieURL & "userid")) end if set rs = my_Conn.Execute (strSql) if rs.BOF or rs.EOF or not(QuoteOk) then '## Invalid Password Go_Result "Invalid UserName or Password", 0%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
else
if not(chkForumAccess(Request.Form("FORUM_ID"))) then
Go_Result "You are not allowed to post in this forum !", 0
end if
txtMessage = ChkString(Request.Form("Message"),"message")
txtSubject = ChkString(Request.Form("Subject"),"title")
if txtMessage = " " then
Go_Result "You must post a message!", 0
%>
|
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 03 June 2001 : 23:04:53
|
Well, I still don't know what line 372 is.
But looking at the middle section of the code you posted, it seems jumbled up.
Try re-uploading the post_info.asp file again. If that doesn't work, post a link to a .txt version of your post_info.asp file that you have and I'll see if it is messing up when uploaded.
|
|
|
|
bezalel
Starting Member
3 Posts |
Posted - 03 June 2001 : 23:46:25
|
I Dropped down into Virtual PC and downloaded/unzipped/uploaded everything from there. The error is G O N E. This leaves me to believe the the code was altered/changed someway when it was unizipped on the mac side. I have worked on the mac for years and I have never really seen this before. I have had Dreamweaver mess pages up but never unzipping them on the mac side.
Dreamweaver says that Line 372 is
<%
end if
end if (<------line 372)
if Request.Form("Method_Type") = "Topic" then
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_LEVEL, M_EMAIL, "&Strdbntsqlname
if strAuthType = "db" then
strSql = strSql & ", M_PASSWORD "
end if
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE "&Strdbntsqlname&" = '" & STRdbntUserName & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1
if strAuthType = "db" then
strSql = strSql & " AND M_PASSWORD = '" & Request.Form("Password") &"'"
QuoteOk = (ChkQuoteOk(STRdbntUserName) and ChkQuoteOk(Request.Form("Password")))
else
QuoteOk = ChkQuoteOk(Session(strCookieURL & "userid"))
end if
set rs = my_Conn.Execute (strSql)
if rs.BOF or rs.EOF or not(QuoteOk) then '## Invalid Password
Go_Result "Invalid UserName or Password", 0
%>
I appreciate your quick help and suggestions. If there is anything I can further do ( such as sending this ASP page to you) then I would be happy to do that so that other Mac developers don't get snagged, though I am wondering if it might actually be some kind of setting i have set in the prefs
once again - thanks!
|
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 03 June 2001 : 23:51:28
|
Nope. That's ok. Just glad to see you got it working.
It happens not only on Macs. I've seen it happen to other PC users before. It's just one of those times when the ftp program feels like chewing up some of the files it is sending. I think you just gotta feed it more often.  
|
|
|
| |
Topic |
|
Topic Locked
