Disk Space Monitoring ASP Page problem

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Disk Space Monitoring ASP Page problem

Logged in as: Guest

arrSession:exec spGetSession 2,3,39326

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> Disk Space Monitoring ASP Page problem
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Disk Space Monitoring ASP Page problem - 11/1/2006 1:13:12 AM

ruaand

Posts: 1
Score: 0
Joined: 11/1/2006
Status: offline

Hallo,

I have a asp page that connects to a SQL database and displays disk space reports on multiple sql servers but for some reason I cannot get the asp page to connect to the database.

Can anyone please help me with the code that I have attached below?

Thanks,

Ruaan


<HTML>
<H1>Disk Monitor</H1>

<%
Session.Timeout = 480
set connection=server.createObject("ADODB.Connection")
connection.OPEN "SERVER=sql2k\instance1;DATABASE=DiskMonitor;UID=DiskUser;PWD=Disk;DRIVER={SQL Server};"
set rs = server.createobject("ADODB.Recordset")
rs.cursortype = adopenstatic
query = "select Computer,Drive,DiskSize,FreeSpace,Percentage,date,Color=case when percentage<16 then 'R' when percentage>16 and percentage<21 then 'Y' when percentage>20 then 'G' end from FreeSpace order by computer,Drive"
rs.open query,connection %>
<TABLE border=1 bordercolor= rgb(114,150,145) cellPadding=1 cellSpacing=0 width="75%" align=center>
<TD></TD>
<TR>

<TD bgColor=white>
Server</TD>
<TD bgColor=white>
Drive</TD>
<TD bgColor=white>
Disk Space (MB)</TD>
<TD bgColor=white>
FreeSpace (MB)</TD>
<TD bgColor=white>
Percentage Free</TD>
<TD bgColor=white>
TimeStamp</TD>



<TR><TD></td></tr>
<%do while not rs.eof%>
<TR>
<TD bgColor=CCCCCC>
<%=rs("Computer")%></TD>
<TD bgColor=white>
<%=rs("Drive")%></TD>
<TD bgColor=white>
<%=rs("DiskSize")%></TD>
<TD bgColor=white>
<%=rs("FreeSpace")%></TD>
<% if rs("Color") ="R" then %>
<TD bgColor=red>
<% end if %>
<% if rs("Color") ="Y" then %>
<TD bgColor=yellow>
<% end if %>
<% if rs("Color") ="G" then %>
<TD bgColor=blue
<% end if %><%=rs("Percentage")%></TD>
<TD bgColor=white>
<%=rs("Date")%></TD>
<%rs.movenext%>
</TR>
<%loop%>
</table>