[prev in list] [next in list] [prev in thread] [next in thread]
List: bugtraq
Subject: Windows NT/95/98/Possible Others Denial of Service Attack.
From: Chris Knipe <cgknipe () MWEB ! CO ! ZA>
Date: 2000-04-29 8:35:30
[Download RAW message or body]
Goodday Fellow Bugtraqers.
Today I come to you with a possible (And what seems to me to be quite easy
to reproduce) flaw in Microsoft's ODBC Database connectivity sources. The
attack is HTML based and should proove quite interesting on web sites that
uses DSN or DBQ methods of connecting to SQL or (The easiest to attack)
Microsoft ACCESS Databases.
Summary:
=======
A method is available to "lock up" the entire IIS Server, which will render
any installed applications under the Windows NT Option Pack useless. All
web based applications (IIS Admin Services, Web Publishing Services, and
possible others) will lock up and stop responding to any web requests, or
any control requests to stop or start such services. The vulnerability
could potentially allow a malicious web site developer to perform actions
under the ASP Programming language to render the web server useless to local
control, or content requests.
Status:
=====
Microsoft has been informed about the suspecious behaviour of ACCESS and
ODBC Database Connectivity.
Issue:
====
The Microsoft ODBC Database connectivity allows for a potential flaw in the
connecting and disconnecting from databases (More related to Microsoft
ACCESS databses than any other). Connecting to a second database without
disconnecting the first could possibly render the service useless and will
end up in the Administrator to reboot the server to regain control of such
services.
How more wildly database connections are made, how better the chances of
hitting the hole and attacking the system. The risk posed by this
vulnerability is significantly restricted by the fact that the affected
database connection may be configured to "run in a seperate memory block" or
have special settings on the database that "might" secure this vulnerability
from accuring. HOWEVER, in the most common installation and programming
methods, it is quite possible to still have an effective system.
Sample Code:
==========
Consider the following scenario:
ODBC Connection Source Name: miscdb
ODBC DataBase Type: MS Access
ODBC Path: d:\data\misc.mdb
ASP Programming:
<%
set connVB = server.createobject("ADODB.Connection")
connVB.open "DRIVER={Microsoft Access Driver (*.mdb)}; DSN=miscdb"
%>
<html>
<body>
...lots of html removed...
<!-- We Connect to DB1 -->
<%
set connGlobal = server.createobject("ADODB.Connection")
connGlobal.Open "DSN=miscdb;User=sa"
mSQL = "arb SQL Statement"
set rsGlobal = connGlobal.execute(mSQL)
While not rsGlobal.eof
Response.Write rsGlobal("resultfrommiscdb")
rsGlobal.movenext
wend
'rsGlobal.close
'set rsGlobal = nothing
'connGlobal.close
'set connGlobal = nothing
' Note we do NOT close the connection
%>
<!-- Call the same database by means of DBQ direct file access -->
<%
set connGlobal = server.createobject("ADODB.Connection")
connGlobal.Open "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=d:\data\misc.mdb"
mSQL = "arb SQL Statement"
set rsGlobal = connGlobal.execute(mSQL)
While not rsGlobal.eof
Response.Write rsGlobal("resultfrommiscdb")
rsGlobal.movenext
wend
rsGlobal.close
set rsGlobal = nothing
connGlobal.close
set connGlobal = nothing
' Note we DO close the connection
%>
In some cases, this will stall the IIS process, and CPU usage will jump to
100% utilization by the inetinfo.exe process. To current date, the only
solution to my knowledge is to restart the computer.
Solution:
======
None that I am aware of. Newest Service Packs, newest ODBC data sources,
they all seem to be affected.
Special Notes:
==========
The attack is very "unpredictable". By unpredictable, I mean that the exact
same code may work perfectly for 15 days, then all of a sudden, cpu usagage
will jump to 100% and the inetinfo process will be locked. In recent
attempts to reproduce this attack to try and clarify as to what exactly is
causing this, I have connected up to 15 different SQL and Access Databases,
all with success. The one time I reboot the NT server, and attempt to load
the pages up again, the process will lock.
Personal Viewpoints:
===============
Microsoft's only means of connecting to databases is through ODBC or direct
file access (DSN and DBQ). Whether you use ODBC or direct file access, the
process used is unstable. Certainly with this unstability, having a ODBC
enabled web site will sees to function properly if it crashes or locks up
with only one user accessing the web site. What happens when 1,000,000
people access the site on a daily basis?
I would recommend that databases be moved over from Microsoft ACCESS to
Microsoft's SQL Server, or a similar SQL server on Linux with support for
ODBC or other forms of connectivity.
Affected Version:
============
ODBC Version: 3.510.3711.0
ODBC Access Driver Version: 3.51.1029.00
OS Version: Windows NT 4.0 Service Pack 5, IIS 4.0 (i386)
Microsoft Office 97 Professional (MSO97.dll: 8.0.0.3507)
The complete ASP page from the site with affective inetinfo.exe lockage is
attached. The single DSN connection revlected in the relavent ASP source is
a SQL Server, and hardly ever gives problems. The second database, is
directly connecting (DBQ) to a Microsoft ACCESS database. NTFS File
permissions is suffiecent for the test reasons, and no security related
problems are noted in the tests. The attached ASP file locks up 90% of the
time.
SQL Table Properties:
Table Name: History_Today
Table Layout:
Name: Type: Size:
his_month int 4
his_day int 4
his_year int 4
his_desc varchar 200
his_type varchar 1
Table Name: Holidays
Table Layout:
Name: Type: Size:
Month int 4
Day int 4
Holiday int 200
The MS Access database can be made available on request. Due to the
complexity of the database (Queries, Reports, Forms, Tables) I am not going
to layout the database in this email.
Kind Regards
Chris Knipe
["default.asp" (text/asp)]
<% Response.Buffer = True %>
<% mTitleColor = "DARKRED"
mHeaderColor = "DARKBLUE"
mYearColor = "DARKGREEN"
mTextColor = "BLACK"
mTitle = "2000 Years In History: "
mBaseDir = "/votes/"
mAnswerDir = "answer.asp"
mResultsDir = "results.asp"
mVoteBoothDir = "default.asp"
set connVB = server.createobject("ADODB.Connection")
connVB.open "DRIVER={Microsoft Access Driver (*.mdb)}; \
DBQ=D:\inetpub\data\votes.mdb" set rsQuestList = connVB.Execute("SELECT qID, \
qQuestion, qDate from Question order by qID") mQNo = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="STYLESHEET" type="text/css" href="/style.css">
<script language="JavaScript" src="/global.js"></script>
<title>SunnyLine Internet Services</title>
<meta name="Microsoft Border" content="lb, default"></head>
<body ALINK="#FF0000" topmargin="0" leftmargin="0"><!--msnavigation--><table \
border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top" \
width="1%">
<table align="left" valign="top" border="0" cellpadding="0" cellspacing="0" \
width="150" bgcolor="#666699" height="100%"> <tr>
<td align="left" valign="top" nowrap bgcolor="#666699"><div align="left"><table \
border="0" cellpadding="0" cellspacing="0"> <tr>
<td><form ACTION="/search/search.asp" method="POST">
<p><input NAME="SearchString" SIZE="15" MAXLENGTH="100" \
value="Search"><input TYPE="submit" NAME="Action" VALUE="Go" class="button"> </p> \
</form> </td>
</tr>
<tr>
<td><form ACTION="/default.asp" METHOD="POST">
<p><select NAME="url" ONCHANGE="pageSelector(this.form);" size="1">
<option value="#">SELECT A TOPIC </option>
<option value="#">-------------- </option>
<option value="/">HOME</option>
<option value="/forums/"> > Web Forums</option>
<option value="/links/"> > Web Links</option>
<option value="/votes/"> > Voting Booth</option>
<option value="/net/thebest.asp"> > The Best Of The Net</option>
<option value="/support/">SUPPORT</option>
<option value="/support/dialup/settings.asp"> > Dialup \
Settings</option>
<option value="/support/tcpip/settings.asp"> > TCP/IP \
Settings</option>
<option value="/support/proxy/settings.asp"> > Proxy \
Settings</option>
<option value="/support/check.asp"> > Check Your \
Settings</option> <option value="/support/faq.asp"> > F.A.Q</option>
<option value="/support/pops.asp"> > POP Numbers</option>
<option value="/support/network.asp"> > Network \
Statistics</option> <option value="/services/dialup/">REMOTE ACCESS</option>
<option value="/services/dialup/"> > Dialup Access</option>
<option value="/services/dialup/vras/"> > V-RAS Dialup \
Access</option> <option value="/services/hosting/">HOSTING</option>
<option value="/services/hosting/shared.asp"> > Shared Server \
Hosting</option>
<option value="/services/hosting/dedicated.asp"> > Dedicated \
Server Hosting</option>
<option value="/services/hosting/secure.asp"> > Secure Server \
Hosting</option> <option value="/services/corporate/">CORPORATE ACCESS</option>
<option value="/services/corporate/leased.asp"> > Leased \
Lines</option>
<option value="/services/corporate/isdn.asp"> > ISDN \
Lines</option>
<option value="/services/corporate/isdnbackup.asp"> > ISDN Backup \
Lines</option>
<option value="/services/corporate/vpn.asp"> > Virtual Private \
Networks</option>
<option value="/services/corporate/guaranteedb.asp"> > Guaranteed \
Int. Bandwidth</option>
<option value="/services/corporate/ahb.asp"> > After Hours \
Bandwidth</option>
<option value="/services/corporate/multi.asp"> > Multi \
Homing</option>
<option value="/services/corporate/domains.asp"> > Domain \
Registrations</option> <option value="/services/personal/">PERSONAL ACCESS</option>
<option value="/services/personal/leased.asp"> > Leased \
Lines</option>
<option value="/services/personal/isdn.asp"> > ISDN \
Lines</option>
<option value="/services/personal/domains.asp"> > Domain \
Registrations</option> <option value="/security/">SECURITY SERVICES</option>
<option value="/security/firewall.asp"> > Firewalls</option>
<option value="/security/auth.asp"> > Authentication</option>
<option value="/security/vpn.asp"> > Virtual Private \
Networks</option>
<option value="/security/audit.asp"> > Audits & \
Assesments</option>
<option value="/security/content.asp"> > Content \
Security</option>
<option value="/security/bandwidth.asp"> > Bandwidth \
Management</option>
<option value="/security/intrusion.asp"> > Intrusion \
Detection</option>
<option value="/security/encryption.asp"> > Encryption \
Solutions</option>
<option value="/security/public.asp"> > Public Key \
Infrastructure</option> <option value="/about/">ABOUT SUNNYLINE</option>
<option value="/about/info/"> > Company Information</option>
<option value="/about/media/"> > Media Center</option>
<option value="/about/contact/"> > Contact Information</option>
</select></p>
</form>
</td>
</tr>
</table>
</div><div align="left"><table border="0" cellspacing="0" cellpadding="0" \
width="178"> <tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td> <td valign="top" align="left" width="160"><b>Home</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img src="images/spacer.gif" \
width="1" height="1" border="0"></td>
<td valign="top" align="left" width="160"><a href="/forums/" class="link">Web \
Forums</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/links/" class="link">Web \
Links</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/votes/" \
class="link">Voting Booth</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/net/thebest.asp" \
class="link">The Best Of The Net</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td> <td valign="top" align="left" width="160"><b>Support</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img src="images/spacer.gif" \
width="1" height="1" border="0"></td>
<td valign="top" align="left" width="160"><a \
href="/support/dialup/settings.asp" class="link">Dialup Settings</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/support/tcpip/settings.asp" class="link">TCP/IP Settings</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/support/proxy/settings.asp" class="link">Proxy Settings</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/support/check.asp" \
class="link">Check Your Settings</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/support/faq.asp" \
class="link">F.A.Q</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/support/pops.asp" \
class="link">POP Numbers</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/support/network.asp" \
class="link">Network Statistics</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td>
<td valign="top" align="left" width="160"><b>Remote Access</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img src="images/spacer.gif" \
width="1" height="1" border="0"></td>
<td valign="top" align="left" width="160"><a href="/services/dialup/" \
class="link">Dialup Access</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/services/dialup/vras/" \
class="link">V-RAS Dialup Access</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td> <td valign="top" align="left" width="160"><b>Hosting</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/hosting/shared.asp" class="link">Shared Server Hosting</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/hosting/dedicated.asp" class="link">Dedicated Server Hosting</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/hosting/secure.asp" class="link">Secure Server Hosting</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td>
<td valign="top" align="left" width="160"><b>Corporate Access</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/leased.asp" class="link">Leased Lines</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/isdn.asp" class="link">ISDN Lines</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/isdnbackup.asp" class="link">ISDN Backup Lines</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/vpn.asp" class="link">Virtual Private Networking</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/guaranteedb.asp" class="link">Guaranteed Int. \
Bandwidth</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/ahb.asp" class="link">After Hours Bandwidth</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/multi.asp" class="link">Multi Homing</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/corporate/domains.asp" class="link">Domain Registrations</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td>
<td valign="top" align="left" width="160"><b>Personal Access</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/personal/leased.asp" class="link">Leased Lines</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/personal/isdn.asp" class="link">ISDN Lines</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/personal/domains.asp" class="link">Domain Registrations</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td>
<td valign="top" align="left" width="160"><b>Security Services</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/firewall.asp" class="link">Firewalls</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/auth.asp" class="link">Authentication</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/vpn.asp" class="link">Virtual Private Networks</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/audit.asp" class="link">Audits & Assessments</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/content.asp" class="link">Content Security</a></td> </tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/bandwidth.asp" class="link">Bandwidth Management</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/intrusion.asp" class="link">Intrusion Detection</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/encryption.asp" class="link">Encryption Solutions</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a \
href="/services/security/public.asp" class="link">Public Key Infrastructure</a></td> \
</tr> <tr>
<td valign="top" align="right" width="18"><img SRC="images/minus.gif" \
BORDER="0"></td>
<td valign="top" align="left" width="160"><b>About SunnyLine</b></td>
</tr>
<tr>
<td valign="top" align="right" width="18"><img src="images/spacer.gif" \
width="1" height="1" border="0"></td>
<td valign="top" align="left" width="160"><a href="/about/info/" \
class="link">Company Information</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/about/media/" \
class="link">Media Center</a></td>
</tr>
<tr>
<td valign="top" align="right" width="18"></td>
<td valign="top" align="left" width="160"><a href="/about/contact/" \
class="link">Contact Information</a></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="100%" valign="top" align="center"><img src="images/spacer.gif" \
width="50" height="50"></td> </tr>
</table>
<p> </p>
</td><td valign="top" width="24"></td><!--msnavigation--><td valign="top">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="83%"><img src="sunlogo.gif" width="306" height="59" border="0"></td>
<td width="17%" align="right" valign="top"><%
Response.Write tolongMonth(datepart("m", date())) & " " & \
datepart("d", date()) & ", " & datepart("yyyy", date()) Response.Write "<br>"
set connGlobal = server.createobject("ADODB.Connection")
connGlobal.Open "DSN=SunnyLine;User=sa"
mSQL = "SELECT Month, Day, Holiday FROM Holidays " & _
" WHERE Day = " & Day(date()) & _
" AND Month = " & Month(date()) & _
" ORDER BY Holiday "
set rsGlobal = connGlobal.execute(mSQL)
While not rsGlobal.eof
Response.Write rsGlobal("Holiday")
rsGlobal.movenext
wend
rsGlobal.close
set rsGlobal = nothing
connGlobal.close
set connGlobal = nothing
%>
</td>
</tr>
</table>
</div>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" align="left" width="220"><span class="head1">In The \
News:</span><u><strong><br> </strong></u>
<applet CODE="CoolHeadLines.class" NAME="CoolHeadLines" CODEBASE="/applets/" \
WIDTH="220" HEIGHT="90"> <param name="BackColor" value="255 255 255">
<param name="HiliteTextColor" value="60 179 113">
<param name="MessageDelay" value="4">
<param name="ScrollDelay" value="10">
<param name="TextColor" value="0 0 0">
<param name="URLPrefix" value="<%=GetPrefixValue()%>"><% ListParams %>
</applet>
</td>
<td valign="top" align="left"><p class="head1">Voting Polls:</p>
<table ALIGN="CENTER" CELLPADDING="5" WIDTH="100%">
<% do while not rsQuestList.eof
mQNo = mQNo + 1 %>
<tr>
<td VALIGN="CENTER"><form ACTION="<% =mBaseDir & mAnswerDir%>" METHOD="POST">
<input type="hidden" name="mAnswerDir" value="<% =mAnswerDir %>"><input \
type="hidden" name="mResultsDir" value="<% =mResultsDir %>"><input type="hidden" \
name="mBaseDir" value="<% =mBaseDir %>"><input type="hidden" name="mVoteBoothDir" \
value="<% =mVoteBoothDir %>"><input type="hidden" name="mQuestion" \
value="<%=rsQuestList("qID") %>"><input type="hidden" name="mNumber" value="<% =mQNo \
%>"><p><input type="submit" value="<% =chr(64 + cint(mQNo)) %>. " class="button"> \
</p> </form>
</td>
<td VALIGN="BOTTOM"><% response.write rsQuestList("qQuestion") & "</TD></TR>" \
rsQuestList.movenext
Loop
%>
</td>
</tr>
</table>
<%
rsQuestList.Close
set rsQuestList = Nothing
connVB.Close
set connMB = Nothing
%>
</td>
</tr>
</table>
<p><%
set connGlobal = server.createobject("ADODB.Connection")
connGlobal.Open "DSN=SunnyLine;User=sa"
mSQL = "SELECT his_type, his_year, his_desc FROM History_Today " & _
" WHERE his_day = " & Day(date()) & _
" AND his_month = " & Month(date()) & _
" ORDER BY his_type, his_year "
set rsGlobal = connGlobal.execute(mSQL)
response.write "<FONT COLOR = " & mTitleColor & " SIZE = '+1'><B>" & mTitle & _
"</b></FONT><BR><BR>"
response.write "<FONT COLOR = " & mHeaderColor & "><B>Birthdays:</b></FONT>"
mType = "B"
response.write "<TABLE WIDTH = '100%'>"
while not rsGlobal.eof
if rsGlobal("his_type") <> mType then
mType = "E"
response.write "</TABLE><BR><FONT COLOR = " & mHeaderColor & \
"><B>Events:</b></FONT>" response.write "<TABLE WIDTH = '100%'>"
end if
response.write "<TR VALIGN = TOP><TD ALIGN = RIGHT WIDTH = '5%'><FONT COLOR = " & _
mYearColor & " SIZE = '-1'><B> " & rsGlobal("his_year") & \
"</b></font></td>" response.write "<TD WIDTH = '95%'><FONT COLOR = " & mTextColor & \
" SIZE = '-1'>" & rsGlobal("his_desc") & "</FONT></td></tr>"
rsGlobal.movenext
wend
response.write "</TABLE>"
rsGlobal.close
set rsGlobal = nothing
connGlobal.close
set connGlobal = nothing
%>
<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table \
border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td> <div \
align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="562">
<tr>
<td align="center" width="462"><p align="center"><img src="images/linux_ride.gif" \
WIDTH="460" HEIGHT="55"></td> </tr>
<tr>
<td align="center" width="462"><p align="center"><img src="images/button_rp7.gif" \
WIDTH="88" HEIGHT="32"><img src="images/ie_horiz.gif" WIDTH="88" HEIGHT="31"></td> \
</tr> <tr>
<td align="center" width="462"><p align="center"><span class="nonu">©2000 \
SunnyLine Internet Services.</span></td>
</tr>
</table>
</center></div>
<p> </p>
</td></tr><!--msnavigation--></table></body>
</html>
<%
Function toLongMonth(pInInteger)
mMonth = "Not Found"
if isNumeric(pInInteger) then
select case pInInteger
case 1: mMonth = "January"
case 2: mMonth = "February"
case 3: mMonth = "March"
case 4: mMonth = "April"
case 5: mMonth = "May"
case 6: mMonth = "June"
case 7: mMonth = "July"
case 8: mMonth = "August"
case 9: mMonth = "September"
case 10: mMonth = "October"
case 11: mMonth = "November"
case 12: mMonth = "December"
end select
end if
toLongMonth = mMonth
End Function
Function GetPrefixValue
Dim strFullPath, strLastChar
strFullPath = "http://"
strFullPath = strFullPath & Request.ServerVariables("SERVER_NAME")
strFullPath = strFullPath & Request.ServerVariables("PATH_INFO")
strLastChar = ""
Do Until strLastChar = "/"
strLastChar = right(strFullPath, 1)
strFullPath = left(strFullPath, len(strFullPath) - 1)
Loop
GetPrefixValue = strFullPath
End Function
Sub ListParams
On Error Resume Next
Dim fso, prFile, intFileNum, strTitle, strLink,strCategory
intFileNum = 0
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set prFile = fso.OpenTextFile(Server.MapPath("pr/prFileList.txt"))
If Err.Number <> 0 Then
Exit Sub
End If
Do Until prFile.AtEndOfStream
strTitle = Chr(34) & prFile.ReadLine & Chr(34)
If prFile.AtEndOfStream Then Exit Do
strLink = Chr(34) & prFile.ReadLine & Chr(34)
strCategory = prFile.ReadLine
response.write "<PARAM NAME=Text" & intFileNum & " VALUE=" & strTitle & ">" & \
Chr(13) response.write "<PARAM NAME=URL" & intFileNum & " VALUE=" & strLink & ">" & \
Chr(13) intFileNum = intFileNum + 1
Loop
Response.Write "<PARAM NAME=NumItems VALUE=" & intFileNum & ">" & Chr(13)
End Sub
%>
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic