Microsoft VBScript runtime (0x800A000D)
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/scripts/processing.asp, line 245
================================================== ========
Dim addidx()
redim addidx(retcount)
retaddidx = "11549"
sql = "SELECT IDX, CLIENTIDX, COMPANY FROM ADDRESS WHERE CLIENTIDX = " & cid & " AND COMPANY LIKE 'ABLE%' ORDER BY COMPANY"
set rs = Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.CursorLocation = 3
rs.Open sql, Session("Conn"), adOpenDynamic
while not rs.eof
if retaddidx = addidx(i) then <= Line 245 Type Mismatch
addidx(i) = rs("IDX")
com(i) = rs("COMPANY")
end if
i=i+1
wend
================================================== ======
Can i compare a string with an array element?
It gave me a type mismatch error.
|