An Interesting Puzzle...

[surftown]

Check out http://www.theindianmaiden.com/lost/ripper.asp

I am sure that it is an easy problem but can anybody tell me why I
cant get rid/detect these question marks?

<%
url = "http://www.employnow.com/castingc.htm"


set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
oText = xmlhttp.responseText
set xmlhttp = nothing


oText = lcase(mid(oText,instr(oText,"<body")+5))

for i = 0 to 96

do while instr(oText,chr(i)) <> 0

oText = left(oText,instr(oText,chr(i))-1) +
mid(oText,instr(oText,chr(i))+1)

loop

next

response.write("is there any ? left? "+cstr(instr(otext,chr(63)))+"
then what is this: "+mid(otext,1935,1))
%>

 

[dlbjr]

<%
url = "http://www.employnow.com/castingc.htm"
set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
oText = xmlhttp.responseText
set xmlhttp = nothing
oText = lcase(mid(oText,instr(oText,"<body")+5))

intLength = Len(oText)
If intLength > 0 Then
Dim arrayData()
ReDim arrayData(intLength)
intCount = 0
For i = 1 To intLength
strItem = Mid(oText,i,1)
intItem = Asc(strItem)
If intItem >= 97 And intItem <= 122 Or intItem = 32 Then
arrayData(intCount) = strItem
intCount = intCount + 1
End If
Next
End If
oText = Join(arrayData)
response.write("is there any ? left? " + cstr(instr(otext,chr(63))) +
"<BR>then what is this: " + mid(otext,1935,1))
%>

-dlbjr

invariable unerring alien

 

[surftown]

This produces the same output. Is there anything in my code that could
produce an INSTR not detecting a ? but printing the ? on the very next
statement?