An Interesting Puzzle...
 

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))
%>

Re: An Interesting Puzzle...
 

<%
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

Re: An Interesting Puzzle...
 

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?

"dlbjr" <dontknow@do.u> wrote in message
news:ORBK%23tuXDHA.2432@TK2MSFTNGP10.phx.gbl...
> <%
> 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
>
>