if action="edit" then dim len1 Dim SearchString, SearchChar, MyPos Dim MyVar SearchString =id MyPos = Instr(SearchString, SearchChar)
do while MyPos>0 SearchChar = ", " MyPos = Instr(SearchString, SearchChar) if mypos>0 then len1=Mid(SearchString,1,(MyPos-1)) sql="update users_orderinfo set IsAffir=1 where ordercode='"&len1&"'" conn.execute(sql) else sql="update users_orderinfo set IsAffir=1 where ordercode='"&SearchString&"'" conn.execute(sql) end if
SearchString=Mid(SearchString,(MyPos+2), len(SearchString)) loop conn.close set conn=nothing ' response.Redirect billauditing.asp end if
