They changed the darn site again.
To fix the script, change the line:
If InStr(line(i), "<TD><IMG height") > 0 And InStr(line(i - 1), "<TR bgColor") > 0 Then
to
If InStr(line(i), "<TD class=f4") > 0 And InStr(line(i - 1), "<TR>") > 0 Then
that seems to get it working again.
To fix the script, change the line:
If InStr(line(i), "<TD><IMG height") > 0 And InStr(line(i - 1), "<TR bgColor") > 0 Then
to
If InStr(line(i), "<TD class=f4") > 0 And InStr(line(i - 1), "<TR>") > 0 Then
that seems to get it working again.
Comment