Snitz Forums 2000
Home
|
Profile
|
Register
|
Active Topics
|
Members
|
Search
|
FAQ
Username:
Password:
Save Password
Forgot your Password?
All Forums
Snitz Forums 2000 MOD-Group
MOD Add-On Forum (W/Code)
Site Info
New Topic
Topic Locked
Printer Friendly
Author
Topic
Amphinon
New Member
USA
96 Posts
Posted - 28 January 2003 : 11:34:30
I wanted a place on my admin_home.asp where I could have specific information about my webserver and my site. This code does
not
work with Brinkster.
Here is what I have now...
It is simple. Open your admin_home.asp and look for this code around line number 180
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_groupcats.asp"">Group Categories Configuration</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"">Alternative MOD Setup</a></span>)</font></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""setup.asp"">Check Installation</a></span><font size=""" & strFooterFontSize & """><b> (Run after each upgrade !)</b></font></LI>" & vbNewLine & _
" </UL></p>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Then copy this text immediatly below it:
%>
<div align="center">
<center>
<table border="0" cellpadding="2" bgcolor="#FBFBFB" width="400">
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">ServerName</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% = Request.ServerVariables("SERVER_NAME") %>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">ScriptName</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% = Request.ServerVariables("SCRIPT_NAME") %>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">ServerProtocol</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% = Request.ServerVariables("SERVER_PROTOCOL") %>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">PathInfo</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% = Request.ServerVariables("PATH_INFO") %>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">File
System Object</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set ObjScripting = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Installed")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">ADODB</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set objCDONTS = Server.CreateObject("CDONTS.Session")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Version: " & objCDONTS.Version & " Installed ")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">CDONTS</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set ADODB = Server.CreateObject("ADODB.Connection")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Version: " & ADODB.Version & " Installed ")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">SMTPMail</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set objSMTPMail = Server.CreateObject("SoftArtisans.SMTPMail")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Version: " & objSMTPMail.Version & " Installed ")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">JMail</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set JMail = Server.CreateObject("JMail.SMTPMail")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Version: " & JMail.Version & " Installed ")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">AspEmail</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set AspEmail = Server.CreateObject("Persits.MailSender")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Installed")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">Safileup</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set objSAFILEUP = Server.CreateObject("SoftArtisans.FileUp")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Installed")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">Dundas
Upload</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set objDundas = server.CreateObject("Dundas.Upload.2")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Installed")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">ASPImage</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% Err.Clear
On Error Resume Next
Set ASPImage = Server.CreateObject("AspImage.Image")
If Err.Number <> 0 Then
Response.Write("<B>Not Installed</B> ")
Else
Response.Write("Version: " & ASPImage.Version & " Installed ")
End If
%>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">Type</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% = ScriptEngine %>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">Version</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% =ScriptEngineMajorVersion() %>
.<% =ScriptEngineMinorVersion() %>
</font></td>
</tr>
<tr>
<td bgcolor="#E8E8E8" width="190" align="right"><b><font face="Verdana" size="2">Build</font></b></td>
<td bgcolor="#E8E8E8" width="578"><font size="2" face="Arial"><% =ScriptEngineBuildVersion() %>
</font></td>
</tr>
<tr>
<td width="190" valign="top" bgcolor="#E8E8E8" align="right"><font size="2" face="Verdana"><b>Site
Start Date</b></font></td>
<td width="578" valign="top" bgcolor="#E8E8E8"><font size="2" face="Arial">August
22, 2000</font></td>
</tr>
<tr>
<td width="190" valign="top" bgcolor="#E8E8E8" align="right"><font size="2" face="Verdana"><b>Site
Size</b></font></td>
<td width="578" valign="top" bgcolor="#E8E8E8"><font size="2" face="Arial"><% Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder("d:\html\users\myrokencom")
FormatNumberDemo = FormatNumber(fold.size, 2)
If FormatNumberDemo < 999 then
FormatNumberDemo = (Int(FormatNumberDemo * 100))/100
Response.Write FormatNumberDemo & " Bytes"
ElseIf FormatNumberDemo < 999999 then
FormatNumberDemo = (FormatNumberDemo/1000)
FormatNumberDemo = (Int(FormatNumberDemo * 100))/100
Response.Write FormatNumberDemo & " KB"
ElseIf FormatNumberDemo < 999999999 then
FormatNumberDemo = (FormatNumberDemo/1000000)
FormatNumberDemo = (Int(FormatNumberDemo * 100))/100
Response.Write FormatNumberDemo & " MB"
ElseIf FormatNumberDemo < 999999999999 then
FormatNumberDemo = (FormatNumberDemo/1000000000)
FormatNumberDemo = (Int(FormatNumberDemo * 100))/100
Response.Write FormatNumberDemo & " GB"
End If
set fold = nothing
set fso = nothing%>
</font></td>
</tr>
<tr>
<td width="190" valign="top" bgcolor="#E8E8E8" align="right"><font size="2" face="Verdana"><b>Pages</b></font></td>
<td width="578" valign="top" bgcolor="#E8E8E8"><font size="2" face="Arial">366</font></td>
</tr>
<tr>
<td width="190" bgcolor="#E8E8E8" valign="top" align="right"><font size="2" face="Verdana"><b>Software</b></font></td>
<td width="578" bgcolor="#E8E8E8" valign="top"><font face="Arial" size="2"><a href="http://forum.snitz.com"><font color="#000000">Snitz
Forums 2000</font></a></font></td>
</tr>
<tr>
<td width="190" bgcolor="#E8E8E8" valign="top" align="right">
<p align="right"><b><font size="2" face="Verdana">Hosting</font></b></td>
<td width="578" bgcolor="#E8E8E8" valign="top"><a href="http://www.readyhosting.com"><font color="#000000" face="Arial" size="2">ReadyHosting.com</font></a></td>
</tr>
<tr>
<td width="190" bgcolor="#E8E8E8" valign="top" align="right"><font face="Verdana" size="2"><b>Domain
Registration</b></font></td>
<td width="578" bgcolor="#E8E8E8" valign="top"><a href="http://www.directnic.com"><font color="#000000" face="Arial" size="2">DirectNIC.com</font></a></td>
</tr>
<tr>
<td width="190" bgcolor="#E8E8E8" valign="top" align="right"><font size="2" face="Verdana"><b>Owner/Webmaster</b></font></td>
<td width="578" bgcolor="#E8E8E8" valign="top"><a href="mailto:webmaster@myroken.com"><font color="#000000" face="Arial" size="2">David
Dyer</font></a></td>
</tr>
</table>
</center>
</div>
<%
Save then go into your admin home and look at the bottom.
David Dyer
http://www.myroken.com
Snitz Forums Ver. 3.4.03
Edited by - Amphinon on 28 January 2003 12:55:57
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts
Posted - 28 January 2003 : 11:46:06
[edit]
Code removed untill bug free
[/edit]
Hope you dont mind me workin on this to get it to work on brinkster and try and get out all of the hardcoded parts
De Priofundus Calmo Ad Te Damine
Edited by - PeeWee.Inc on 28 January 2003 12:29:35
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts
Posted - 28 January 2003 : 11:47:45
Ok, maybe it will still not work with Brinkster... *tinkers*
De Priofundus Calmo Ad Te Damine
Amphinon
New Member
USA
96 Posts
Posted - 28 January 2003 : 12:33:10
I don't mind.
It does work on Access and DNS connections.
Not sure about SQL and Brinkster.
David Dyer
http://www.myroken.com
Snitz Forums Ver. 3.4.03
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts
Posted - 28 January 2003 : 12:49:49
Brinkster dont allow Server.CreateObject so it kicks up a few errors.
De Priofundus Calmo Ad Te Damine
Topic
New Topic
Topic Locked
Printer Friendly
Jump To:
Select Forum
Announcements
Announcements: Security Related Bug Fixes
Announcements: Community
Announcements: New Releases
A Testing Area
Testing Forums
Help Groups for Snitz Forums 2000 Users
Help: General / MVC version(v1.XX)
Help: General / Classic ASP versions(v3.4.XX)
Help: General / Previous versions
Help: Database: MS Access
Help: Database: MS SQL Server
Help: Database: MySql
Help: Mail Configuration
Help: MOD Implementation
Help: Authentication: NT
Help: General / Current Version (Old)
Frequently Asked Questions
FAQ About This Site
HOW DO I FAQs
FAQs for Using Snitz with Access
FAQs for Using Snitz with mySQL
FAQs for Using Snitz with SQLServer
FAQ for Beginners to Snitz Forums
FAQ For Developers
FAQ for Webmasters
FAQ Addition Requests
Snitz Forums 2000 MOD-Group
Mod Integration Project (BUG Reports)
MOD Completed Add-Ons
MOD Add-On Forum (W/Code)
MOD Add-On Forum (W/O Code)
Community Forums
Graphics & Style in Snitz!
Suggest forum.snitz.com Content
Show-Off Your Forums
Code Support: ASP (Non-Forum Related)
Code Support: ASP.NET (Non-Forum Related)
Community Discussions (All other subjects)
Snitz Forums 2000 DOC-Group
DOC Discussion
DOC In-Box
DOC Out-Box
Snitz Forums 2000 DEV-Group
DEV Bug Reports (Open)
DEV Discussions (General)
DEV Discussions (Oracle)
DEV Discussions (VFP)
DEV Bug Reports (Closed)
DEV Internationalization (v4-archive)
DEV Internationalization (v4)
URLs and Other Resources
Snitz Forums 2000 - Classic ASP version
SnitzBitz
Snitz MVC development site
Snitz Downloads/etc...
SourceForge
--------------------
Home
Active Topics
Frequently Asked Questions
Member Information
Search Page
Snitz Forums 2000
© 2000-2021 Snitz™ Communications
This page was generated in 0.2 seconds.
Topic Locked
Posted - 28 January 2003 : 11:34:30
