<% lngID = sbDecrypt(request.querystring) if isnumeric(lngID) then SQL = "SELECT FullVersion FROM Register WHERE ID=" & lngID select case GetFirstField(SQL) case True response.write 1 case else response.write 0 end select else response.write 0 end if %>