Microsoft VBScript runtime error '800a005e'

I am getting this error :

Microsoft VBScript runtime error '800a005e'

Invalid use of Null

/Admin/function.inc, line 12


this is my lines from 6-17

for i = 1 to 10000
begstr = "$r$"
enstr= "$r$"
beg = Instr(1,qstr,begstr,1) + len(begstr)

if beg = len(begstr) then exit for
en = Instr(beg + 1,qstr,enstr,1)
if en = 0 then en = len(qstr) + 1

rstr = mid(qstr,beg,en - beg)
qstr=replace(qstr,"$r$" & rstr,"")
resp(i)=right(rstr,len(rstr)-instr(1,rstr,"|",1))

the red is line 12 please help me correct this thank you very much!
Respectfully
Suhaib

 

suhaib, are you resolve. Same for me.

 

beg = Instr(1,qstr,begstr,1) + len(begstr)

You are calling qstr but qstr is defined AFTER this line. hence the NULL value.

 

http://www.interaktonline.com/Produ...ls/94365/VBscript+runtime+error+800a005e.html

 

you can visit microsoft website and you can find the details about VBScript runtime error '800a005e' this error there.

 

I left a link in my latest post.

 

Have you fixed this problem yet? if so please share

 

I am having a similar error.

Here is the code in which the error takes place.

<pre><%= replace(objRecordset.Fields("Intake"),"*","&nbsp;")%></pre>
Intake <textarea name="txtIntake" rows=5 cols=50></textarea><br>



I get the error:

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'replace'

/calendar/edit_event.asp, line 99

Any help would be appreciated.

 

Replace it with beg = Instr(1,qstr,begstr,1) + len(begstr)

You're not calling the right values.