<%
If vView = "#overview#" Then
%>
|
You have <% Response.Write resolveProfileCount(vUserID) %> profile(s) online, sorting by Location... |
<%
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open "Driver={mySQL ODBC 3.51 Driver};Server=mysql72.customcreators.net;Port=3306;Database=customcreators_net;Uid=custom_net@c5676;Pwd=i2k7876wd63t3lvd;"
Set varRecordset = dbConnection.Execute("Select * From tblCCAMData Where fldID = " & vUserID & " Order By fldLocation ASC, fldName ASC;")
Do While Not varRecordset.EOF
vSystemStatus = True
vTimeDiff = DateDiff("h", returnSysTime(varRecordset("fldTime")), Now())
strSystemStatus = ""
If vTimeDiff > 24 Then
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Profile older than 24 hours!")
End If
' Check for low physical memory
vMemTest = extractBulkFrame(varRecordset("fldData"), "memory_phys_free")
vMemTest = Trim(Replace(vMemTest, "MB", ""))
If cLng(vMemTest) < 100 Then
If strSystemStatus = "" Then vMemForce = True
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Consider upgrading to more RAM for better performance.")
End If
getDriveState varRecordset("fldData"), vLowDrive, vFloppyFound
vSkypeVideoSupport = checkSkypeVideoSupport(extractBulkFrame(varRecordset("fldData"), "os_name"))
If Len(vLowDrive) > 0 Or vFloppyFound = False Or vSkypeVideoSupport = False Then
If strSystemStatus = "" Then vMemForce = True
If vFloppyFound = False Then strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Floppy disk drive not installed correctly.")
If Len(vLowDrive) > 0 Then strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Partition " & vLowDrive & " is running low on space.")
If vSkypeVideoSupport = False Then strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Skype Video NOT Supported, consider uppgrading to XP!")
End If
If varRecordset("fldSmart_Stat") <> 0 Then
vSystemStatus = False
strSystemStatus = ""
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "WARNING: SMART Drive reporting failure!")
End If
If InStr(1, "" & varRecordset("fldEventLog"), "WARNING") > 0 Then
vSystemStatus = False
strSystemStatus = ""
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "" & varRecordset("fldEventLog") & "")
End If
If vSystemStatus = True Then
If strSystemStatus = "" Then
strSystemStatus = "System OK."
Else
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "System OK.")
End If
Else
' dont add system ok, needs attention!
End If
If varRecordset("fldLocation") <> vLocation Then
Response.Write " |
"
Response.Write "" & varRecordset("fldLocation") & " |
"
Response.Write " |
"
vLocation = varRecordset("fldLocation")
Else
Response.Write " |
"
End If
%>
| "> "><% Response.Write cleanName(varRecordset("fldName")) %> |
Reported <% Response.Write vTimeDiff %> hour(s) ago. (v<% Response.Write varRecordset("fldVersion") %>) |
CPU: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "cpu_type") %> @ <% Response.Write extractBulkFrame(varRecordset("fldData"), "cpu_speed") %> |
OS: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "os_name") %> SP <% Response.Write extractBulkFrame(varRecordset("fldData"), "os_spver") %> |
MEM: | Free: <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_phys_free") %>MB - Total: <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_phys_total") %>MB - Usage: <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_usage") %>% |
IP: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "net_ip") %> |
COM: | <% Response.Write Replace(varRecordset("fldComment"), "%20", " ") %> |
STAT: | <% Response.Write strSystemStatus %> |
|
<%
varRecordset.MoveNext
Loop
varRecordset.Close
Set varRecordset = Nothing
dbConnection.Close
Set dbConnection = Nothing
ElseIf vView = "_delete_" Then
Dim vRemoveProfile
vRemoveProfile = Request("remove")
If Trim(vRemoveProfile) <> "" Then
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open "Driver={mySQL ODBC 3.51 Driver};Server=mysql72.customcreators.net;Port=3306;Database=customcreators_net;Uid=custom_net@c5676;Pwd=i2k7876wd63t3lvd;"
Set varRecordset = dbConnection.Execute("Delete From tblCCAMData Where fldID = '" & vUserID & "' And fldName = '" & vRemoveProfile & "';")
End If
Response.Redirect("main.asp")
Else
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open "Driver={mySQL ODBC 3.51 Driver};Server=mysql72.customcreators.net;Port=3306;Database=customcreators_net;Uid=custom_net@c5676;Pwd=i2k7876wd63t3lvd;"
Set varRecordset = dbConnection.Execute("Select * From tblCCAMData Where fldID = '" & vUserID & "' And fldName Like '" & vView & "';")
If Not varRecordset.EOF Then
vSystemStatus = True
vTimeDiff = DateDiff("h", returnSysTime(varRecordset("fldTime")), Now())
strSystemStatus = ""
If vTimeDiff > 24 Then
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Profile older than 24 hours!")
End If
' Check for low physical memory
vMemTest = extractBulkFrame(varRecordset("fldData"), "memory_phys_free")
vMemTest = Trim(Replace(vMemTest, "MB", ""))
If cLng(vMemTest) < 100 Then
If strSystemStatus = "" Then vMemForce = True
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Consider upgrading to more RAM for better performance.")
End If
getDriveState varRecordset("fldData"), vLowDrive, vFloppyFound
vSkypeVideoSupport = checkSkypeVideoSupport(extractBulkFrame(varRecordset("fldData"), "os_name"))
If Len(vLowDrive) > 0 Or vFloppyFound = False Or vSkypeVideoSupport = False Then
If strSystemStatus = "" Then vMemForce = True
If vFloppyFound = False Then strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Floppy disk drive not installed correctly.")
If Len(vLowDrive) > 0 Then strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Partition " & vLowDrive & " is running low on space.")
If vSkypeVideoSupport = False Then strSystemStatus = returnSystemInfoBlock(strSystemStatus, "• Skype Video NOT Supported, consider uppgrading to XP!")
End If
If varRecordset("fldSmart_Stat") <> 0 Then
vSystemStatus = False
strSystemStatus = ""
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "WARNING: SMART Drive reporting failure!")
End If
If InStr(1, "" & varRecordset("fldEventLog"), "WARNING") > 0 Then
vSystemStatus = False
strSystemStatus = ""
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "" & varRecordset("fldEventLog") & "")
End If
If vSystemStatus = True Then
If strSystemStatus = "" Then
strSystemStatus = "System OK."
Else
strSystemStatus = returnSystemInfoBlock(strSystemStatus, "System OK.")
End If
Else
' dont add system ok, needs attention!
End If
%>
|
|
| "> "><% Response.Write cleanName(varRecordset("fldName")) %> |
Reported <% Response.Write vTimeDiff %> hour(s) ago. (v<% Response.Write varRecordset("fldVersion") %>) |
CPU: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "cpu_type") %> @ <% Response.Write extractBulkFrame(varRecordset("fldData"), "cpu_speed") %> |
OS: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "os_name") %> SP <% Response.Write extractBulkFrame(varRecordset("fldData"), "os_spver") %> |
MEM: | Free: <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_phys_free") %>MB - Total: <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_phys_total") %>MB - Usage: <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_usage") %>% |
IP: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "net_ip") %> |
COM: | <% Response.Write Replace(varRecordset("fldComment"), "%20", " ") %> |
STAT: | <% Response.Write strSystemStatus %> |
|
|
Additional Information
Model: | <% Response.Write getValidData("" & varRecordset("fldModel")) %> |
In Use Since: | <% Response.Write getValidData("" & varRecordset("fldInUseSince")) %> |
Price: | <% Response.Write getValidData("" & varRecordset("fldPrice")) %> |
DirectX Version: | <% Response.Write getValidData("" & varRecordset("fldDirectX")) %> |
System Uptime: | <% Response.Write getCurrentUpTime(returnSysTime(varRecordset("fldTime")), getValidData("" & varRecordset("fldUpTime"))) %> |
Support Log: | <% Response.Write getValidData(getSupportBlock("" & varRecordset("fldSupportLog"))) %> |
|
|
<%
Response.Write extractDrive(varRecordset("fldData"))
Response.Write " |
"
Response.Write extractSMARTDevice(varRecordset("fldData"))
%>
|
Computer Memory
Physical Free: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_phys_free") %> MB |
Physical Total: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_phys_total") %> MB |
|
Virtual Free: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_virt_free") %> MB |
Virtual Total: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_virt_total") %> MB |
|
Page File Free: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_page_free") %> MB |
Page File Total: | <% Response.Write extractBulkFrame(varRecordset("fldData"), "memory_page_total") %> MB |
|
|
System Event Log Scan:
<% Response.Write varRecordset("fldEventLog") %> |
<%
varRecordset.MoveNext
End If
varRecordset.Close
Set varRecordset = Nothing
dbConnection.Close
Set dbConnection = Nothing
End If
%>
|