dslreports logo
site
 
    All Forums Hot Topics Gallery
spc

spacer




how-to block ads


Search Topic:
uniqs
604
share rss forum feed


DarkLogix
Texan and Proud
Premium
join:2008-10-23
Baytown, TX
kudos:3

1 edit

Need help updating an ASP page to work again

downloadasp.txt 2,111 bytesdownloadCM-page.txt 13,459 bytes
Ok so I have this APS page hosted on my server that fetches the RF stats from my cable modem so that the data will then be in the right format for PRTG

but as I powercycled my cablemodem to see if it'd get a new firmware (due to reading that it might now) well it did

and now the ASP page gives the following error
quote:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'cdbl'

/perl/smc.asp, line 17

The CM-page attached file is the page the cablemodem displays
the ASP file is my .ASP page


JohnInSJ
Premium
join:2003-09-22
San Jose, CA

change the data() function to be:

Sub data()
index = 10
start = InStr(info, "BmVBase")
omega = InStr(start + index+1, info, """")
length = omega - start - index-1
ds = Mid(info, start+index+1, length-1)
DSA = Split(ds, "|", 4)

index = 12
start = InStr(info, "SnrBase")
omega = InStr(start + index+1, info, """")
length = omega - start - index-1
snr = Mid(info, start+index+1, length-1)
SNRA = Split(snr, "|", 4)

index = 15
start = InStr(info, "PowerBase")
omega = InStr(start + index+1, info, """")
length = omega - start - index-1
us = Mid(info, start+index+1, length-1)
USA = Split(us, "|", 4)
end sub

Or just edit the three Mid() function calls to add the -1 after length. For some reason, you're now getting a trailing | char on the last number of 4, which is making the numbers not legal doubles as strings, which is the error...
--
My place : »www.schettino.us



DarkLogix
Texan and Proud
Premium
join:2008-10-23
Baytown, TX
kudos:3

Thanks very much