tengo una pagina asp que utiliza javascript del lado del servidor para jalar los datos de una pagina web el script es
<script language='javascript'>
<%
set ofile = fso.OpenTextFile(straux, 1)
straux = trim(ofile.ReadAll)
straux = mid(straux,instr(straux,"id=current_box_temp"),ins tr(straux,"temp"))
strmsg = mid(straux,InStr(straux,"temp")+5,instr(straux,"te mp"))
strmsg = replace (strmsg,"Â"," ",1,-1,1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.temphoy.innerHTML='"& strmsg&"';"&vbcrlf)
straux=mid(straux,instr(straux,"id=current_update" ),len(straux))
strmsg= mid(straux,instr(straux,"update"),len(straux))
strmsg=mid(straux,instr(straux,"actualización")+1 5,instr(straux,"actualización")-48)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.actual.innerHTML='"&s trmsg&"';"&vbcrlf)
' imagen hoy '
strmsg=""
straux = mid(straux,(instr(straux,"img src=http")),(len(straux)-instr(straux,"img src=http")))
straux = mid(straux,instr(straux,".gif")-3,(len(straux)-instr(straux,".gif")-4))
straux = mid(straux,instr(straux,"/")+1,(len(straux)-instr(straux,"/")+1))
strmsg = mid(straux,1,instr(straux,".gif")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.imghoy.src='../w_edotpo/yahoo/images/"&strmsg&".gif';"&vbcrlf)
' descripción hoy'
strmsg = ""
response.write("document.all.deschoy.innerHTML='"& strmsg&"';"&vbcrlf)
'maxima'
strmsg=""
straux = mid(straux,(instr(straux,"Max.")+4),(len(straux)-instr(straux,"Max.")+4))
strmsg = mid(straux,1,instr(straux,"°")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.maxhoy.innerHTML='"&s trmsg&"';"&vbcrlf)
'minmima'
strmsg=""
straux = mid(straux,(instr(straux,"Min.")+4),(len(straux)-instr(straux,"Min")+4))
strmsg = mid(straux,1,instr(straux,"°")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.minhoy.innerHTML='"&s trmsg&"';"&vbcrlf)
'Viento'
strmsg=""
straux = mid(straux,(instr(straux,"id=current_right")),len( straux))
straux = mid(straux,instr(straux,"right"),len(straux))
strmsg= mid(straux,instr(straux,"Viento")+6,instr(straux," Viento")-7)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.viento.innerHTML='"&s trmsg&"';"&vbcrlf)
'Humedad'
strmsg=""
straux = mid(straux,(instr(straux,"id=current_right")),len( straux))
straux = mid(straux,instr(straux,"right"),len(straux))
strmsg = mid(straux,instr(straux,"Humedad")+7,instr(straux, "Humedad")-99)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.humedad.innerHTML='"& strmsg&"';"&vbcrlf)
'Presion atmosferica'
strmsg=""
straux = mid(straux,(instr(straux,"id=current_right")),len( straux))
straux = mid(straux,instr(straux,"right"),len(straux))
strmsg = mid(straux,instr(straux,"Presión"),instr(straux," Presión"))
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.presion.innerHTML='"& strmsg&"';"&vbcrlf)
'Visibility'
strmsg=""
straux = mid(straux,(instr(straux,"Visibilidad</td>")),(len(straux)-instr(straux,"Visibilidad</td>")))
straux = mid(straux,(instr(straux,"<td>")+4),(len(straux)-instr(straux,"<td>")+4))
strmsg = mid(straux,1,instr(straux,"</td")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.visibilidad.innerHTML ='"&strmsg&"';"&vbcrlf)
'Condensacion'
strmsg=""
straux = mid(straux,(instr(straux,"Punto de ")),(len(straux)-instr(straux,"Punto de ")))
straux = mid(straux,(instr(straux,"<td>")+4),(len(straux)-instr(straux,"<td>")+4))
strmsg = mid(straux,1,instr(straux,"</td")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.condensacion.innerHTM L='"&strmsg&"';"&vbcrlf)
'Salida'
strmsg=""
straux = mid(straux,(instr(straux,"Salida del sol</td>")),(len(straux)-instr(straux,"Salida del sol</td>")))
straux = mid(straux,(instr(straux,"<td>")+4),(len(straux)-instr(straux,"<td>")+4))
strmsg = mid(straux,1,instr(straux,"</td")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.salida.innerHTML='"&s trmsg&"';"&vbcrlf)
'Puesta'
strmsg=""
straux = mid(straux,(instr(straux,"Puesta del sol</td>")),(len(straux)-instr(straux,"Puesta del sol</td>")))
straux = mid(straux,(instr(straux,"<td>")+4),(len(straux)-instr(straux,"<td>")+4))
strmsg = mid(straux,1,instr(straux,"</td")-1)
strmsg = replace (strmsg,vbCr," ",1,-1,1)
strmsg = replace (strmsg,vbCrLf," ",1,-1,1)
strmsg = replace (strmsg,vbLf," ",1,-1,1)
strmsg = replace (strmsg,vbNewLine," ",1,-1,1)
response.write("document.all.puesta.innerHTML='"&s trmsg&"';"&vbcrlf)
el problema es que no me lee todos los datos que necesito de la pagina
http://espanol.weather.com/weather/today-Cancun-MXQR0138
necesito ayuda e spara la acrtulizaciòn de una pagina que muestra el estdo del tiempo
