type mismatch error

i tried running the following code but am getting a "type mismatch error" referring to the "if strwoseqn <> adoRS(1)" line. can anyone help? thanks.

<!-- #include file='CO_Menu.asp' -->
<!-- #include file='DB_TMS_Open.asp' -->

<%
strPageID = "wolag"
%>



<table>
<tr>
<td>
Total Time Spent In Each basket for all TSR's between 06-SEP-03 and 06-OCT-03
</td>
</tr>
<tr>
<td>
AOP
</td>
<td>
ASW
</td>
</tr>

<%
StrSQL="select distinct t.tsnumb, wo.woseqn, wob.wcbask, wob.wcstat, wob.wcdate from tsr t, workorder wo, wobaskdtl wob where wo.wonumb not in (select wob2.wcnumb from wobaskdtl wob2 where wob2.wcbask='PROJ' and wob2.wcnumb=t.tsnumb) and wo.woseqn = wob.wcseqn and t.tsstat='C' and t.tsnumb=wo.wonumb and wo.wostat='C' and t.tscdat between '06-SEP-03' and '06-OCT-03' and wob.wcnumb=t.tsnumb and wob.wcbask not in (select wob3.wcbask from wobaskdtl wob3 where wob3.wcstat='X' and wob3.wcnumb=t.tsnumb) order by t.tsnumb, wo.woseqn, wob.wcbask,wob.wcdate"
Set adoRS = adoConn.Execute(StrSQL)

totalaswtime=0
totalaoptime=0

Do until adoRS.EOF

if strwoseqn <> adoRS(1) then
blnNewSeqn=True
else
end if

strwoseqn=adoRS(1)

if blnNewSeqn=True then
aswopen=null
aswclose=null
aopopen=null
aopclose=null
else
end if

if left(adoRS(2),2)="AO" then

if adoRS(3)="A" then
aswopen=adoRS(4)
else
end if
if adoRS(3)="C" then
aswclose=adoRS(4)
else
end if
if adoRS(3)="T" then
aswclose=adoRS(4)
else
end if
if aswclose <> null and aswopen <> null then
compaswtime=round(aswopen-aswclose,2)
totalaswtime=round(totalaswtime+compaswtime,2)
aswopen=null
aswclose=null
else
end if
else
end if
adoRS.movenext
loop
%>

<tr>
<td>
<%=totalaswtime%>
</td>
<td>
<%=totalaoptime%>
</td>
</tr>
</table>

<!-- #include file='DB_TMS_Close.asp' -->
<!-- #include file='CO_Disclaim.asp' -->

please disregard, i figured it out.

i am having a related problem though if you could help...

http://forums.devshed.com/showthrea...&threadid=94003