| Author |
 Topic  |
|
Huntress
New Member
USA
96 Posts |
 Posted - 28 December 2002 : 11:26:49
|
Hi all!
On serverhackers code base he is using the 7.1 beta, and we have folks asking about the usage of Type and DB Page Key.
Can anyone comment on the purpose and usage of these settings?
Thanks!
Diana |
 |
|
|
ManniX
Starting Member
20 Posts |
Posted - 09 January 2003 : 14:33:33
|
Im up to the point where i've added the dims and applications to config.asp and then i got to open the forums to "reinitiate the application variables" but i get this error:
Microsoft VBScript compilation error '800a0411'
Name redefined
/config.asp, line 129
Dim StrIPGateBan ,StrIPGateLck ,StrIPGateCok ,StrIPGateMet ,StrIPGateMsg ,StrIPGateLog ,StrIPGateTyp ,StrIPGateExp
----^
This seems really obvious but for a noob like me i just dont get what to do now. |
|
|
|
rsoxhater
Junior Member
120 Posts |
Posted - 14 January 2003 : 23:57:34
|
| Anyone have a copy of the latest release of this? I could def. use it - thanks! |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
|
|
ManniX
Starting Member
20 Posts |
Posted - 19 January 2003 : 16:41:30
|
| So i've installed the mod and everything appears to be fine, until i want to bas somebody and it just doesn't work. Banning is on and I add the IP and username as usual but he just keeps coming back. What can I do? |
|
|
|
KMC
Starting Member
40 Posts |
Posted - 19 January 2003 : 16:42:11
|
I'm having the same problem a few others here have mentioned. Logging is not working. I've included <!--#INCLUDE FILE="inc_ipgate.asp"--> first at line 235 then at line 236 of inc_header.asp....
quote:
Response.Write "<html>" & vbNewline & vbNewline & _
"<head>" & vbNewline & _
"<title>" & GetNewTitle(strScriptName) & "</title>" & vbNewline
<!--#INCLUDE FILE="inc_ipgate.asp"-->
'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
I've read through everything here and still can't get it going.
Help!??? |
|
|
|
ManniX
Starting Member
20 Posts |
Posted - 19 January 2003 : 16:53:38
|
Lol ignore my last post. i was being stupid.
I was adding the IP to the list of IPs but then not submitting the new configuration at the main IPGate screen. Whoops. |
|
|
|
TERM
New Member
82 Posts |
Posted - 21 January 2003 : 05:17:14
|
Im getting this error can someone help me please.
quote:
Response object error 'ASP 0156 : 80004005'
Header Error
/testboard/config.asp, line 42
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.
This is lines 41-45
quote:
Session.LCID = 1033 '## Do Not Edit
Response.Buffer = true
dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix, strFilterTablePrefix '## Do Not Edit
Dim counter, ConnErrorNumber, ConnErrorDesc, blnSetup '## Do Not Edit
I am not sure that I put the code into inc_header.asp properly either, here is where I put it. Lines 321-363
quote:
call sForumNavigation()
Response.Write "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
select case Request.Form("Method_Type")
case "login"
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
if strLoginStatus = 0 then
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Your username and/or password were incorrect.</font></p>" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Please either try again or register for an account.</font></p>" & vbNewLine
else
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You logged on successfully!</font></p>" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Thank you for your participation.</font></p>" & vbNewLine
end if
Response.Write "<meta http-equiv=""Refresh"" content=""2; URL=" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & Request.ServerVariables("HTTP_REFERER") & """>Back To Forum</font></a></p>" & vbNewLine & _
"<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine
WriteFooter
Response.End
'########### IP Gate ##################### %>
<!--#INCLUDE FILE="inc_ipgate.asp"-->
<% '##########IP Gate ################
case "logout"
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You logged out successfully!</font></p>" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Thank you for your participation.</font></p>" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine & _
"<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine
WriteFooter
Response.End
end select
I never had the %><% on the include, but it was giving me errors, so I added it, and the error went to config.asp, so I dont know if thats a direct result or not, but it was saying "expected statement"
This is the latest version v.8 If anymore information would make diagnosing those problem easier, PLEASE let me know, I have a problem user(s) on my board and simple name ban isnt doing anything. |
|
|
|
Chuck McB
Junior Member
WooYay
196 Posts |
Posted - 21 January 2003 : 17:10:12
|
| TERM, you getting that error when you try to go to the admin page? |
|
|
|
TERM
New Member
82 Posts |
Posted - 21 January 2003 : 22:07:07
|
| yes i am |
|
|
|
Chuck McB
Junior Member
WooYay
196 Posts |
Posted - 22 January 2003 : 08:14:53
|
| delete the first line from admin page, it says something like <title>.........</title> |
|
|
|
TERM
New Member
82 Posts |
Posted - 23 January 2003 : 03:36:21
|
awesome.. Thanks..
|
|
|
|
TERM
New Member
82 Posts |
Posted - 23 January 2003 : 03:52:57
|
New Error
quote:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/forum/inc_ipgate.asp, line 116
Here is lines 116-142
quote:
rs1.Open StrSql, strConnString
if (not rs1.eof and not rs1.bof) or (StrIPGateCok <> 0 and Request.Cookies("IPGate") <> "") then 'check for db ips & user cookies
Set rs3 = Server.CreateObject("ADODB.Recordset")
StrSql = "INSERT into " & strTablePrefix & "IPLOG (IPLOG_MEMBERID, IPLOG_IP, IPLOG_PATHINFO, IPLOG_DATE) "
StrSql = StrSql & "values ('" & strDBNTUserName & "','" & userip & "','" & pagereq & "','" & userdate & "')"
rs3.Open StrSql, strConnString
if rs3.State = 1 then rs3.Close
set rs3 = nothing
else
rs1.close
end if
Case 1 'log all ips
StrSql = "INSERT into " & strTablePrefix & "IPLOG (IPLOG_MEMBERID, IPLOG_IP, IPLOG_PATHINFO, IPLOG_DATE) "
StrSql = StrSql & "values ('" & strDBNTUserName & "','" & userip & "','" & pagereq & "','" & userdate & "')"
rs1.Open StrSql, strConnString
end select
if rs1.State = 1 then rs1.Close
set rs1 = nothing
end function
|
|
|
|
Chuck McB
Junior Member
WooYay
196 Posts |
Posted - 23 January 2003 : 07:36:48
|
Is the start of the function? (line: 101 - 108 ish)
function logip()
Set rs1 = Server.CreateObject("ADODB.Recordset")
Select Case StrIPGateTyp
Case 0 'log db ips only
StrSql = "SELECT IPLIST_STARTDATE, IPLIST_ENDDATE, IPLIST_STATUS, IPLIST_DBPAGEKEY "
StrSql = StrSql & "FROM " & strTablePrefix & "IPLIST"
..... |
|
|
|
TERM
New Member
82 Posts |
Posted - 23 January 2003 : 19:12:16
|
it was rs2 for "Set rs1"
but it still gives me same error when i change it.
|
|
|
|
Topic |
|
Topic Locked
