%@ Language=VBScript %>
<%
dim oObject
dim nReturn
dim sIntroNewsTitle, sIntroNewsDesc
dim sDetailID
dim sDetailTitle, sDetailPicture
dim sDetailLocation
dim sDetailDate, sDetailParagraph1, sDetailParagraph2, sDetailParagraph3
sDetailID = Request.QueryString("PressID")
set oObject = server.CreateObject("ProspeedCom.clsRoutines")
nReturn = oObject.gatherPressReleaseDetails(Application("DatabasePath"),cstr(sDetailID))
sDetailTitle = oObject.DetailTitle
sDetailDate = oObject.DetailDate
sDetailLocation = oObject.DetailLocation
sDetailParagraph1 = oObject.DetailParagraph1
sDetailParagraph2 = oObject.DetailParagraph2
sDetailParagraph3 = oObject.DetailParagraph3
sDetailPicture = oObject.DetailPicture
set oObject = nothing
%>
Prospeed.net About Us
Current Network Status:
<%
dim rs_NetStatus
dim sSQL
dim sProduct, sStatus
set rs_NetStatus = server.createobject("adodb.recordset")
sSQL ="SELECT tNetworkStatus.Product, tNetworkStatus.Status FROM tNetworkStatus WHERE (tNetworkStatus.Active = -1) ORDER BY tNetworkStatus.SortOrder;"
performSQLSelect sSQL,rs_NetStatus
while not (rs_NetStatus.EOF)
sProduct = rs_NetStatus.fields("Product")
sStatus = rs_NetStatus.fields("Status")
%>
<%
rs_NetStatus.movenext
wend
rs_NetStatus.Close
%>
<%
dim sMessage
set rs_NetStatus = server.createobject("adodb.recordset")
sSQL ="SELECT tNetworkStatus.Message FROM tNetworkStatus WHERE (tNetworkStatus.Status = 'Alert') and (tNetworkStatus.Active = -1) ORDER BY tNetworkStatus.SortOrder;"
performSQLSelect sSQL,rs_NetStatus
while not (rs_NetStatus.EOF)
sMessage = rs_NetStatus.fields("Message")
%>
<%
rs_NetStatus.movenext
wend
rs_NetStatus.Close
%>
ProSpeed Dialup numbersFor Massachusetts:
The following numbers support the K-Flex, X2, and V.90 protocols