 DarkLogixTexan and ProudPremium
join:2008-10-23
Baytown, TX
kudos:3
1 edit | Need help updating an ASP page to work again 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 |
 JohnInSJPremium
join:2003-09-22
San Jose, CA
 ·PHONE POWER
 ·Comcast
| 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 |
