| Author |
 Topic  |
|
|
NiceAlien
Starting Member
9 Posts |
 Posted - 23 January 2003 : 07:46:52
|
I installed the mod and changed the files, but i always get the same failure notice, when I go to Admin options:
Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'
Syntaxfehler
/iisHelp/common/500-100.asp, line 160
elseIf (objASPError.Description > "") Then
^
Kompilierungsfehler in Microsoft VBScript- Fehler '800a0400'
Anweisung erwartet
/Snitz4/admin_home.asp, line 133
" <LI><span class=""spnMessageText""><a href=""admin_config_members.asp"">Mitglieder-Detailkonfiguration</a></span></LI>" & vbNewLine & _
^
_________________________________________________________________________________________
another installed Mods are: Newsletter and Avatar
Thanks for help |
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
NiceAlien
Starting Member
9 Posts |
Posted - 23 January 2003 : 08:10:55
|
my admin_home.asp:
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!-- #INCLUDE FILE="nlform.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
'## Forum_SQL - Get membercount from DB
strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
User_Count = rs("U_COUNT")
else
User_Count = 0
end if
rs.close
set rs = nothing
select case strDBType
case "access"
if instr(strConnString, Server.MapPath("snitz_forums_2000.mdb"))> 0 then
Response.Write " <br />" & vbNewLine & _
" <table border=""1"" width=""100%"" bgcolor=""red"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font color=""white"" size=""2"">" & _
"<b>WARNUNG:</b> Der Ort der Datenbank ist möglicherweise nicht sicher.<br /><br />" & _
"Sie sollten die Datenbank von <b>" & Server.MapPath("snitz_forums_2000.mdb") & "</b> in einen Ordner kopieren, der nicht via URL erreichbar ist." & _
" Das Umbenennen der Datenbank wird empfohlen." & _
"<br /><br /><i>(Denken Sie daran, die config.asp entsprechend anzupassen.)</i>" & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
case "sqlserver"
if instr(lcase(strConnString), ";uid=sa;")> 0 then
Response.Write " <br />" & vbNewLine & _
" <table border=""1"" width=""100%"" bgcolor=""red"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font color=""white"" size=""2"">" & _
"<b>WARNUNG:</b> Sie verbinden zu Ihrer MS SQL Server Datenbank mit dem <b>SA</b> Benutzer Account.<br /><br />" & _
"Nachdem die Installation abgeschlossen ist, sollten Sie einen neuen Benutzer mit eingeschränkten Rechten anlegen." & _
" Benutzen Sie diesen Account für Ihre Verbindung zur Datenbank." & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
case "mysql"
if instr(lcase(strConnString), ";uid=root;")> 0 then
Response.Write " <br />" & vbNewLine & _
" <table border=""1"" width=""100%"" bgcolor=""red"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font color=""white"" size=""2"">" & _
"<b>WARNUNG:</b> Sie verbinden zu Ihrer MySQL Server Datenbank mit dem <b>ROOT</b> Benutzer Account.<br /><br />" & _
"Nachdem die Installation abgeschlossen ist, sollten Sie einen neuen Benutzer mit eingeschränkten Rechten anlegen." & _
" Benutzen Sie diesen Account für Ihre Verbindung zur Datenbank." & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
end select
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">Alle Foren</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Administration<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Administrative Funktionen</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" <p><b>Forum-Funktionskonfiguration:</b>" & vbNewLine & _
" <UL>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_system.asp"">Forum-Grundkonfiguration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""nladmin.asp"">Newsletter Administration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_features.asp"">Funktionseinstellung </a></span></LI>" & vbNewLine
if strAuthType = "nt" then
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_NT_features.asp"">NT-Funktions-Konfiguration</a></span></LI>" & vbNewLine
end if
Response.Write
" <LI><span class=""spnMessageText""><a href=""admin_config_members.asp"">Mitglieder-Detailkonfiguration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_ranks.asp"">Rang-Konfiguration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_datetime.asp"">Server- Datum/Zeit -Konfiguration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_email.asp"">Email-Server-Konfiguration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_colors.asp"">Schrift/Tabellen-Farbeinstellung</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_badwords.asp')"">Wortfilter</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_namefilter.asp')"">Benutzernamen-Filter</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_order.asp')"">Anordnung der Kategorien/Foren</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_activeusers.asp"">" & fLang(strLangMOD_Ls3kAU_05000) & "</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""nladmin.asp"">Newsletter Administration</a></span></LI>" & vbNewLine & _
" </UL></p>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" <p><b>Weitere Konfigurationen, Optionen und Funktionen:</b>" & vbNewLine & _
" <UL>" & vbNewLine
if strEmailVal = "1" then Response.Write(" <LI><span class=""spnMessageText""><a href=""admin_accounts_pending.asp"">Laufende Registrierungen</a></span> <font size=""" & strFooterFontSize & """>(" & User_Count & ")</font></LI>" & vbNewLine)
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_moderators.asp"">Moderator-Setup</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_emaillist.asp"">Email-Liste</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_avatar_home.asp"">Avatar Setup</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_info.asp"">Server-Informationen</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_variable_info.asp"">Forum-Variablen-Informationen</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""nladmin.asp"">Newsletter Administration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_count.asp"">Forum-Zähler aktualisieren</a></span></LI>" & vbNewLine
if strArchiveState = "1" then Response.Write(" <LI><span class=""spnMessageText""><a href=""admin_forums.asp"">Forum-Themen archivieren</a></span></LI>" & vbNewLine)
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_groupcats.asp"">Konfiguration der Gruppierungen</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_mod_dbsetup.asp"">MOD-Setup</a></span><font size=""" & strFooterFontSize & """> (<span class=""spnMessageText""><a href=""admin_mod_dbsetup2.asp"">Alternatives MOD-Setup</a></span>)</font></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""setup.asp"">Installation prüfen</a></span><font size=""" & strFooterFontSize & """><b> (Nach jeder Aktualisierung durchführen !)</b></font></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""nladmin.asp"">Newsletter Administration</a></span></LI>" & vbNewLine & _
" </UL></p>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
'Response.Write " <tr>" & vbNewLine & _
'" <td bgcolor=""" & strForumCellColor & """ valign=""top"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
'" <p><b>Important Information from Snitz Forums 2000:</b>" & vbNewLine & _
'" <script type=""text/javascript"" src=""http://forum.snitz.com/forum/syndicate.asp""></script></p></font></td>" & vbNewLine & _
'" </tr>" & vbNewLine
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
WriteFooter
Response.End
%>
|
 |
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
NiceAlien
Starting Member
9 Posts |
Posted - 27 January 2003 : 04:54:14
|
| It is a test server in a network. I can't post a Link to a .txt version of my admin_home.asp |
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 27 January 2003 : 05:03:04
|
Locate this in your admin_home.asp:
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_order.asp')"">Anordnung der Kategorien/Foren</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_activeusers.asp"">" & fLang(strLangMOD_Ls3kAU_05000) & "</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""nladmin.asp"">Newsletter Administration</a></span></LI>" & vbNewLine & _
" </UL></p>" & vbNewLine & _
Remove the blank line above the red-marked line, which should fix your problem. |
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
|
NiceAlien
Starting Member
9 Posts |
Posted - 27 January 2003 : 08:41:04
|
thank's for help
now it works !
|
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
|
| |
Topic |
|
Topic Locked
